首页
健康知识 [5100]
动态导读 [52]
工作+资源 [23]
电脑网络 [37]
网站赢利 [9]
影音动娱 [27]
留言本
风湿性关节炎专题 [32]
感冒专题 [56]
女性健康 [79]
女性健康-流产专题 [37]
女性健康-怀孕专题 [56]

日志: 5508 篇
评论: 27 个
引用: 6 个
留言: 1098 个
会员: 158 人
访问: 8633390 次
在线: 1 人
建站时间: 2007-07-05

<%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_138370.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_138370.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=BFUB4DYZBR8Q1UQOTXBL&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 - 1 Response.Write("

") For i = 0 To numLinks 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("

") %>