海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com
【字体设置:大 中 小】
如果你有一个网站,为网站添上一个留言本可以方便浏览者和你交流,但是,同时也产生了令人头疼的事情,垃圾留言机器会不断地向你发起进攻,一般这样的留言都会留下网址和电话号码,所以,我们要禁止这类留言.
首先,我们建一个正则表达式的功能代码页,代码如下:
假设页面的名称为function.asp
<%
Function RegExpTest(patrn, strng)
Dim regEx, retVal
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = False
retVal = regEx.Test(strng)
RegExpTest = retVal
End Function
%>
另外,我们在留言本的保存页面中连接数据库之前对留言的内容进行检测.
不要忘记把上面的功能页面使用包含的方式包含在保存留言的页面中
<!--#include file="function.asp"-->
.......
if RegExpTest("([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?", text)=true or RegExpTest("(\(\d{3,4}\)|\d{3,4}-|\s)?\d{7,14}", text)=true then
response.write "<center><font color=red>你的留言中含有电话号码或者网址,涉嫌广告行为,禁止提交。"
response.end
else
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from 表名"
......
end if
在这里要说明一下,上面代码中的text就是你的留言内容框NAME的名字,要根据你的实际情况进行更改.
发表评论 - 不要忘了输入验证码哦!