静态页面插入Text Link Ads代码的方法

大部分代码还是来自Text Link Ads，我只是补充了一下，让它能在静态页面上生效而已。

不提倡什么版权不版权的了，需要的拿过去用吧，但需要的是参数改一下。

1、把 local_93558.xml 这个文件名换成你自己的文件名。在第14行。

2、被调用的静态文件存储成了tla.htm，根据需要改一下，117行。

3、这个代码默认是存储到根目录下，文件名为tla.asp，若不喜欢则修改一下路径，第115行。

4、调用方法：

  1. <!--#include virtual="/tla.htm" -->

若你的是虚拟主机，可能不支持SSI引用，自己想一想解决方法，或者你可以把下面的输出部分的代码改成js输出，然后用

  1. <script src="/tla.asp"></script>

方式插入进来，至于会不会被Text Link Ads允许，这个我就不清楚了。

设置方式比较烦琐，不太喜欢这种设置方法，那就别看下去了。

  1. <%@ Language=VBScript %>
  2. <%
  3. ' Local file to store XML
  4. ' You must create a blank file named "local_93558.xml" in the same
  5. ' directory as this script. It MUST be writable by the web
  6. ' server. On unix you would CHMOD 666 the file. On Windows
  7. ' you will need to access your custom control panel to set
  8. ' the permissions or contact your hosting company.
  9.  
  10. Const ForReading = 1, ForWriting = 2
  11.  
  12. Dim LOCAL_XML_FILENAME, sourceFile, FSO
  13.  
  14. LOCAL_XML_FILENAME = server.MapPath("local_93558.xml")
  15. sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=KVS2ZE0NSH8E0EU1U5OH&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT"))
  16. Set FSO = server.createObject("Scripting.FileSystemObject")
  17.  
  18. ' update local XML
  19. Dim DateMod, MonthString, DayString, DateModFile, DateModLimit
  20.  
  21. DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified
  22.  
  23. MonthString = Month(DateMod)
  24. If (MonthString < 10) Then
  25.         MonthString = "0" & MonthString
  26. End If
  27.  
  28. DayString = Day(DateMod)
  29. If (DayString < 10) Then
  30.         DayString = "0" & DayString
  31. End If
  32.  
  33. DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod)
  34.  
  35. MonthString = Month(Date)
  36. If (MonthString < 10) Then
  37.         MonthString = "0" & MonthString
  38. End If
  39.  
  40. DayString = Day(Date)
  41. If (DayString < 10) Then
  42.         DayString = "0" & DayString
  43. End If
  44.  
  45. DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now)
  46.  
  47. Dim Contents, Result, xmlhttp, TextStream
  48.  
  49. ' read local XML
  50. Contents = ""
  51. Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2)
  52. Do While Not TextStream.AtEndOfStream
  53.         Contents = Contents & TextStream.ReadLine
  54. Loop
  55. TextStream.Close
  56. Set TextStream = nothing
  57.  
  58. If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then
  59.         ' fetch remote XML
  60.         Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
  61.         xmlhttp.open "GET", sourceFile, False
  62.         xmlhttp.send ""
  63.         Result = xmlhttp.responseText
  64.         If (Result <> "") Then
  65.                 Contents = Result
  66.         End If
  67.  
  68.         ' write new XML to local file
  69.         Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True)
  70.         TextStream.Write Contents
  71.         TextStream.Close
  72.         Set TextStream = nothing
  73. End If
  74.  
  75. ' parse local XML
  76. Dim source
  77. Set source = Server.CreateObject("Microsoft.XMLDOM")
  78. source.async = false
  79. source.loadXML(Contents)
  80.  
  81. ' Output links
  82. Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText
  83.  
  84. Set objLst = source.getElementsByTagName("Link")
  85. numLinks = objLst.length - 1
  86.  
  87. Dim outhtm
  88.  
  89. outhtm="<ul>"
  90. For i = 0 To numLinks
  91.         Set objLink = objLst.item(i)
  92.         Set objLinkChildren = objLink.childNodes
  93.         URL = ""
  94.         Text = ""
  95.         BeforeText = ""
  96.         AfterText = ""
  97.  
  98.         For Each linkNode In objLinkChildren
  99.                 If linkNode.nodeName = "URL" Then
  100.                         URL = linkNode.text
  101.                 End If
  102.                 If linkNode.nodeName = "Text" Then
  103.                         Text = linkNode.text
  104.                 End If
  105.                 If linkNode.nodeName = "BeforeText" Then
  106.                         BeforeText = linkNode.text
  107.                 End If
  108.                 If linkNode.nodeName = "AfterText" Then
  109.                         AfterText = linkNode.text
  110.                 End If
  111.         Next
  112.  
  113.         outhtm=outhtm&"<li>" & BeforeText & "<a href=""" & URL & """>" & Text & "</a>" & AfterText & "</li>"
  114. Next
  115. outhtm=outhtm&"</ul><script src=""/tla.asp""></script>"
  116.  
  117. savetofile "tla.htm",outhtm
  118.  
  119.  
  120. 'savetofile  *** Copyright &copy KingCMS.com All Rights Reserved. ***
  121. public sub savetofile(l1,l2)'地址,内容
  122.         dim l3
  123.         on error resume next
  124.         set l3=server.createobject("ADODB.Stream")
  125.       
  126.         with l3
  127.                 .type=2
  128.                 .open
  129.                 .charset="UTF-8"
  130.                 .position=l3.Size
  131.                 .writetext=l2
  132.                 .savetofile server.mappath(l1),2
  133.                 .close
  134.         end with
  135.         set l3=nothing
  136.         if err.number<>0 then
  137.                 err.clear
  138.         end if
  139. end sub
  140.  
  141.  
  142. %>
点此注册Text Link Ads 开始你的博客赚钱之旅吧 - 详细中文注册教程点这里

Text Link Ads相关的知识

更多关于text link ads 的内容，请查看 text link ads专题。

来源：发布者论坛。