垃圾引用防治补丁以及发送引用修正补丁的自动(2)
</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
内容版权声明：除非注明，否则皆为本站原创文章。