for i=1 to len(form1.memberPassword.value)
temp=asc(mid(form1.memberPassword.value,i,1))
if temp<0 then
alert "密码不能含有汉字!"
form1.memberPassword.select
exit sub
end if
next
for i=1 to len(form1.memberPassword.value) temp=asc(mid(form1.memberPassword.value,i,1)) if temp<0 then alert "密码不能含有汉字!" form1.memberPassword.select exit sub end if next asc(mid(form1.memberPassword.value,i,1))这个asc是什么意思啊