<%@ 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
On Error Resume Next
Set o=New RegExp
t=Request.Form("string")
o.Global=True
o.IgnoreCase=True
o.Pattern="("&Request.Form("regexp")&")"
'Set m=o.Execute(t)
h=TransferHTML(t,"[html-format]")
t=h
'For Each s in m
'h=Replace(h,s.value,""&s.value&"")
'Next
h=o.replace(h,"$1")
n1=RunTime
If Err.Number<>0 Then
h="正则有误："& Err.Description
h=h&"
可能的情况是：- 少打了某个符号
- 没有在[ ] ( ) ^ . ? !等符号前加\
"
Else
n="用时"&n1&"ms"
if (t<>h) then h=n&"
检测到黑词或敏感词：
"&h else h=n&"
"&h
End If
Response.Write h
Response.End
End If
%>
<%
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>