垃圾引用防治补丁以及发送引用修正补丁的自动(4)

    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 文件第三步修改出错！<br>"