服务器之家

服务器之家 > 正文

防SQL注入的VBSrcipt代码

时间:2020-07-06 13:52     来源/作者:脚本之家
  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 

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部