<scriptlanguage="vbscript">
functioncheckstr(strname)
strn=trim(strname.value)
str=trim(strname.value)
fori=1tolen(str)
strcheck=asc(left(str,1))
ifnot((strcheck=<122andstrcheck>=97)or(strcheck<=90andstrcheck>=65)or(strcheck<=57andstrcheck>=48))then
msgbox("请勿使用除英文字母及数字以外的字符！")
strname.value=left(strn,i-1)
strname.focus
exitfor
endif
str=Right(str,len(str)-1)
next
endfunction
functionchecknum()
checknum=true
ifnotdocument.all.txtMailSize.value=""then
ifnotIsNumeric(document.all.txtMailSize.value)then
msgbox("请勿使用数字以外的字符！")
document.all.txtMailSize.value=""
document.all.txtMailSize.focus
checknum=false
elseifdocument.all.txtMailSize.value>5ordocument.all.txtMailSize.value<0then
msgbox("请填写5-0之间的数字！")
document.all.txtMailSize.value=""
document.all.txtMailSize.focus
checknum=false
endif
endif
endif
endfunction
functioncheckupdate()
checkupdate=true
ifdocument.all.txtU_name.value=""ordocument.all.txtMailSize.value=""then
msgbox("您填写的信息不完全！")
checkupdate=false
endif
endfunction
functioncompare()
compare=true
ifnotdocument.all.txtRePsw.value=document.all.txtPsw.valuethen
msgbox("两次密码输入不一致！")
document.all.txtRePsw.focus
compare=false
endif
endfunction
【防SQL注入的VBSrcipt代码】相关文章：
★ Hardware_Info.vbs 获取硬件信息的VBS代码