ASP怎样实现关键字过滤？ - Web 开发 / ASP

各位：我的论坛程序需要关键字过滤，请问这样的效果怎样实现呢？谁有源码贴一下，谢了。

---

用replace噻

---

<script language="javascript">
var x = "1,2,3,4312321aaa"
var j = x.replace(/a|1/g,"*")
alert(j)
</script>

---

都是使用replace或者regular expression去做的了。

---

<%
function coder(str)  
  dim i  
  if isnull(str) then
  coder=""
  exit function  
end if
  for i = 1 to len(str)  
  select case mid(str,i,1)  
  case "<" : coder = coder &"&lt;"
  case ">" : coder = coder &"&gt;"  
  case "&" : coder = coder &"&amp;"  
  case chr(9) : coder = coder &"&nbsp; &nbsp; "  
  case chr(13) : coder = coder &"<br>"  
  case chr(32) : coder = coder &"&nbsp;"  
  case chr(34) : coder = coder &"&quot;"  
  case chr(39) : coder = coder &"&#39;"  
  case else : coder = coder & mid(str,i,1)  
  end select  
  next  
end function
%>
调用即可

---

VBScript code

---

Code highlighting produced