网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

如何实现防SQL注入的VBSrcipt代码-创新互联

小编给大家分享一下如何实现防SQL注入的VBSrcipt代码,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

员工经过长期磨合与沉淀,具备了协作精神,得以通过团队的力量开发出优质的产品。创新互联坚持“专注、创新、易用”的产品理念,因为“专注所以专业、创新互联网站所以易用所以简单”。公司专注于为企业提供网站设计、成都网站设计、微信公众号开发、电商网站开发,微信小程序定制开发,软件按需定制等一站式互联网企业服务。

 
        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

以上是“如何实现防SQL注入的VBSrcipt代码”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


当前文章:如何实现防SQL注入的VBSrcipt代码-创新互联
网站链接:http://bjjierui.cn/article/djpdch.html

其他资讯