ASP判断求助

[复制链接]

╰☆kiss寵壞

电梯直达

1^#

发表于 2010-1-9 03:28:20 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

if content="操" then
response.write "<SCRIPT language=JavaScript>alert('不许说脏话或输入字符非法！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end

end if
%>
我想增加语句,比如说人家打个操字就不可以发表
而打个操1就可以了,求助``

收藏0

使用道具举报

小点点14504

2^#

发表于 2010-1-9 03:28:24 | 只看该作者

可以使用循环来做
比如
<%
Function IsIllegalBody(TxtBody)
         Dim lStr,lAry,i,IsHave
         lStr="非法关键词1|非法关键词2|非法关键词3"
         lAry=Split(lStr,"|")
         IsHave=False
         For i=0 To Ubound(lAry)
               IF InStr(TxtBody,lAry(i))<>0 Then
                  IsHave=True
               End IF
         Next
         IsIllegalBody=IsHave
End Function
'调用测试代码
  Dim tStr
tStr="这句话里含有非法关键词1"
IF IsIllegalBody(tStr) Then
      Response.Write "含有不允许发布的内容"
Else
      Response.Write "没有不允许发布的内容"
End IF
%>

回复支持反对

使用道具举报

返回列表

GMT+8, 2024-11-18 07:31 , Processed in 0.104692 second(s), 9 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册