<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// 插件应用: Z-Blog 1.8
'// 插件制作:
'// 备 注:
'// 最后修改：
'// 最后版本:
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<%
On Error Resume Next
%>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Call System_Initialize()
'检查非法链接
Call CheckReference("")
'检查权限
If BlogUser.Level>1 Then Call ShowError(6)
If CheckPluginState("Totoro")=False Then Call ShowError(48)
BlogTitle="TotoroⅢ（基于TotoroⅡ的Z-Blog的评论管理审核系统增强版）"
Dim o,m,s,t,h,n,n1
If Request.QueryString("type")="test" Then
Call Totoro_Initialize
Dim oUser,oComment
Set oComment=New TComment
Set oUser=New TUser
oComment.Content=Request.Form("string")
oComment.Author=Request.Form("name")
oComment.HomePage=Request.Form("url")
oComment.IP="0.0.0.0"
Call Totoro_cComment(oComment,oUser,True)
Response.Write Replace(TransferHTML(Totoro_DebugData,"[html-format]"),vbcrlf,"
")
Response.End
End If
%>
<%
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>