dvbbs
收藏本页
联系我们
论坛帮助
dvbbs

肿瘤咨询在线论坛业余兴趣『 电脑电子 』 → 防止非法信息提交过滤程序-Asp版V1.0ZT


  共有4432人关注过本帖树形打印

主题:防止非法信息提交过滤程序-Asp版V1.0ZT

帅哥哟,离线,有人找我吗?
web
  1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 半人半兽
等级:管理员 贴子:3944 积分:21316 威望:0 精华:29 注册:2003-12-25 8:30:00
防止非法信息提交过滤程序-Asp版V1.0ZT  发贴心情 Post By:2009-9-17 6:55:49


防止非法信息提交过滤程序-Asp版V1.0

代码如下:


<%

' *************************************************
' 检测提交的非法信息,适合所有ASP版的论坛,留言本.V1.0
' http://filter.bidns.com.cn/
' 您可以转载该程序,但请注明出处,谢谢.
' *************************************************

Dim Namexx,BlockStringxx,PostStringxx,iixx,ArrBlockStringxx,ErrMsgxx

'定义屏蔽关键字列表.用逗号分隔

BlockStringxx="六合彩,六合图库,六合神童,曾道人,黄大仙,一码中特,激情电影,激情视频,明慧网,法轮功,李洪志,手机窃听,免费电影,色情电影"

For each Namexx in Request.Form

PostStringxx=PostStringxx & Request.Form(Namexx)

Next

ArrBlockStringxx=Split(BlockStringxx,",")

For iixx=0 To UBound(ArrBlockStringxx)

If InStr(PostStringxx,ArrBlockStringxx(iixx))>0 Then

ErrMsgxx="您好:由于您所访问的内容带有系统禁止的关键字:"&ArrBlockStringxx(iixx)&",已被系统自动屏蔽。"

response.write "<script language=""JavaScript"">"

response.write "alert('"&ErrMsgxx&"');"

response.write "window.location='"&Request.ServerVariables("HTTP_REFERER")&"';"

response.write "</script>"

response.end

End If

Next

%>



下载地址:http://filter.bidns.com.cn/filter/check_block_post.rar
用法示例:
1.动网论坛
打开论坛根目录下的:savepost.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/ubblist.asp"-->
<!--#include file="inc/Email_Cls.asp"-->
新增加一行
<!--#include file="check_block_post.asp"-->
 

百优科技-防止非法信息提交过滤程序-PHP版V1.0

代码如下:

<?php

reset($_POST);

while(list($key,$PostValue)=each($_POST)){

$PostStringxx=$PostStringxx.$PostValue;

}

$BlockStringxx = array('六合彩','六合图库','六合神童','曾道人','黄大仙','一码中特','激情电影','激情视频','明慧网','法轮功','李洪志','手机窃听','免费电影','色情电影');

while(list($key,$ArrBlockStringxx)=each($BlockStringxx)){

if (strstr($PostStringxx, $ArrBlockStringxx)) {

$ErrMsgxx="您好:由于您所访问的内容带有系统禁止的关键字:".$ArrBlockStringxx.",已被系统自动屏蔽。" ;

echo "<script language=JavaScript>";

echo "alert('".$ErrMsgxx."');";

echo "</script>";

exit();

}

}

?>

下载地址:http://filter.bidns.com.cn/filter/check_block_post.rar
用法示例:
post.php
在第一行新增加
<?php
require_once('./check_block_post.php');
?>
 
 
 

支持(0中立(0反对(0回到顶部