pjblog垃圾引用防治补丁

垃圾引用防治补丁 每小时自动更新引用连接[求精]

发 布 人: 向导
    补 丁 名: 防御垃圾引用补丁
    发布时间: 2007-1-4
    版 本 号: 第2版
    适用版本: PJblog 2.6
    原 作 者: 向导

      插件简介: 能有效防止垃圾引用。加密递交地址，第2版增加KEY验证，并每小时自动更换一次key。本版本不支持静态页模式，静态页模式版稍候提供。
引用通告地址: trackback.asp?tbID=JNKRQOF8&key=JOKNPNKOQPMPPMC0
 

具体安装方法如下:
文件trackback.asp
查找
tbID = CheckStr(Request.QueryString("tbID"))
替换成
tbID = Decrypt(CheckStr(Request.QueryString("tbID")))

查找
If Not (IsInteger(Request.QueryString("tbID")) AND IsInteger(Request.QueryString("logID"))) Then
替换成
If Not IsInteger(Decrypt(Request.QueryString("tbID"))) AND IsInteger(Request.QueryString("logID")) Then

查找
Where blog_ID="&logID&" AND tb_ID="&CheckStr(Request.QueryString("tbID"))
替换成
Where blog_ID="&logID&" AND tb_ID="&Decrypt(CheckStr(Request.QueryString("tbID")))
**有2处


查找
'==================================
'  引用通告处理页面
'    更新时间: 2006-6-1
'==================================
在下面加入

dim keys,keys1
keys=Request.QueryString("key")
keys1=Encrypt((year(now))&(Month(now))&(day(now))&hour(now()))
if keys<>keys1 then
                Response.contentType="text/xml"
                Response.write "<?xml version=""1.0"" encoding=""UTF-8""?><?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
                %>
                <response><error>1</error><message>您递交的信息已过期.请检查...</message></response>
                <%
else


dim strget
        strget=trim(Request.QueryString("tbID"))
        if len(strget) > 8 then
                Response.contentType="text/xml"
                Response.write "<?xml version=""1.0"" encoding=""UTF-8""?><?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
                %>
                <response><error>1</error><message>您递交的信息有错误.请检查...</message></response>
                <%
else

  dim tbIDs
  tbIDs = Decrypt(CheckStr(Request.QueryString("tbID")))
  
                if tbIDs < 1 then
                Response.contentType="text/xml"
                Response.write "<?xml version=""1.0"" encoding=""UTF-8""?><?xml-stylesheet type=""text/xsl""