如何从Html页面中提取所有汉字

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

function FilterChinese(strInput)
dim result:result=""
dim tempStr
for i=1 to len(strInput)
tempStr=mid(strInput,i,1)
if left(escape(tempStr),2)="%u" then
result=result & tempStr
end if
next
FilterChinese=result
end function

 </SCRIPT>

if asc(tempStr)>255 then

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

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

 </SCRIPT>