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

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

下载此文件

赞 (0)

相关推荐

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

    实在没辙,PJBlog 的垃圾引用防治补丁以及新日志发送失败的修正补丁发布后,天天都有因为修改错误而找上门询问的.为了简化大家的升级步骤,减少升级造成的错误.本人参考了部分前辈的程序后,做出了前面两个补丁的自动安装程序,代码替换,数据库升级都一步到位.恩恩.废话少讲,给下载,大家记得升级前要备份哈,尤其是数据库一定要备份一次. 虽然本程序在本人的本地环境里的全新 PJBlog 上测试成功,但不能排除装过其他插件的博客不会出现问题.如果您升级出现了差错请到:http://www.myyu.net/

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

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

  • Java中弱引用和软引用的区别以及虚引用和强引用介绍

    Java中弱引用和软引用的区别以及虚引用和强引用介绍

    知道弱引用和软引用的概念与如何使用它们是两码事,引用类在垃圾回收工作的过程中有重要作用.我们都知道垃圾回收器会回收符合回收条件的对象的内存,但并不是所有的程序员都知道回收条件取决于指向该对象的引用类型.这正是Java中弱引用和软引用的主要区别.如果一个对象只有弱引用指向它,垃圾回收器会立即回收该对象,这是一种急切回收方式.相对的,如果有软引用指向这些对象,则只有在JVM需要内存时才回收这些对象.弱引用和软引用的特殊行为使得它们在某些情况下非常有用.例如:软引用可以很好的用来实现缓存,当JVM需要

  • AutoIt3和按键精灵的功能对比第1/2页

    第一次用按键精灵是两三年前的事情了,现在硬盘上还保留着 2.65 版呢,也是因为要寻求比它更好的东西而结识了AutoIt,说实话,5.6版除了比2.65版花哨了一些之外,显著的功能增加并没有多少,跟这个版本号不大搭配 按键精灵和AutoIt是两个风格完全不一样的软件 从易用性上讲 按键精灵注重易用性,是傻瓜型的软件,一个完全没有编程基础的人一样可以用按键精灵编写出很好用的脚本 AutoIt更注重功能型,是脚本型的软件,对于没有写过程序的人来说,要能上手写AutoIt的脚本会稍微有点难度 按键精灵

  • ASP.NET中保护自定义的服务器控件

    自定义服务器控件是扩展 ASP.NET Web 服务器控件的功能的一种方式.下文提供了针对自定义服务器控件的用户和开发人员的基本安全准则.有关创建自定义服务器控件的更多信息,请参见开发自定义 ASP.NET 服务器控件. IDE(如 Microsoft Visual Studio 2005)简化了自定义控件的使用及开发.但是,无论使用哪一 IDE,下面列出的安全准则均适用. 有关 ASP.NET Web 应用程序安全性的常规信息,请参见 ASP.NET Web 应用程序安全性. 针对自定义服务器

  • 给Python入门者的一些编程建议

    Python是一种非常富有表现力的语言.它为我们提供了一个庞大的标准库和许多内置模块,帮助我们快速完成工作.然而,许多人可能会迷失在它提供的功能中,不能充分利用标准库,过度重视单行脚本,以及误解Python基本结构等.本文是一个关于Python新手可能会陷入的一些陷阱的不完全列表. 不知道Python版本 这是一个在StackOverflow上反复出现的问题.许多人能写出在某个版本上完美工作的代码,但在他们在自己的系统上安装有不同版本的Python.要确保你知道你正在使用的Python版本. 你

  • C#开发Windows服务实例之实现禁止QQ运行

    C#开发Windows服务实例之实现禁止QQ运行

    本实例主要实现下面三个基本功能 1.C#开发windows服务 2.禁止QQ等程序运行 3.为windows服务创建自动安装程序 下面针对这三个基本功能进行实现 一.C#开发windows服务 Windows服务在VS以前的版本中叫NT服务,在VS.NET启用了新的名称.用C#创建windows服务不是一件困难的事,下页针对服务创建.启动.停止做详细介绍 1.首先在vs中添加一winform程序KillService 2.在解决方案添加新项中添加Windows服务 3.打开服务页面,切换至代码页

  • 详解Android中App的启动界面Splash的编写方法

    一.Splash界面的作用 用来展现产品的Logo 应用程序初始化的操作 检查应用程序的版本 检查当前应用程序是否合法注册 二.界面的xml定义 写一个布局背景设置为产品的logo图片,再添加一个textview显示版本号. <TextView android:id="@+id/tv_splash_version" android:layout_width="wrap_content" android:layout_height="wrap_cont

  • JavaScript垃圾回收机制(引用计数,标记清除,性能优化)

    JavaScript垃圾回收机制(引用计数,标记清除,性能优化)

    目录 一.前言 二.何为垃圾 三.垃圾回收 四.可达性(Reachability) 五.可达性举例 层次关联 相互关联 可达孤岛 六.垃圾回收算法 引用计数 标记清除 七.性能优化 分代回收 增量收集 空闲收集 八.总结 一.前言 垃圾回收是JavaScript的隐藏机制,我们通常无需为垃圾回收劳心费力,只需要专注功能的开发就好了.但是这并不意味着我们在编写JavaScript的时候就可以高枕无忧了,伴随着我们实现的功能越来越复杂,代码量越积越大,性能问题就变的越来越突出.如何写出执行速度更快,

  • pjblog中清空引用的小程序

    sake: 很有用的程序 呵呵 转的,虽然现在打了防垃圾引用的补丁了 转自这里http://bbs.pjhome.net/viewthread.php?tid=12833&extra=page%3D1%26amp%3Bfilter%3D0%26amp%3Borderby%3Ddateline 今天彻底把我若怒了 自己写了一个,先清一下再说 保存到一个asp文件中,放到你BLOG的根目录,运行就OK了,页面中出现的数字是被删除的引用 我今天删了5000-- 复制代码 代码如下: <!--#in

随机推荐