There is nothing to do, pjblog garbage reference to prevent patches and new log to send failed fixes issued after the release, every day because of the error of modification and find door-to-door inquiries. To simplify the upgrade process, reduce the error caused by the upgrade. I refer to some predecessors of the program, made the previous two patches of the automatic installation program, code replacement, database upgrade is a step in place. nn Less talk, to download, you remember to upgrade before you want to back up Kazakhstan, especially the database must be backed up once.
Although this program in my local environment in the new Pjblog test successfully, but can not exclude the installation of other Plug-ins blog will not be a problem. If you have errors in the upgrade, please go to: http://www.myyu.net/2006/12/11/pjblog-anti-spam.html explain. The main is to say whether the installation program is prompted to install errors, or after the installation of the error situation.
Because pjblog static logs do not have the ability to update data, do not use the static log mode. Unless you can work hard to rebuild the log file in the background, otherwise, in static log mode, because the log is referenced, the key value update can be static log not updated to the new key value and cause others can not quote your old ambition.
Buy one send one, teach everyone test ha. Write a new journal, refer to the box to fill in the other log in your blog reference link. If you send a successful note that the new log sends a reference to the patch installation is successful, if the reference is successful, the key to the reference address is automatically replaced by the number (currently only dynamic log mode can be automated, static log mode due to the mechanism of the problem must be rebuilt in the background all log files to update) Indicates that the garbage reference control patch was successfully installed.
<!--#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 ">
<meta http-equiv= "Content-type" content= "text/html; Charset=utf-8 "/>
<meta http-equiv= "Content-language" content= "UTF-8"/>
<title> install Pjblog garbage reference to prevent plugin and write new log to send reference failed fix patch </title>
<body>
<div id= "main" style= "Text-align:center" >
Please back up your database before upgrading. Then click the button below to start the update.
<div id= "button" style= "Text-align:center" >
<form id= "Form1" Name= "Form1" method= "Post" action= "Act=go" >
<label>
<input type= "Submit" name= "Submit" value= "click Start update!" "/>
</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 (&CHR) (37)
ASPCLZ=CHR (Panax) &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&A MP; "" ' and tb_title= ' "&tbTitle&" "' and Tb_intro= '" "&tbExcerpt&" "' and Tb_site= '" "&tbBlog&" "" ") (0 ) >0 Then ")
If not result then er=er& "trackback.asp file modification first step Error!" <br> "
End If
If er= "" Then
Result=replacestr ("trackback.asp", "Tbresponsexml 1," "This trackback contains the masked characters" "", "Tbresponsexml 1," "This trackbacks contains Masked characters "" "&vbcrlf&_
"End If" &vbcrlf&_
"" &vbcrlf&_
"Else" &vbcrlf&_
"Tbresponsexml 1," "Hey!" You have the wrong address! """)
If not result then er=er& "trackback.asp File modification Second step Error!" <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 File modification Third step Error!" <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 file The first step to modify error!" <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 to Blog_content ORDER by log_id DESC" ")" &vbcrlf& _
"Logid=lastid (" "log_id" ")")
If not result then er=er& "cls_logaction.asp file The second step to modify error!" <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 file the third step error! <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 () "" > View reference Address </a> </span><br/> "&vbcrlf&_
"<script type=" "Text/javascript" ">" &vbcrlf&_
"//reference address display" &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 File modification Error!" <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 file The first step to modify error!" <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 () "" > View reference Address </a></span><br/> "&vbcrlf& _
"<script type=" "Text/javascript" ">" &vbcrlf&_
"//reference address display" &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 file The second step to modify error!" <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 file the third step error! <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& "Database upgrade failed. "
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 file The first step to modify error!" <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 file The second step to modify error!" <br> "
End If
If er= "" Then
Result=replacestr ("common/cache.asp", "Blog_wapurl=cbool (Blog_infos (44,0)) ' uses WAP to convert article hyperlinks", "Blog_wapurl=cbool ( Blog_infos (44,0)) ' Use WAP to convert article hyperlinks ' &vbcrlf&_
"Blog_tbkey=int (Blog_infos (45,0)) ' References verify key")
If not result then er=er& "cache.asp file the third step error! <br> "
End If
If er<> "" Then
Response.Write er& "<br> if not resolved please go to <a href= ' http://www.alonefly.com/blog ' target= ' _blank ' >http://' Www.alonefly.com/blog</a> message. "
Else
If not DeleteFile ("tbspam_update.asp") Then
Response.Write "Please delete tbspam_update.asp file manually!" <br> "
Else
Response.Write "Tbspam_update.asp file has been deleted automatically!" <br> "
End If
Response.Write "Update Complete!" <br> all updated files have been backed up! Name is: original filename _temp! "
End If
End If
If Err<>0 Then
Response. Write Err & Err.Description & Err.Source
End If
%>
</div>
</body>
