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

<%
‘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 文件修改第一步出错！
”
    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 文件修改第二步出错！
”
    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 文件修改第三步出错！
”
    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 文件第一步修改出错！
”
    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 文件第二步修改出错！
”
    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 文件第三步修改出错！
”
    End if

    if Er=”” then
       result=replaceStr(“Template/Article.asp”,””” target=””_blank””>
“,”查看引用地址
“&vbcrlf&_
“”)
       if not result then Er=Er&”Article.asp 文件修改出错！
”
    End if

    if Er=”” then
       result=replaceStr(“class/cls_article.asp”,”%=(SiteURL&””trackback.asp?tbID=””&id)%”,”(SiteURL&””trackback.asp?tbID=””&id)”)
       if not result then Er=Er&”cls_logAction.asp 文件第一步修改出错！
”
    End if    

    if Er=”” then
       result=replaceStr(“class/cls_article.asp”,””” target=””_blank””>
“,”查看引用地址
“&vbcrlf&_
“”)
       if not result then Er=Er&”cls_article.asp 文件第二步修改出错！
”
    End if

    if Er=”” then
       result=replaceStr(“class/cls_article.asp”,”(SiteURL&””trackback.asp?tbID=””&id&””&key=””&blog_tbKey)”,”%=(SiteURL&””trackback.asp?tbID=””&id&””&key=””&blog_tbKey)%”)
       if not result then Er=Er&”cls_logAction.asp 文件第三步修改出错！
”
    End if

    if Er=”” then
    Conn.Execute(“ALTER TABLE blog_Info ADD blog_tbKey INT”)
    Conn.Execute(“UPDATE blog_Info Set blog_tbKey=123456”)
    else
    Er=Er&”数据库升级失败。”
    End if

    if Er=”” then
       result=replaceStr(“common/cache.asp”,”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”)
       if not result then Er=Er&”cache.asp 文件第一步修改出错！
”
    End if

    if Er=”” then
       result=replaceStr(“common/cache.asp”,”””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”” & _”)
       if not result then Er=Er&”cache.asp 文件第二步修改出错！
”
    End if

    if Er=”” then
       result=replaceStr(“common/cache.asp”,”blog_wapURL=CBool(blog_Infos(44,0))’使用 wap 转换文章超链接”,”blog_wapURL=CBool(blog_Infos(44,0))’使用 wap 转换文章超链接”&vbcrlf&_
”       blog_tbKey=int(blog_Infos(45,0))’引用验证Key”)
       if not result then Er=Er&”cache.asp 文件第三步修改出错！
”
    End if

    If Er”” then
       response.write Er&”
如果未能解决请到http://www.alonefly.com/blog留言。”
    Else
       if not  DeleteFile(“tbspam_update.asp”) then
          response.write “请手动删除 tbspam_update.asp 文件！
”
        Else
          response.write “tbspam_update.asp 文件已经自动删除！
”
       End if
       Response.write “更新完成！
所有更新文件已经备份！名为: 原文件名_temp ！”
    End if
End if

if err0 then
   response.Write err & Err.Description & Err.Source
End if
%>