程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 垃圾引用防治補丁以及發送引用修正補丁的自動安裝程序

垃圾引用防治補丁以及發送引用修正補丁的自動安裝程序

日期:2017/1/11 9:27:43      編輯:關於ASP編程
實在沒轍,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
復制代碼 代碼如下:
<!--#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 文件第三步修改出錯!<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

    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 文件第三步修改出錯!<br>"
    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 文件第一步修改出錯!<br>"
    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 文件第二步修改出錯!<br>"
    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 文件第三步修改出錯!<br>"
    End if

    If Er<>"" then
       response.write Er&"<br>如果未能解決請到<a href='http://www.alonefly.com/blog' target='_blank'>http://www.alonefly.com/blog</a>留言。"
    Else
       if not  DeleteFile("tbspam_update.asp") then
          response.write "請手動刪除 tbspam_update.asp 文件!<br>"
        Else
          response.write "tbspam_update.asp 文件已經自動刪除!<br>"
       End if
       Response.write "更新完成!<br>所有更新文件已經備份!名為: 原文件名_temp !"
    End if
End if

if err<>0 then
   response.Write err & Err.Description & Err.Source
End if
%>
</div>
</body>
</html>


下載文件 下載此文件
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved