从Html页面中提取所有汉字ASP技巧

<SCRipT LANGUAGE="vbScript">mhe中国设计秀
dim strmhe中国设计秀
str="怎样从一个Html页面中提取所有汉字呢？不能有其它Html代码。"mhe中国设计秀
alert FilterChinese(str)mhe中国设计秀

function FilterChinese(strInput)mhe中国设计秀
dim result:result=""mhe中国设计秀
dim tempStrmhe中国设计秀
for i=1 to len(strInput)mhe中国设计秀
tempStr=mid(strInput,i,1)mhe中国设计秀
if left(escape(tempStr),2)="%u" thenmhe中国设计秀
result=result & tempStrmhe中国设计秀
end ifmhe中国设计秀
nextmhe中国设计秀
FilterChinese=resultmhe中国设计秀
end functionmhe中国设计秀

 </SCRIPT>mhe中国设计秀

mhe中国设计秀
if asc(tempStr)>255 thenmhe中国设计秀

用正则表达式的方法mhe中国设计秀
<SCRIPT LANGUAGE="vbScript">mhe中国设计秀
dim strmhe中国设计秀
str="怎样从一个Html页面中提取所有汉字呢？不能有其它Html代码。"mhe中国设计秀
alert RegExpTest("[u4e00-u9fa5]",str)mhe中国设计秀

 mhe中国设计秀

Function RegExpTest(patrn, strng)mhe中国设计秀
   Dim regEx, Match, Matches   ' 建立变量。mhe中国设计秀
   Set regEx = New RegExp   ' 建立正则表达式。mhe中国设计秀
   regEx.Pattern = patrn   ' 设置模式。mhe中国设计秀
   regEx.IgnoreCase = True   ' 设置是否区分大小写。mhe中国设计秀
   regEx.Global = True   ' 设置全局替换。mhe中国设计秀
   Set Matches = regEx.Execute(strng)   ' 执行搜索。mhe中国设计秀
   For Each Match in Matches   ' 遍历 Matches 集合。mhe中国设计秀
      RetStr = RetStr  &  Match.Valuemhe中国设计秀
   Nextmhe中国设计秀
   RegExpTest = RetStrmhe中国设计秀
End Functionmhe中国设计秀

 </SCRIPT>mhe中国设计秀