以文本方式查看主题

-  肿瘤咨询在线论坛  (http://www.chinaonco.net/dvbbs/index.asp)
--  『 电脑电子 』  (http://www.chinaonco.net/dvbbs/list.asp?boardid=55)
----  防止非法信息提交过滤程序-Asp版V1.0ZT  (http://www.chinaonco.net/dvbbs/dispbbs.asp?boardid=55&id=42389)

--  作者:web
--  发布时间:2009-9-17 6:55:49
--  防止非法信息提交过滤程序-Asp版V1.0ZT

防止非法信息提交过滤程序-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\');
?>