这个过滤函数有什么问题?

漠叔 2010-01-26 09:33:54

Function KillYou(Str)
glcontent = "过滤,指定,关键字"
P_Key = Split(glcontent,",")
For i = 0 to Ubound(P_Key)
Str = Replace(Str,P_Key(i),"**")
Next
KillYou = Str
End Function


当过滤内容中有设置的字符时可以正常替换为*号,但是如果要过滤的内容中没有关键字时,刚内容显示不出了
...全文
136 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
junshanhudazhaxi 2010-01-27
  • 打赏
  • 举报
回复
楼主的函数没有问题,注意检查下传入的参数str是不是本身就是空的
黑心 2010-01-27
  • 打赏
  • 举报
回复
response.write "sadfsdf="&KillYou("iim e sdlfk sdfwer 没有这个 地的")
response.write "sadfsdf="&KillYou("iim e sdlfk sd关键字fwer 没有这个 地的")

成功显示。。。楼主,你的函数没有问题。
Dogfish 2010-01-26
  • 打赏
  • 举报
回复
我测试过楼主的代码,可以运行。
sayfree 2010-01-26
  • 打赏
  • 举报
回复
我测试了一下,还是可以的啊。。
<%
dim xstr
xstr="这里是关键字测试"
response.Write KillYou(xstr)
%>
显示的结果为:这里是**测试
漠叔 2010-01-26
  • 打赏
  • 举报
回复
1楼的试了不行
heyli 2010-01-26
  • 打赏
  • 举报
回复
比如说直接向数据库存入单引号跟双引号就不太好 glcontent的内容就是你想过滤掉的内容 **就是你想替换成的内容 在输出的内容再替换回来就可以了
sayfree 2010-01-26
  • 打赏
  • 举报
回复
Function KillYou(Str)
glcontent = "过滤,指定,关键字"
P_Key = Split(glcontent,",")
For i = 0 to Ubound(P_Key)
if instr(str,P_Key(i)) then
Str = Replace(Str,P_Key(i),"**")
end if
Next
KillYou = Str
End Function

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧