一个分离中文英文的函数。

$u2 forum rautinee原创$
$http://u2bbs.126.com$
function splitstring(thestring)
dim n,chs,eng
for n = 1 to len(thestring)
if asc(mid(thestring,n,1))<0 then
chs=chs&mid(thestring,n,1)
else
eng=eng&mid(thestring,n,1)
end if
next
splitstring="中文字符："&chs&"<br>英文字符："&eng
end function
这个函数主要是用asc函数来实现的，当然他还可以细致一些，例如把标点符号也分列出来，有兴趣的朋友可以自己试试。