为了控制网上反动,色情信息的传播,特增过滤功能.
请问题各位高手,如何判断发表内容中包含某些字符,
如果有就不能提交.
---------------------------------------------------------------
if instr(request("content"),"胡锦涛，温家宝,......")=0 then
提交
else
含有非法字符
end if
胡锦涛，温家宝可以替换成变量
---------------------------------------------------------------
FiltrateBadWordString = "你妈 ¦fuck ¦奶奶的 ¦傻B ¦法轮"
function UBB_FiltrateBadWords(tempStr)
Dim Str
Str = tempStr
Dim FiltrateBadWordString_Temp,i,Temp_N
FiltrateBadWordString_Temp = split(FiltrateBadWordString, " ¦")
Temp_N = ubound(FiltrateBadWordString_Temp)
for i = 0 to Temp_N
Str = Replace(Str, FiltrateBadWordString_Temp(i), string(len(FiltrateBadWordString_Temp(i)),"*"), 1,-1,0)
next
UBB_FiltrateBadWords = Str
end function
Form_Title = UBB_FiltrateBadWords(Form_Title)
1<tr =def_bbs_lightestcolor="" ```="" bgcolor="```" class="TBBG9">
2<td>脏字过滤</td>
3<td><input class="fminpt" maxlength="4096" name="Form_FiltrateBadWordString" size="40" type="text" value="```
4=htmlencode(Form_FiltrateBadWordString)
5```"/><font color="gray">(以 ¦分隔，区分大小写)</font></td>
6</tr>
1<tr bgcolor="#f7f7f7" class="TBBG9">
2<td>脏字过滤</td>
3<td><input class="fminpt" maxlength="4096" name="Form_FiltrateBadWordString" size="40" type="text" value="你妈 ¦fuck ¦奶奶的 ¦傻B ¦法轮"/><font color="gray">(以 ¦分隔，区分大小写)</font></td>
4</tr>
论坛上考的，写入一文件里，或存在数据库里。方法同上