<script language="VBScript">
sub check()
dim astr
dim i
dim rightflag
rightflag=true
for i = 1 to len(form1.textvalue.value)
astr=mid(form1.textvalue.value,i,1)
if asc(astr)>=asc("A") and asc(astr)<=asc("Z") or asc(astr)>=asc("1") and asc(astr)<=asc("9") then
'......什么都不做
else
rightflag=false
end if
next
if rightflag=true then
form1.submit
else
msgbox "输入有误!"
end if
end sub