<%'把以下代码复制到ASP文件中任何位置

function checkzw(a)
b=len(a)
for i=1 to len(a)
c=asc(mid(a,i,1))
if c<0 then
checkzw="含有中文"
else
checkzw="不含中文"
end if
end function%>
<%'要调用检查的时候这样就可以了
jc=checkzw("23543245435的说法第三方第三方23432525")
response.write jc%>