防SQL注入的VBSrcipt代码

<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