-
<script language="vbscript">
-
function checkstr(strname)
-
strn=trim(strname.value)
-
str=trim(strname.value)
-
for i=1 to len(str)
-
strcheck=asc(left(str,1))
-
if not ((strcheck=<122 and strcheck>=97) or (strcheck<=90 and strcheck>=65) or (strcheck<=57 and strcheck>=48)) then
-
msgbox("请勿使用除英文字母及数字以外的字符!")
-
strname.value = left(strn,i-1)
-
strname.focus
-
exit for
-
end if
-
str=Right(str,len(str)-1)
-
next
-
end function
-
function checknum()
-
checknum=true
-
if not document.all.txtMailSize.value="" then
-
if not IsNumeric(document.all.txtMailSize.value) then
-
msgbox("请勿使用数字以外的字符!")
-
document.all.txtMailSize.value=""
-
document.all.txtMailSize.focus
-
checknum=false
-
else if document.all.txtMailSize.value>5 or document.all.txtMailSize.value<0 then
-
msgbox("请填写5-0之间的数字!")
-
document.all.txtMailSize.value=""
-
document.all.txtMailSize.focus
-
checknum=false
-
end if
-
end if
-
end if
-
end function
-
-
function checkupdate()
-
checkupdate=true
-
if document.all.txtU_name.value="" or document.all.txtMailSize.value="" then
-
msgbox("您填写的信息不完全!")
-
checkupdate=false
-
end if
-
end function
-
function compare()
-
compare=true
-
if not document.all.txtRePsw.value =document.all.txtPsw.value then
-
msgbox("两次密码输入不一致!")
-
document.all.txtRePsw.focus
-
compare=false
-
end if
-
end function