如何從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>