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

实在没辙，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>

下载此文件

时间： 2024-11-01 01:47:49

垃圾引用防治补丁以及发送引用修正补丁的自动安装程序_应用技巧的相关文章

一想千开PJblog审核功能补丁 v2.0版 发布第1/3页_应用技巧

这次这个补丁,应该说和上和是没有多少关系的,是完全重新编写的.但为了不和上次发布的那个补丁混淆,给这个补丁加个版本号2.0. 一.PJblog审核功能补丁v2.0对PJblog功能上的改进 1.重大改进:一想千开首创"敏感字"概念并引入应用到PJblog审核功能补丁v2.0   什么是"敏感字"?一想千开对"敏感字"的定义是这样的:含有"敏感字"的言论有可能是非法言论,也有可能是正常言论.这类词语我们不能直接加进"过

阿里大鱼简单发送短信功能.net core版_实用技巧

阿里大鱼还未提供 .net core 版SDK,但提供了相关API,下面是.net core版实现,只是简单发送短信功能:  using System; using System.Collections.Generic; using System.IO; using System.Net; using System.Security.Cryptography; using System.Text; using Newtonsoft.Json; namespace ConsoleApp1 { pu

插件下载┊垃圾引用防御补丁（每小时自动换KEY，支持静态页面）_应用技巧

发 布 人: 向导    补 丁 名: 垃圾引用防御补丁    发布时间: 2007-1-4    版 本 号: 第3版    适用版本: PJblog 2.6    原 作 者: 向导    演示地址: http://www.hljsh.com/    下载地址: http://bbs.pjhome.net/attachment.php?aid=2143    插件简介: 能有效防止垃圾引用.加密递交地址,第2版增加KEY验证,并每小时自动更换一次key.    本版本不修改数据库,只修改了4

多线程-Delphi的线程同步的Mutex是引用计数的吗？引用计数的作用是什么？

问题描述 Delphi的线程同步的Mutex是引用计数的吗?引用计数的作用是什么? Delphi的线程同步的Mutex是引用计数的吗?引用计数的作用是什么? 解决方案 Mutex是互斥量,并且Mutex是可以跨进程的,所以开销比较大,它是操作系统封装的.它的用处,比如防止程序多开,进程同步等等. 线程同步用信号量临界区就可以了. 引用计数有不同的含义,通常我们说是指com对象的垃圾回收机制.com对象每创建一个引用指向它,引用计数+1,不再引用就-1,如果引用计数为0,代表com对象可以垃圾回收

引用形参 指针形参-关于引用形参和指针形参的形参的理解问题

问题描述 关于引用形参和指针形参的形参的理解问题 自己总是认为指针形参和引用形参的区别很小,他们都可以对实参进行改变想了解一下他们的具体区别??? 解决方案 指针,引用都可以修改所指向的内容.这点是他们最大的共同点,也是他们使用最多的地方.区别是指针可以为空,而引用不能为空引用. 解决方案二: 标准 C 中是没有引用形参的,只能使用指针形参.C++ 引入指针形参是为了降低指针灵活性带来的风险,指针形参不仅可以将数据的引用传入函数,还可以在函数内改变这个指针,也就是说在函数内部可以改变调用域的变量

引用函数-c++怎么在view里的一个函数引用的函数里再引用一个函数？

问题描述 c++怎么在view里的一个函数引用的函数里再引用一个函数? 下面第一个函数就是我想要在第二个函数里面用的,而第二个函数是第一个引用的 void CZHANGMIN1View::InsertSort(unsigned char pArray, int iLength) { unsigned char tmp; int i, j; for(i = 1; i < iLength; i++) { j = i-1; tmp = pArray[i]; while(j >= 0 &&am

WeakReference(弱引用)让GC需要时回收对象_实用技巧

我们平常用的都是对象的强引用,如果有强引用存在,GC是不会回收对象的.我们能不能同时保持对对象的引用,而又可以让GC需要的时候回收这个对象呢?.NET中提供了WeakReference来实现.弱引用可以让您保持对对象的引用,同时允许GC在必要时释放对象,回收内存.对于那些创建便宜但耗费大量内存的对象,即希望保持该对象,又要在应用程序需要时使用,同时希望GC必要时回收时,可以考虑使用弱引用.弱引用使用起来很简单,看下面的代码: 复制代码 代码如下: Object obj = new Object(

spring jpa 实体互相引用返回restful数据循环引用报错的问题

spring jpa 实体互相引用返回restful数据循环引用报错的问题 Java实体里两个对象有关联关系,互相引用,比如,在一对多的关联关系里 Problem对象,引用了标签列表ProblemLabel ProblemLabel对象,引用了所属Problem 这样构成了互相引用,导致递归循环内存溢出异常: org.springframework.http.converter.HttpMessageNotWritableException: Could not write content: I

① 在对象被垃圾回收器回收的时候，析构函数被GC自动调用 ②当对象即将离开作用域时，系统自动调用对象的的析构函数

问题描述 资料上说:①当对象即将离开作用域时,系统自动调用对象的的析构函数②在对象被垃圾回收器回收的时候,析构函数被GC自动调用-----------------------------------------------所以我就迷惑:当对象即将离开作用域时,即使垃圾回收器没有回收,系统也会自动调用对象的的析构函数吗?还是垃圾回收器与析构函数是"捆绑"在一起的?(即析构函数只有在垃圾回收器回收时才会被调用,其他任何情况析构函数都不会被调用,析构函数被系统调用说明垃圾回收器在执行回收工作