<%@ 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
Dim a
Set objConfig=New TConfig
objConfig.Load("GuestBook")
If objConfig.Exists("v")=False Then
objConfig.Write "v","1.0"
objConfig.Write "g",0
objConfig.Save
End If
If Request.QueryString("act")="save" Then
a=CStr(Request.Form("id"))
If a="0" Then
Dim objArticle
Set objArticle=New TArticle
objArticle.FType=ZC_POST_TYPE_PAGE
objArticle.AuthorID=BlogUser.ID
objArticle.Content="欢迎给我留言"
objArticle.Title="留言本"
objArticle.Intro="欢迎给我留言"
If objArticle.Post Then
Call SetBlogHint_Custom("留言本生成完成！点击这里去修改提示文字。")
End If
a=objArticle.ID
End If
objConfig.Write "g",a
objConfig.Save
Call SaveToFile(BlogPath&"guestbook.asp",LoadFromFile(Server.MapPath("guestbook.asp"),"utf-8"),"utf-8",false)
Call MakeBlogReBuild()
End If
Dim objRS
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！")
%>