怕瓦落地-名耳的博客

订阅博客

网站分类

•  学习 (46)
•  历史 (3)
•  社会 (53)
•  帕瓦罗蒂 (1)
•  个人 (115)
•  翻译 (6)

最新评论及回复

• 迷离，啊。最近的互联网都...
• 真有创意，不仔细还真以为...
• 囚徒理论其实很深奥的，我...
• 真 的事新解……
• 的确阴险惨啦
• 把我的博客都搬到这个网站...
• 哥们，你现在这更新频率太...
• 质量确实很差的，买了几件...
• 这些当把你的钱骗到手后，...
• 有才气，不错

热文排行

• 通稿2008
• 旧的新发现
• 月光下的云海？
• 黄石记
• 闲碎之三
• 广告
• 记梦
• 众志成城 抗洪救灾
• 写给高考失意的同学
• 闲言碎语

网站收藏

• 透过AuctionAds获得收入
• <%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_183590.xml" in the same ' directory as this script. It MUST be writable by the web ' server. On unix you would CHMOD 666 the file. On Windows ' you will need to access your custom control panel to set ' the permissions or contact your hosting company. Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_183590.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=BQXN3P02EN43708A20G6&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set FSO = server.createObject("Scripting.FileSystemObject") ' update local XML Dim DateMod, MonthString, DayString, DateModFile, DateModLimit DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified MonthString = Month(DateMod) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(DateMod) If (DayString < 10) Then DayString = "0" & DayString End If DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod) MonthString = Month(Date) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(Date) If (DayString < 10) Then DayString = "0" & DayString End If DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now) Dim Contents, Result, xmlhttp, TextStream ' read local XML Contents = "" Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2) Do While Not TextStream.AtEndOfStream Contents = Contents & TextStream.ReadLine Loop TextStream.Close Set TextStream = nothing If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then ' fetch remote XML Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Result = xmlhttp.responseText If (Result <> "") Then Contents = Result End If ' write new XML to local file Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True) TextStream.Write Contents TextStream.Close Set TextStream = nothing End If ' parse local XML Dim source Set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadXML(Contents) ' Output links Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText Set objLst = source.getElementsByTagName("Link") numLinks = objLst.length If numLinks > 0 Then Response.Write("
  ") For i = 0 To numLinks -1 Set objLink = objLst.item(i) Set objLinkChildren = objLink.childNodes URL = "" Text = "" BeforeText = "" AfterText = "" For Each linkNode In objLinkChildren If linkNode.nodeName = "URL" Then URL = linkNode.text End If If linkNode.nodeName = "Text" Then Text = linkNode.text End If If linkNode.nodeName = "BeforeText" Then BeforeText = linkNode.text End If If linkNode.nodeName = "AfterText" Then AfterText = linkNode.text End If Next Response.Write("
  • " & BeforeText & " " & Text & " " & AfterText & "
  ") Next Response.Write("
  ") End If %>
• 通过手机访问本站

友情链接

• 怕瓦落地
• 秋果博客
• 生活印象
• 北极冰仔
• 生活点滴
• 月光博客
• 闲言碎语
• 秦爱博客
• 闲拾博院
• 馨灵日记
• 室内桃源
• 我爱我妻
• 蓝色聚焦
• 黑夜.白昼
• 落叶知秋
• 麦田里的守望者
• 没有篱笆的家园
• 西门口的馒头
• No man is born wise or learned
• z.Yleo77
• andegg
• xxxl.idea
• 更多..

赞助商广告