<SCRIPT LANGUAGE="VBScript">
<!--
function getCN(str)
dim re, i, r, RetStr
set re=new RegExp
re.global=true
re.pattern="[\u4e00-\u9fa5]"
set r = re.Execute(str)
For Each i in r
getCN = getCN & i.value
Next
end function
msgbox getCN("aa梅123花1adawq雪")
-->
</SCRIPT>