<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'///////////////////////////////////////////////////////////////////////////////
'// 插件制作: ZSXSOFT
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<%
Call System_Initialize()
'检查非法链接
Call CheckReference("")
'检查权限
If BlogUser.Level>1 Then Call ShowError(6)
If CheckPluginState("GuestBook")=False Then Call ShowError(48)
BlogTitle="留言本"
Dim objConfig,a,b,c
c=0
Set objConfig=New TConfig
objConfig.Load("GuestBook")
If objConfig.Read("g")<>"" Then
If CInt(objConfig.Read("g"))=0 then b=true
Else
b=true
End If
Dim objRS
if b=false then
if request.QueryString("act")="save" then
if not isempty(request.form("id")) then
a=request.form("id")
Call CheckParameter(a,"int",0)
Set objRs=Server.CreateObject("adodb.recordset")
objRs.Open "SELECT [log_ID] FROM [blog_Comment] WHERE [log_ID]="&a,obJConn,1,3
Do Until objRs.Eof
objRs("log_ID")=CInt(objConfig.Read("g"))
objRs.Update
objRs.MoveNext
c=c+1
Loop
Call BuildArticle(a,False,True)
Call BuildArticle(CInt(objConfig.Read("g")),False,True)
BlogReBuild_Comments
Call SetBlogHint_Custom("已经成功将ID="&a&"的文章的"&c&"条评论迁移到ID="&CInt(objConfig.Read("g"))&"的页面中！")
Set objRs=Nothing
end if
end if
end if
Set objRs=objConn.Execute("SELECT [log_ID] FROM [blog_Comment] WHERE [log_ID]=0")
If Not objRs.Eof Then Call SetBlogHint_Custom("检测到有1.8的留言未升级！请在下面指定一个页面后点击“迁移留言本”将1.8的留言升级到2.0！")
%>