function check_input3(str) '检测输入限制必须为字母
for i=1 to len(str)
tmp = asc(mid(str,i,1))
if (tmp>=97 and tmp<=122) then
else
check_input3=1
exit function
end if
next
check_input3=0
end function
if request("oicq")<>"" then
if not isnumeric(request("oicq")) or len(request("oicq"))>10 then
errmsg=errmsg+"<br>"+"<li>Oicq号码只能是4-10位数字,您可以选择不输入。"
founderr=true
end if
end if
-----------
也可以利用asc码来判断!<97字母,esle 汉字