非Wordpress用户安装Text Link Ads广告代码的方法
Posted on 12月 4th, 2007 in 博客赚钱技巧, 博客赚钱渠道 | No Comments »
摇钱树博客在前面的文章中介绍了Text Link Ads这种通过出售网站链接来赚钱的方法，而且通过笔者的测试，该赚钱渠道确实可行。你可以在Text Link Ads注册申请中文详细教程 附图 一文中找到详细的注册教程，关于Text Link Ads广告代码的安装，如果你用的是WordPress的话，请参考Text Link Ads中文教程之使用攻略一文。Text Link Ads广告代码的安装对于WordPress用户来说还是比较方便的，考虑到国内很多博主们并非使用WordPress，比如国内非常流行的PJblog、ZBLOG、LBS等。本文就来具体说说非WordPress用户如何安装Text Link Ads广告代码。
获取Text Link Ads广告代码的过程就不多说了，不清楚的话可以参考Text Link Ads中文教程之使用攻略一文。
先说说使用ASP博客系统的用户如PJblog、ZBLOG、LBS等如何安装Text Link Ads广告代码。
首先就是按照Text Link Ads的提示创建一个空的XML文件，注意这个XML文件必须是可写的，而且要放在Text Link Ads广告代码的同一个目录下。如果你实在不知道这个文件应该放在哪里的话，你就只好在你的每个目录下都放一个这样的XML文件好了。放好Text Link Ads的XML文件之后就开始着手放置广告代码了。
具体步骤如下：
一、把你获得的代码另存为 tla.asp（文件名可以修改） ，然后修改 tla.asp 中的代码：
<%@ Language=VBScript %>
<%
改为：
<script language="VBScript" runAt="Server">
把最后面的
%>
改为：
</script>
然后在代码
Response.Write("<ul style=
前面加上：
Function TLA()
接着在代码：
Response.Write("</ul>")
后面加上：
End function
改完后的广告代码如下图所示：
二、在你在要显示 Text Link Ads 的页面头部添加：<!--#include file="tla.asp"-->
然后在要显示 Text Link Ads 的位置添加：<%TLA()%>
再来说说静态页面插入Text Link Ads代码的方法。
具体的参数要根据你自己的情况作改动。
1、把 local_93558.xml 这个文件名换成你自己的文件名。在第14行。
2、被调用的静态文件存储成了tla.htm，根据需要改一下，117行。
3、这个代码默认是存储到根目录下，文件名为tla.asp，若不喜欢则修改一下路径，第115行。
4、调用方法：
- <!–#include virtual=”/tla.htm” –>
若你的是虚拟主机，可能不支持SSI引用，自己想一想解决方法，或者你可以把下面的输出部分的代码改成js输出，然后用
- <script src=”/tla.asp” mce_src=”/tla.asp”></script>
方式插入进来，至于会不会被Text Link Ads允许，这个我就不清楚了。
- <%@ Language=VBScript %>
- <%
- ‘ Local file to store XML
- ‘ You must create a blank file named “local_93558.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_93558.xml”)
- 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”))
- 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
- Dim outhtm
- outhtm=”<ul>”
- 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
- outhtm=outhtm&”<li>” & BeforeText & “<a href=”" mce_href=”"” & URL & “”">” & Text & “</a>” & AfterText & “</li>”
- Next
- outhtm=outhtm&”</ul><script src=”" mce_src=”"/tla.asp”"></script>”
- savetofile “tla.htm”,outhtm
- ’savetofile *** Copyright © KingCMS.com All Rights Reserved. ***
- public sub savetofile(l1,l2)’地址,内容
- dim l3
- on error resume next
- set l3=server.createobject(”ADODB.Stream”)
- with l3
- .type=2
- .open
- .charset=”UTF-8″
- .position=l3.Size
- .writetext=l2
- .savetofile server.mappath(l1),2
- .close
- end with
- set l3=nothing
- if err.number<>0 then
- err.clear
- end if
- end sub
- %>
