<%@ 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的评论管理审核系统增强版）" %>
<%=GetBlogHint%>
<%=BlogTitle%>
TotoroⅢ设置黑词测试模拟测试
<% Call Totoro_Initialize Dim strZC_TOTORO_HYPERLINK_VALUE strZC_TOTORO_HYPERLINK_VALUE=Totoro_Config.Read("TOTORO_HYPERLINK_VALUE") strZC_TOTORO_HYPERLINK_VALUE=TransferHTML(strZC_TOTORO_HYPERLINK_VALUE,"[html-format]") Response.Write "" Dim strTOTORO_INTERVAL_VALUE strTOTORO_INTERVAL_VALUE=Totoro_Config.Read("TOTORO_INTERVAL_VALUE") strTOTORO_INTERVAL_VALUE=TransferHTML(strTOTORO_INTERVAL_VALUE,"[html-format]") Response.Write "" Dim strTOTORO_BADWORD_VALUE strTOTORO_BADWORD_VALUE=Totoro_Config.Read("TOTORO_BADWORD_VALUE") strTOTORO_BADWORD_VALUE=TransferHTML(strTOTORO_BADWORD_VALUE,"[html-format]") Response.Write "" Dim strTOTORO_LEVEL_VALUE strTOTORO_LEVEL_VALUE=Totoro_Config.Read("TOTORO_LEVEL_VALUE") strTOTORO_LEVEL_VALUE=TransferHTML(strTOTORO_LEVEL_VALUE,"[html-format]") Response.Write "" Dim strTOTORO_NAME_VALUE strTOTORO_NAME_VALUE=Totoro_Config.Read("TOTORO_NAME_VALUE") strTOTORO_NAME_VALUE=TransferHTML(strTOTORO_NAME_VALUE,"[html-format]") Response.Write "" Dim strTOTORO_NUMBER_VALUE strTOTORO_NUMBER_VALUE=Totoro_Config.Read("TOTORO_NUMBER_VALUE") strTOTORO_NUMBER_VALUE=TransferHTML(strTOTORO_NUMBER_VALUE,"[html-format]") Response.Write "" Dim strZC_TOTORO_REPLACE_KEYWORD strZC_TOTORO_REPLACE_KEYWORD=Totoro_Config.Read("TOTORO_REPLACE_KEYWORD") strZC_TOTORO_REPLACE_KEYWORD=TransferHTML(strZC_TOTORO_REPLACE_KEYWORD,"[html-format]") Response.Write "" Dim strZC_TOTORO_CHINESESV strZC_TOTORO_CHINESESV=Totoro_Config.Read("TOTORO_CHINESESV") strZC_TOTORO_CHINESESV=TransferHTML(strZC_TOTORO_CHINESESV,"[html-format]") Response.Write "" Response.Write "" Response.Write "" Dim strZC_TOTORO_SV_THRESHOLD strZC_TOTORO_SV_THRESHOLD=Totoro_Config.Read("TOTORO_SV_THRESHOLD") strZC_TOTORO_SV_THRESHOLD=TransferHTML(strZC_TOTORO_SV_THRESHOLD,"[html-format]") Response.Write "" Response.Write "" Response.Write "
序号 规则 分数 说明
1链接评分(默认：10)，每多一个链接SV翻倍加分
2提交频率评分(默认：25)，根据1小时内同一IP的评论数量加分。(1小时内10条评论加SV的1/5，以此类推，最多加SV的6/5)
3评论里的每一个黑词都加(默认：50)
4用户信任度评分(默认：100)，初级用户评论时SV减基数×1，中级用户SV减基数×2，高级用户减SV减基数×3，管理员SV减基数×4
5访客熟悉度评分(默认：45)，同一访客在BLOG留言1-10条内的SV减10分,10-20条的SV减10分再减基数×1，20-50条的SV减10分再减基数×2，大于50条的SV减10分再减基数×3
6数字长度评分(默认：10)。若数字长度达到10位，自动加上基数。多几位，加几次基数。
7自动把敏感词替换为
8一旦评论内没有汉字自动加SV(默认：150)
9设置系统审核阙值(默认：50)，阙值越小越严格，低于0则使游客的评论全进入审核
10设置自动删除阙值" Dim strZC_TOTORO_SV_THRESHOLD2 strZC_TOTORO_SV_THRESHOLD2=Totoro_Config.Read("TOTORO_SV_THRESHOLD2") strZC_TOTORO_SV_THRESHOLD2=TransferHTML(strZC_TOTORO_SV_THRESHOLD2,"[html-format]") Response.Write "(默认：150)，阙值达到该值并且阙值达到系统审核阙值则不审核直接删除。为0则不删除)
11设置IP回溯值" Dim strZC_TOTORO_KILLIP strZC_TOTORO_KILLIP=Totoro_Config.Read("TOTORO_KILLIP") strZC_TOTORO_KILLIP=TransferHTML(strZC_TOTORO_KILLIP,"[html-format]") Response.Write "(默认：3) 一旦某个IP一天内被拦截的评论超过设定的值，则将该IP一天内的评论全部进入审核。若该IP有一条评论直接被拦截，所有评论也将进入审核状态。
" %>
过滤IP(分隔符'|')
<% Dim strTOTORO_FILTERIP strTOTORO_FILTERIP=Totoro_Config.Read("TOTORO_FILTERIP") strTOTORO_FILTERIP=TransferHTML(strTOTORO_FILTERIP,"[html-format]") Response.Write "" %>
黑词列表(请使用正则,最后一个字符不能是|):
<% Dim strZC_TOTORO_BADWORD_LIST strZC_TOTORO_BADWORD_LIST=Totoro_Config.Read("TOTORO_BADWORD_LIST") strZC_TOTORO_BADWORD_LIST=TransferHTML(strZC_TOTORO_BADWORD_LIST,"[html-format]") If Left(strZC_TOTORO_BADWORD_LIST,1)<>"%" Then strZC_TOTORO_BADWORD_LIST=vbsescape(strZC_TOTORO_BADWORD_LIST) Response.Write "" Response.Write "" %>
敏感词列表(请使用正则,最后一个字符不能是|):
<% Dim strZC_TOTORO_REPLACE_LIST strZC_TOTORO_REPLACE_LIST=Totoro_Config.Read("TOTORO_REPLACE_LIST") strZC_TOTORO_REPLACE_LIST=TransferHTML(strZC_TOTORO_REPLACE_LIST,"[html-format]") If Left(strZC_TOTORO_REPLACE_LIST,1)<>"%" Then strZC_TOTORO_REPLACE_LIST=vbsescape(strZC_TOTORO_REPLACE_LIST) Response.Write "" Response.Write "" %>
配置项 开关 详细说明
自动转换火星文 <% Response.Write " > 将把希腊文俄文字母、罗马数字、列表符、全角字符、汉语拼音、菊花文、西欧字符转换为半角英文字母、半角数字、半角符号再进行反spam测试，不影响实际显示的评论
简繁转换 <% Response.Write " > 将把繁体字转换为简化字再进行反spam测试，不影响实际显示的评论
后台审核 <% Response.Write " > 点击[加入审核]提取域名后直接删除评论（若不删除则进入审核）
标点过滤 <% Response.Write " > 把大部分标点和HTML代码过滤再进行反spam测试，不影响实际显示的评论
评论被过滤时的提示
<% Dim strTOTORO_CHECKSTR strTOTORO_CHECKSTR=Totoro_Config.Read("TOTORO_CHECKSTR") strTOTORO_CHECKSTR=TransferHTML(strTOTORO_CHECKSTR,"[html-format]") Response.Write "" %>
评论被拦截时的提示
<% Dim strTOTORO_THROWSTR strTOTORO_THROWSTR=Totoro_Config.Read("TOTORO_THROWSTR") strTOTORO_THROWSTR=TransferHTML(strTOTORO_THROWSTR,"[html-format]") Response.Write "" %>
IP被拦截时的提示
<% Dim strTOTORO_KILLIPSTR strTOTORO_KILLIPSTR=Totoro_Config.Read("TOTORO_KILLIPSTR") strTOTORO_KILLIPSTR=TransferHTML(strTOTORO_KILLIPSTR,"[html-format]") Response.Write "" %>
Totoro是个采用评分机制的防止垃圾留言的插件，原作zx.asd。
TotoroⅡ是Zx.MYS在Totoro的基础上修改而成的增强版，加入了诸多新特性，同时修正一些问题。
TotoroⅢ是由zsx将TotoroII升级到2.0版本后增添新特性的版本。
Spam Value(SV)初始值为0，经过相关运算后的SV分值越高Spam嫌疑越大，超过设定的阈值这条评论就进入审核状态或直接被删除。
配置完成之后，请一定要测试，切记切记！
若您的配置因为主机的关键词过滤而失效，您可以点击右侧按钮初始化Totoro设置以修复。

<% Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>