防SQL注入的VBSrcipt代码

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