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

    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>"
    End if

    if Er="" then
       result=replaceStr("Template/Article.asp","<a href=""<$trackback$>"" target=""_blank""><$trackback$></a><br/>","<span id=tburl><a href=""javascript:showTrackBack()"">查看引用地址</a></span><br/>"&vbcrlf&_
"<script type=""text/javascript"">"&vbcrlf&_
"// 引用地址显示"&vbcrlf&_
"function showTrackBack(){"&vbcrlf&_
"        var tb_url_text "&vbcrlf&_
"        tb_url_text = '<a href=""<$trackback$>"" target=""_blank""><$trackback$></a>'"&vbcrlf&_
"        document.getElementById(""tburl"").innerHTML = tb_url_text"&vbcrlf&_
"}"&vbcrlf&_
"</script>")
       if not result then Er=Er&"Article.asp 文件修改出错！<br>"
    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 文件第一步修改出错！<br>"
    End if    

    if Er="" then
       result=replaceStr("class/cls_article.asp","<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/>"&vbcrlf&_
"<script type=""text/javascript"">"&vbcrlf&_
"// 引用地址显示"&vbcrlf&_
"function showTrackBack(){"&vbcrlf&_
"        var tb_url_text "&vbcrlf&_
"        tb_url_text = '<a href=""<(SiteURL&""trackback.asp?tbID=""&id&""&key=""&blog_tbKey)>"" target=""_blank""><(SiteURL&""trackback.asp?tbID=""&id&""&key=""&blog_tbKey)></a><br/>'"&vbcrlf&_
"        document.getElementById(""tburl"").innerHTML = tb_url_text"&vbcrlf&_
"}"&vbcrlf&_
"</script>")
       if not result then Er=Er&"cls_article.asp 文件第二步修改出错！<br>"
    End if