先强调一下，修改所有文件之前请先做好备份，有什么事我可负担不起哟！！！

首先在数据库的 blog_Info 表内增加一个字段，字段名称为 blog_tbKey ，数据类型为数字。并且填入任意数字为值。这一步千万别忘记哦~！www.x-force.cn

If Conn.Execute("Select count(tb_ID) FROM blog_Trackback Where blog_ID="&tbID&" AND tb_URL='"&tbURL&"' AND tb_Title='"&tbTitle&"' AND tb_Intro='"&tbExcerpt&"' AND tb_Site='"&tbBlog&"'")(0)>0 Then
tbResponseXML 1,"此引用通告已发送！"
end if

if filterSpam(tbExcerpt & tbURL,"spam.xml") then
tbResponseXML 1,"此引用通告中包含被屏蔽的字符"
end if

if StrComp(Request.QueryString("key"),blog_tbKey)=0 Then

if Conn.Execute("Select count(tb_ID) FROM blog_Trackback Where blog_ID="&tbID&" AND tb_URL='"&tbURL&"' AND tb_Title='"&tbTitle&"' AND tb_Intro='"&tbExcerpt&"' AND tb_Site='"&tbBlog&"'")(0)>0 Then
tbResponseXML 1,"此引用通告已发送！"
end if

if filterSpam(tbExcerpt & tbURL,"spam.xml") then
tbResponseXML 1,"此引用通告中包含被屏蔽的字符"
end if

else
tbResponseXML 1,"嘿！你小子搞错地址了吧！"
end if

Conn.Execute("Insert INTO blog_TrackBack (blog_ID, tb_URL, tb_Title, tb_Intro, tb_Site, tb_PostTime) VALUES ("&tbID&",'"&tbURL&"','"&tbTitle&"','"&tbExcerpt&"','"&tbBlog&"',Now())")
Conn.Execute("Update blog_Content SET log_QuoteNums=log_QuoteNums+1 Where log_ID="&tbID)
Conn.Execute("Update blog_Info Set blog_tbNums=blog_tbNums+1")

dim tbKey
RANDOMIZE
tbKey=int(900000*rnd)+100000
Conn.Execute("Insert INTO blog_TrackBack (blog_ID, tb_URL, tb_Title, tb_Intro, tb_Site, tb_PostTime) VALUES ("&tbID&",'"&tbURL&"','"&tbTitle&"','"&tbExcerpt&"','"&tbBlog&"',Now())")
Conn.Execute("Update blog_Content SET log_QuoteNums=log_QuoteNums+1 Where log_ID="&tbID)
Conn.Execute("Update blog_Info Set blog_tbNums=blog_tbNums+1")
Conn.Execute("Update blog_Info Set blog_tbKey="&tbKey)

SiteURL&"trackback.asp?tbID="&LogID

SiteURL&"trackback.asp?tbID="&LogID&"&key="&blog_tbKey

<a href="<$trackback$>" target="_blank"><$trackback$></a><br/>

<span id=tburl><a href="javascript:showTrackBack()">查看引用地址</a></span><br/>
<script type="text/javascript">
// 引用地址显示
function showTrackBack(){
var tb_url_text
tb_url_text = '<a href="<$trackback$>" target="_blank"><$trackback$></a>'
document.getElementById("tburl").innerHTML = tb_url_text
}
</script>

<a href="<%=(SiteURL&"trackback.asp?tbID="&id)%>" target="_blank"><%=(SiteURL&"trackback.asp?tbID="&id)%></a><br/>

<span id=tburl><a href="javascript:showTrackBack()">查看引用地址</a></span><br/>
<script type="text/javascript">
// 引用地址显示
function showTrackBack(){
var tb_url_text
tb_url_text = '<a href="<%=(SiteURL&"trackback.asp?tbID="&id&"&key="&blog_tbKey)%>" target="_blank"><%=(SiteURL&"trackback.asp?tbID="&id&"&key="&blog_tbKey)%></a>'
document.getElementById("tburl").innerHTML = tb_url_text
}
</script>

Dim blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL

Dim blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL,blog_tbKey

"blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL

"blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL,blog_tbKey

blog_wapURL=CBool(blog_Infos(44,0))'使用 wap 转换文章超链接

blog_tbKey=int(blog_Infos(45,0))'引用验证Key

对于很多朋友来说，上面的秃长的代码足以让大家心烦的了～

幸好，还有 AloneFly 这位高手给我们编写了PJBlog垃圾引用防治以及发送引用修正补丁的自动安装程序，大家不用再繁琐的去改代码了。。
这个补丁的自动安装程序对代码进行替换、数据库升级都是一步到位的，大大的简化了升级步骤，减少升级造成错误。

不过在大家升级前记得要备份啊！！！尤其是数据库一定要备份一次。

虽然本程序在本地环境里的全新 PJBlog 上测试成功，但不能排除装过其他插件的博客不会出现问题。如果您升级出现了差错可以到AloneFly那里说明一下。主要是说下安装程序是否有提示安装出错，或者安装完后的出错情况。

安装说明：
1. 将下载回去的文件解压，得到一个 up.asp 文件
2. 将这个up.asp上传到您的空间
3. 备份好你现在的数据库和文件
4. 在浏览器访问这个文件，如 http://www.x-force.cn/up.asp (这里是你的up.asp文件的地址)
5. 单击页面的按钮开始更新

声明一下：这个升级程序版权归原作者 AloneFly 所有