方法一：过滤所有非中文字符

ASP中去掉字符串的汉字以外的全部字符，只保留中文汉字的函数

<%

Function hanzi(rng)

  With CreateObject("VBSCRIPT.REGEXP")

    .Global = True

    .Pattern = "[^\u4e00-\u9fa5]"

    hanzi = .Replace(rng, "")

  End With

End Function

%>

ASP中去掉字符串的汉字、字母、数字以外的全部字符，只保留汉字、字母、数字的函数

<%

Function hzzmsz(s)

  if s<>"" then

    set re = new RegExp

    re.pattern = "[^a-z\d\u4e00-\u9fa5]"

    re.global = true

    re.ignoreCase = true

    hzzmsz=re.replace(s, "")

  else

    hzzmsz=""

  end if

End Function

%>

方法二：过滤掉所有HTML标签

<%

Function RemoveHTML(strHTML)    '过滤HTML代码的函数包括过滤CSS和JS

  StrHtml = Replace(StrHtml,vbCrLf,"") 

  StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"") 

  StrHtml = Replace(StrHtml,Chr(13),"") 

  StrHtml = Replace(StrHtml,Chr(10),"") 

  StrHtml = Replace(StrHtml," ","") 

  StrHtml = Replace(StrHtml,"    ","")

  Dim objRegExp, Match, Matches 

  Set objRegExp = New Regexp 

    objRegExp.IgnoreCase = True 

    objRegExp.Global = True

  '取闭合的<> 

  objRegExp.Pattern = "<style(.+?)/style>" 

  '进行匹配 

  Set Matches = objRegExp.Execute(strHTML) 

  ' 遍历匹配集合，并替换掉匹配的项目 

  For Each Match in Matches 

    strHtml=Replace(strHTML,Match.Value,"") 

  Next

  '取闭合的<> 

  objRegExp.Pattern = "<script(.+?)/script>" 

  '进行匹配 

  Set Matches = objRegExp.Execute(strHTML) 

  ' 遍历匹配集合，并替换掉匹配的项目 

  For Each Match in Matches 

    strHtml=Replace(strHTML,Match.Value,"") 

  Next

  '取闭合的<> 

  objRegExp.Pattern = "<.+?>" 

  '进行匹配 

  Set Matches = objRegExp.Execute(strHTML)

  ' 遍历匹配集合，并替换掉匹配的项目 

  For Each Match in Matches 

    strHtml=Replace(strHTML,Match.Value,"") 

  Next

  RemoveHTML=strHTML 

  Set objRegExp = Nothing 

End Function

%>