海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com
【字体设置:大 中 小】
前一段时间,我回家过年了,由于家里上网不是很方便,所以也很少上网,快回公司的前几天,我去上网看了一下有没有网友给我留言,结果却以外地发现我的留言本里多了几十条垃圾留言了.
所以留言本对垃圾留言进行了过滤,凡是可疑的广告留言都是被设为悄悄话的模式,这样的话广告留言要登陆以后才可以看到,这个功能我也是根据踏趣网站的留言本来设计的,官方网站提供的留言本是没有这个功能的.
从留言的情况来看,这些留言都是通过留言机器来操作的,而不是留言本光临本站来留言的,针对这样的情况,本计划对广告留言进行强行的过滤,发现广告就禁止留言,但是怕过滤不好的话,网友也没有办法留言了,所以,得换一个方法来过滤才行.
既然是通过机器(软件)来操作的,那么我们就进行这样的判断,如果不是通过留言器来访问留言本的,即禁止留言.如果是通过浏览器访问的就可以留言.代码如下:
<%
Dim BrowserString
BrowserString = Request.ServerVariables("HTTP_USER_AGENT")
BrowserString = Lcase(BrowserString)
if BrowserString="" then
Response.Redirect"error.asp"
end if
%>
另外,还要防止远程提交留言,代码是到处都有的了,用一个包含文件就可以了.
发表评论 - 不要忘了输入验证码哦!