防SQL注入的VBSrcipt代码

时间:2022-01-17 02:42:04
  1. <script language="vbscript">   
  2.         function checkstr(strname)   
  3.             strn=trim(strname.value)   
  4.             str=trim(strname.value)   
  5.             for i=1 to len(str)   
  6.                 strcheck=asc(left(str,1))   
  7.                 if not ((strcheck=<122 and strcheck>=97) or (strcheck<=90 and strcheck>=65) or (strcheck<=57 and strcheck>=48)) then   
  8.                     msgbox("请勿使用除英文字母及数字以外的字符!")   
  9.                     strname.value = left(strn,i-1)   
  10.                     strname.focus   
  11.                     exit for   
  12.                 end if   
  13.                 str=Right(str,len(str)-1)   
  14.             next    
  15.         end function   
  16.         function checknum()   
  17.             checknum=true   
  18.             if not document.all.txtMailSize.value="" then   
  19.                 if not IsNumeric(document.all.txtMailSize.value) then   
  20.                     msgbox("请勿使用数字以外的字符!")   
  21.                     document.all.txtMailSize.value=""   
  22.                     document.all.txtMailSize.focus   
  23.                     checknum=false   
  24.                 else if document.all.txtMailSize.value>5 or document.all.txtMailSize.value<0 then   
  25.                         msgbox("请填写5-0之间的数字!")   
  26.                         document.all.txtMailSize.value=""   
  27.                         document.all.txtMailSize.focus   
  28.                         checknum=false   
  29.                     end if   
  30.                 end if   
  31.             end if   
  32.         end function   
  33.  
  34.         function checkupdate()   
  35.             checkupdate=true   
  36.             if document.all.txtU_name.value="" or document.all.txtMailSize.value=""  then   
  37.                 msgbox("您填写的信息不完全!")           
  38.                 checkupdate=false   
  39.             end if   
  40.         end function   
  41.         function compare()   
  42.             compare=true   
  43.             if not document.all.txtRePsw.value =document.all.txtPsw.value then   
  44.                 msgbox("两次密码输入不一致!")   
  45.                 document.all.txtRePsw.focus   
  46.                 compare=false   
  47.             end if   
  48.         end function