源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2020-08-22 02:56 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:垃圾引用防治补丁以及发送引用修正补丁的自动安装程序
实在没辙,[url=http://www.pjhome.net/]PJBlog[/url] 的垃圾引用防治补丁以及新日志发送失败的修正补丁发布后,天天都有因为修改错误而找上门询问的。为了简化大家的升级步骤,减少升级造成的错误。本人参考了部分前辈的程序后,做出了前面两个补丁的自动安装程序,代码替换,数据库升级都一步到位。恩恩。废话少讲,给下载,大家记得升级前要备份哈,尤其是数据库一定要备份一次。   虽然本程序在本人的本地环境里的全新 [url=http://www.pjhome.net/]PJBlog[/url] 上测试成功,但不能排除装过其他插件的博客不会出现问题。如果您升级出现了差错请到:[url=http://www.myyu.net/2006/12/11/pjblog-anti-spam.html]http://www.myyu.net/2006/12/11/pjblog-anti-spam.html[/url] 说明一下。主要是说下安装程序是否有提示安装出错,或者安装完后的出错情况。   由于 [url=http://www.pjhome.net/]PJBlog[/url] 的静态日志不具备数据更新的能力,所以请不要使用静态日志模式。除非你能勤快的到后台重新生成日志文件,否则在静态日志模式下,会因为日志被引用,KEY 值更新可静态日志没更新为新KEY 值而造成别人无法引用的你旧日志。   买一送一,教大家测试下哈。写个新日志,引用框里填上自己博客内的其他日志的引用链接。如果发送成功说明新日志发送引用的补丁安装成功、如果接受引用成功,同时引用地址的KEY自动更换了数字(目前只有动态日志模式可以自动,静态日志模式由于机制问题必须到后台重新生成所有日志文件才能更新),说明垃圾引用防治补丁安装成功。 附:手动安装的教程地址  [url=http://bbs.pjhome.net/viewthread.php?tid=9491]http://bbs.pjhome.net/viewthread.php?tid=9491[/url]&extra=page%3D1 [url=http://bbs.pjhome.net/viewthread.php?tid=9617]http://bbs.pjhome.net/viewthread.php?tid=9617[/url]&extra=page%3D6
[url=]"<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>
[img]http://www.1sucai.cn/images/download.gif[/img] 下载此文件[/url]
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部