求一个敏感词替换为*的代码

[kevin82819]

如题：敏感词大概有1000个
有个类似论坛功能的网站，如何把用户提交的敏感词，在页面展示的时候以***的形式显示？
而且本文框写的内容可能比较多，如何同时保证效率？
谢谢各位

[zjgdtl]

页面显示又不是聊天，敏感词不应该替换而是应该在提交的时候提醒用户修改，不让用户提交 页面显示*多难看，实时聊天才会这样

[kevin82819]

那提示和代码分别该怎么写呢

[kevin82819]

那提示和替换的代码分别该怎么写呢

[csdn_aspnet]

<%
Function ChkBadWords(fString)
Dim BadWords,bwords,i
BadWords = "狗|杂种|王八" '这里面是需要过滤的文字，根据你的需要自己添吧。
IF(Not(IsNull(BadWords) or IsNull(fString)))THEN
bwords = Split(BadWords, "|")'遍历要过滤的内容
For i = 0 to UBound(bwords)
fString = Replace(fString, bwords(i), string(Len(bwords(i)),"*"))
Next
ChkBadWords = fString
END IF
End Function
%>

[kevin82819]

楼上如果是我读取出来的rs记录集要过滤呢？

[csdn_aspnet]

你只要把你要过滤的字符串传进来就行了 不一定非要rs记录

[kevin82819]

像这样吗ChkBadWords(rs(""))

[csdn_aspnet]

str = ChkBadWords(fString)

[csdn_aspnet]

方法调用你都不会啊？ sContext=rs("你的内容") str = ChkBadWords(sContext) 显示： <%=str%>

[kevin82819]

<% Function ChkBadWords(fString) Dim BadWords,bwords,i BadWords = "*|*" '这里面是需要过滤的文字，根据你的需要自己添吧。 IF(Not(IsNull(BadWords) or IsNull(fString)))THEN bwords = Split(BadWords, "|")'遍历要过滤的内容 For i = 0 to UBound(bwords) fString = Replace(fString, bwords(i), string(Len(bwords(i)),"*")) Next ChkBadWords = fString END IF End Function sContext=rs("huifu") str = ChkBadWords(sContext) %> 之前我就是这样调用的 但是页面会报错 Microsoft VBScript 编译器错误 错误 '800a03ea' 语法错误 /title/index.asp，行 664 Function ChkBadWords(fString)

[mkcat]

后台记录“敏感词”，前台读取“敏感词”串成数组，输出时把“敏感词”替换为星号

[kevin82819]

但问题是我就是想过滤从数据库读取出来的敏感文字，肯定是RS记录啊，不知道怎么用你写的方法

[kevin82819]

mkcat 不好意思·· 之前是因为把function放在循环里了 所以报错，现在可以过滤了，但是还有个问题就是 为什通过include调用这个方法就没有效果，必须在本页添加这个代码过滤才会生效呢？麻烦了