vbscript过滤非法字符-JS特效-爱易网页

vbscript过滤非法字符

日期：2014-05-18　浏览次数：20249 次

以下是程序代码

<html>
<head>
<meta http-equiv="content-Type" content="text/html;charset=gb2312">
<meta name="keywords" content="站长,网页特效,js特效,js脚本,脚本,广告代码,zzjs,zzjs.net,sky,www.zzjs.net,站长特效 网" />
<meta name="description" content="www.zzjs.net,站长特效网，站长必备js特效及广告代码。大量高质量js特效，提供高质量广告代码下载,尽在站长特效网" />
<title>网页特效 VBScript检测非法字符 站长特效网</title>
</head>
<body>
<a href="http://www.zzjs.net/">站长特效网</a>,站长必备的高质量网页特效和广告代码。zzjs.net，站长js特效。<hr>

输入下面字符中的任意一个试下：<br>
<，>，?，{，}，\，|，!，@，#，$，%，^，&，*，~，'<br>
您也可以自己添加新字符！<br><br>

<script language="vbscript">
Function chk()
Dim test,str_sift,str_sifts
test=zzjs_net.test.value
str_sift="<,>,?,{,},\,|,!,@,#,$,%,^,&,*,~,'"
str_sifts = Split(str_sift,",")
For i=0 To Ubound(str_sifts)
If Instr(LCase(test),str_sifts(i))<>0 Then
MyVar = MsgBox ("含有非法字符",48,"错误")
window.event.returnvalue=false
Exit function
End If
Next
End Function
</script>
<form name="zzjs_net" action="http://www.zzjs.net" onsubmit="chk()">
<input type="text" name="test">
<input type="submit" value="提交">
</form>
</body>
</html>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]