垃圾引用防治补丁以及发送引用修正补丁的自动安装程序


答案：实在没辙，PJBlog 的垃圾引用防治补丁以及新日志发送失败的修正补丁发布后，天天都有因为修改错误而找上门询问的。为了简化大家的升级步骤，减少升级造成的错误。本人参考了部分前辈的程序后，做出了前面两个补丁的自动安装程序，代码替换，数据库升级都一步到位。恩恩。废话少讲，给下载，大家记得升级前要备份哈，尤其是数据库一定要备份一次。
　　虽然本程序在本人的本地环境里的全新 PJBlog 上测试成功，但不能排除装过其他插件的博客不会出现问题。如果您升级出现了差错请到：http://www.myyu.net/2006/12/11/pjblog-anti-spam.html 说明一下。主要是说下安装程序是否有提示安装出错，或者安装完后的出错情况。
　　由于 PJBlog 的静态日志不具备数据更新的能力，所以请不要使用静态日志模式。除非你能勤快的到后台重新生成日志文件，否则在静态日志模式下，会因为日志被引用，KEY 值更新可静态日志没更新为新KEY 值而造成别人无法引用的你旧日志。
　　买一送一，教大家测试下哈。写个新日志，引用框里填上自己博客内的其他日志的引用链接。如果发送成功说明新日志发送引用的补丁安装成功、如果接受引用成功，同时引用地址的KEY自动更换了数字（目前只有动态日志模式可以自动，静态日志模式由于机制问题必须到后台重新生成所有日志文件才能更新），说明垃圾引用防治补丁安装成功。
附：手动安装的教程地址 
http://bbs.pjhome.net/viewthread.php?tid=9491&extra=page%3D1
http://bbs.pjhome.net/viewthread.php?tid=9617&extra=page%3D6
[复制此代码]CODE:

<!--#include file="const.asp" --> 
<!--#include file="conn.asp" --> 
<!--#include file="common/function.asp" --> 
<!--#include file="common/library.asp" --> 
<!--#include file="common/cache.asp" --> 
<!--#include file="common/checkUser.asp" --> 
<!--#include file="class/cls_logAction.asp" --> 
<!--#include file="common/ubbcode.asp" --> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml" lang="UTF-8"> 
<head> 
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> 
    <meta http-equiv="Content-Language" content="UTF-8" /> 
    <title>安装 PJBLOG 垃圾引用防止插件以及写新日志发送引用失败的修正补丁</title> 
</head> 
<body> 
<div id="main" style="text-align:center"> 
请升级前，备份好你的数据库。然后点击下面的按钮开始更新。 
<div id="button" style="text-align:center"> 
<form id="form1" name="form1" method="post" action="?act=go"> 
  <label> 
  <input type="submit" name="Submit" value="点击开始更新！" /> 
  </label> 
</form> 
</div> 
<% 
'on error resume next 
if err then err.clear 
session.codepage=65001 
Private function LoadFile(ByVal File) 
  Dim cacheStream 
  Set cacheStream = Server.CreateObject("ADODB.Stream") 
      With cacheStream 
        .Type = 2 
        .Mode = 3 
        .Open 
        .Charset = "utf-8" 
        .Position =cacheStream.Size 
        .LoadFromFile Server.MapPath(File) 
        LoadFile=.ReadText 
        .Close 
    End With   
End function 
Private Function SaveFile(ByVal strBody,ByVal File) 
    Dim objStream 
    Dim RText 
    RText="" 
    Set objStream = Server.CreateObject("ADODB.Stream") 
    If Err Then  
        RText=array(Err.Number,Err.Description) 
        Err.Clear 
        exit function 
    End If 
    With objStream 
        .Type = 2 
        .Open 
        .Charset = "utf-8" 
        .Position = objStream.Size 
        .WriteText = strBody 
        .SaveToFile Server.MapPath(File),2 
        .Close 
    End With 
    RText="ok" 
    SaveFile=RText 
    Set objStream = Nothing 
End Function 
Private Function replaceStr(FileName,IntStr,FinStr) 
Dim loadStr 
loadStr=LoadFile(FileName) 
if instr(loadStr,IntStr)<>0 then 
   SaveFile loadStr,FileName&"_temp" 'backup! 
   loadStr=replace(loadStr,IntStr,FinStr) 
   SaveFile loadStr,FileName 
   replaceStr=true 
Else 
   replaceStr=false 
End if 
loadStr="" 
End Function  
Private Function DeleteFile(FilePath) 
  Dim FSO 
  Set FSO=Server.CreateObject("Scripting.FileSystemObject") 
  IF FSO.FileExists(server.mapPath(FilePath)) Then 
    FSO.DeleteFile server.mapPath(FilePath),True 
    DeleteFile = True 
  Else 
    DeleteFile = false 
  End IF 
  Set FSO = Nothing 
End Function 

If request("act")="go" then 
    '=====Start============ 
    Dim TempStr,result,aspOpen,aspClz,Er 
    Er="" 
    result="" 
    aspOpen=chr(60)&chr(37) 
    aspClz=chr(37)&chr(62) 
    if Er="" then 
       result=replaceStr("trackback.asp","    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","if StrComp(Request.QueryString(""key""),blog_tbKey)=0 Then"&vbcrlf&_ 
""&vbcrlf&_     
"    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") 
       if not result then Er=Er&"trackback.asp 文件修改第一步出错！<br>" 
    End if 
    if Er="" then 
       result=replaceStr("trackback.asp","            tbResponseXML 1,""此引用通告中包含被屏蔽的字符""","            tbResponseXML 1,""此引用通告中包含被屏蔽的字符"""&vbcrlf&_ 
"   end if"&vbcrlf&_ 
""&vbcrlf&_ 
"else"&vbcrlf&_ 
"            tbResponseXML 1,""嘿！你小子搞错地址了吧！""") 
       if not result then Er=Er&"trackback.asp 文件修改第二步出错！<br>" 
    End if 
    if Er="" then 
       result=replaceStr("trackback.asp","            Conn.Execute(""UPDATE blog_Info Set blog_tbNums=blog_tbNums+1"")","            Conn.Execute(""UPDATE blog_Info Set blog_tbNums=blog_tbNums+1"")"&vbcrlf&_ 
"            dim tbKey"&vbcrlf&_ 
"            RANDOMIZE"&vbcrlf&_ 
"            tbKey=int(900000*rnd)+100000"&vbcrlf&_ 
"            Conn.Execute(""UPDATE blog_Info Set blog_tbKey=""&tbKey)") 
       if not result then Er=Er&"trackback.asp 文件修改第三步出错！<br>" 
    End if 
    if Er="" then 
       result=replaceStr("class/cls_logAction.asp","SiteURL&""trackback.asp?tbID=""&LogID","SiteURL&""trackback.asp?tbID=""&LogID&""&key=""&blog_tbKey") 
       if not result then Er=Er&"cls_logAction.asp 文件第一步修改出错！<br>" 
    End if 
    if Er="" then 
       result=replaceStr("class/cls_logAction.asp","Dim log_QuoteEvery,log_QuoteArr","Dim log_QuoteEvery,log_QuoteArr,logid,LastID"&vbcrlf&_ 
"                 set LastID=Conn.Execute(""SELECT TOP 1 log_ID FROM blog_Content ORDER BY log_ID DESC"")"&vbcrlf&_ 
"                 logid=LastID(""log_ID"")") 
       if not result then Er=Er&"cls_logAction.asp 文件第二步修改出错！<br>" 
    End if 
    if Er="" then 
       result=replaceStr("class/cls_logAction.asp","Trackback Trim(log_QuoteEvery), siteURL&""default.asp?id=""&logid, logTitle, CutStr(CheckStr(logIntro),252), siteName","Trackback Trim(log_QuoteEvery), siteURL&""default.asp?id=""&logid, logTitle, CutStr(CheckStr(logIntro),252), siteName"&vbcrlf&_ 
"                 set LastID=Nothing") 
       if not result then Er=Er&"cls_logAction.asp
上一个：插件下载┊垃圾引用防御补丁（每小时自动换KEY，支持静态页面）
下一个：ASP实现长文章分页
更多图片编程知识: