防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