海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
一、禁止评论中带网址
 
 1.打开commond.asp文件，找到：

 程序代码
'定义 Cookie,Application 域，必须修改，否则可能运行不正常


在前面添加：

 程序代码
DIM MaxUrl,MaxHttp
MaxUrl=2 '最多可以在一个评论中加多少个[url ] 
MaxHttp=3 '最多可以在一个评论中加多少个 http://
这里两项我全设成0了。保险些。呵呵。自己看着设吧。

2.在INCLUDE/FUNCTION.asp文件加个函数：

 程序代码
'去除非法链接
Function Strurls(str,notes)
Strurls=ubound(split(LCase(str),notes))
End Function


3.打开BLOGCOMM.ASP文件，找到：

 程序代码
 IF CheckStr(Request.Form("message"))=Empty OR CheckStr(Request.Form("comm_memName"))=Empty Then
   msg_Title="出现错误"
   msg_Content="<a href=""javascript:history.go(-1);"">请将必须信息填写完整，点击返回上一页</a>"


在后面添加：

 程序代码
ElseIF Strurls(Request.Form("message"),"[url")>MaxUrl   or Strurls(Request.Form("message"),"http://")>MaxHttp then 
   msg_Title="出现错误"
            msg_Content="<a href='javascript:history.go(-1);'>您输入的内容有太多链接。这是不允许的!点击返回上一页</a>"  
 
 
 
二、屏蔽评论中特定关键字
 
1.将函数Chktburl插入include/funtion.asp中

 程序代码
Function Chktburl(tburlstr)
    dim r,rejtburl
    rejtburl=split(rejecttburl,",")
    chktburl = true
    for r = 0 to ubound(rejtburl)
        if instr(lcase(tburlstr),lcase(rejtburl(r)))>0 then
            chktburl = false
            exit function
        end if
    next
End Function


2.定义要屏蔽的字眼和连接(黑名单),将这个代码插入到commond.asp中,用逗号隔开


 程序代码
dim rejecttburl
rejecttburl="邮编,联系人,手机,电话,传真,＠,@,玻璃,QQ,玻璃uv机uv炉uv光固机,邮箱"
这里把要屏蔽的字眼换成经常在你评论中出现的关键字，我这做的绝些。呵呵。基本上广告都会带这些信息。所以一棒子全打死。别人也甭想留带这些字的信息了。自己看着加屏蔽的字吧。记住最后一个后面不要带逗号，要不没法评论了。
 

3.在blogcomm.asp中找到：

 程序代码
ElseIF IsValidUserName(CheckStr(Request.Form("comm_memName")))=False Then
    msg_Title="出现错误"
    msg_Content="<a href=""javascript:history.go(-1);"">用户名中含有非法字符，点击返回上一页</a>"
 

在这后面加入：

 程序代码
 '过滤广告
ElseIF chktburl(CheckStr(Request.Form("message")))=False Then
     msg_Title="出现错误"
     msg_Content="<a href=""javascript:history.go(-1);"">老兄，服了U，滚别的地方发广告去。</a>"
 
 


三、玩下算数题，嘻嘻
 
 1.在blogcomm.asp程序里的<!--#include file="header.asp" -->下面加上如下代码：
 
 程序代码
<%
'防恶意留言
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=7  '请在这里正确设置问题的总数

Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
  CheckEvil=False
  Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
  CheckEvil=true
End If
End Function

QuesionArray(0)="1+1=?"
AnswerArray(0)="2"
QuesionArray(1)="2+2=?"
AnswerArray(1)="4"
QuesionArray(2)="3+4=?"
AnswerArray(2)="7"
QuesionArray(3)="2+4=?"
AnswerArray(3)="6"
QuesionArray(4)="1+2=?"
AnswerArray(4)="3"
QuesionArray(5)="2+3=?"
AnswerArray(5)="5"
QuesionArray(6)="4+4=?"
AnswerArray(6)="8"
%>


2、然后再找到代码：


 程序代码
ElseIF comm_LogISOK=1 Then
            msg_Title="出现错误"
            msg_Content="<a href=""javascript:history.go(-1);"">对不起，你所评论的日志不存在，点击返回上一页</a>"

 

在代码下面插入如下代码
 

 程序代码
ElseIf Request.Form("EvilAnswer")="" Then
        msg_Title="请填写防恶意留言的答案!"
        msg_Content="请填写防恶意留言答案!<br><a href='javascript:history.go(-1);'>请返回重新输入</a>" 
             
     ElseIf Not CheckEvil(Request.Form("EvilAnswer")) Then
       msg_Title="防恶意留言问题回答错误，请返回重试。"
       msg_Content="防恶意留言问题回答错误，请返回重试!<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"


3、打开blogview.asp程序里的<!--#include file="header.asp" -->下面加上如下代码：
 
 程序代码
  <%
'防恶意留言
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=7  '请在这里正确设置问题的总数

Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
  CheckEvil=False
  Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
  CheckEvil=true
End If
End Function

QuesionArray(0)="1+1=?"
AnswerArray(0)="2"
QuesionArray(1)="2+2=?"
AnswerArray(1)="4"
QuesionArray(2)="3+4=?"
AnswerArray(2)="7"
QuesionArray(3)="2+4=?"
AnswerArray(3)="6"
QuesionArray(4)="1+2=?"
AnswerArray(4)="3"
QuesionArray(5)="2+3=?"
AnswerArray(5)="5"
QuesionArray(6)="4+4=?"
AnswerArray(6)="8"
%>


4、找到

 程序代码
<iframe border="0" frameBorder="0" frameSpacing="0" height="21" 
marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="attachment.asp">
</iframe></td>
        </tr>

 
 
在它下面插入


 程序代码
<tr align="center">
              <td colspan="2" nowrap bgcolor="#FFFFFF">
              <% 
        Randomize
        Dim EvilID,ArrayID,QuesionArrayName
        Session("EvilID")=int(Rnd*QuesionNum)
        'ArrayID=Session("EvilID")
        'TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))
        QuesionArrayName=cStr(TRIM(QuesionArray(Session("EvilID"))))
%>
<font color=red>请填入"?"号处应该填入的数字：</font><%Response.Write (QuesionArrayName) %>  <input name="EvilAnswer" type="text" id="EvilAnswer" size="8" /></td>
            </tr>

 
到此完毕，如果再有垃圾评论，偶也没招了。哈哈。

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!