UC知道Asp VB过滤字符
来源：百度知道 编辑：UC知道 时间：2024/06/25 00:05:26
<%
Neirong=request("ID")
N="妈的|NND|Fack|SB|And|and|'|form|or"
Guolv=split(N,"|")
''==============
k=uBound(Guolv,1)
i=0
do while i<k
If Instr(Neirong,Guolv(i))>0 Then
content=replace(Neirong,Guolv(i),"<font color=red>屏掉</font>")
Else
content=Neirong
End if
i=i+1
loop
%>
<%=Neirong%><br><%=content%>
不循环运行，老运行倒数二个字如：form，
Neirong=request("ID")
N="妈的|NND|Fack|SB|And|and|'|form|or"
Guolv=split(N,"|")
''==============
k=uBound(Guolv,1)
i=0
do while i<k
If Instr(Neirong,Guolv(i))>0 Then
content=replace(Neirong,Guolv(i),"<font color=red>屏掉</font>")
Else
content=Neirong
End if
i=i+1
loop
%>
<%=Neirong%><br><%=content%>
不循环运行，老运行倒数二个字如：form，
代码有问题，修改如下
<%
Neirong=request("ID")
N="妈的|NND|Fack|SB| And | and |'|form| or " '此处or前后加空格，否则会屏蔽font color=red>屏掉</font> 中的or，因为or作为逻辑符前后必有空格，所以要这样处理，否则单词中含有or也会被被屏蔽，and 也一样
Guolv=split(N,"|")
''==============
k=uBound(Guolv,1)
i=0
content=Neirong
do while i<k+1 '此处要加1
If Instr(content,Guolv(i))>0 Then
content=replace(content,Guolv(i),"<font color=red>屏掉</font>")
End if
i=i+1
loop
%>
<%=Neirong%><br><%=content%>
经过我测试成功