防止SQL注入 设置过sql server 网络实用工具TCPIP

    技术2022-05-11  9

    '函数名:SetRequest '作 用:防止SQL注入 'ParaName:参数名称-字符型 'ParaType:参数类型-数字型(1表示是数字,0表示为字符) 'RequestType:请求方式(0:直接请求,1:Request请求,2:post请求,3:get请求,4:Cookies请求,5:WEB请求) '_______________________________________________________________ Public Function SetRequest(ParaName,RequestType,ParaType) Dim ParaValue Select Case RequestType Case 0 ParaValue=ParaName Case 1 ParaValue=Request(ParaName) Case 2 ParaValue=Request.Form(ParaName) Case 3 ParaValue=Request.QueryString(ParaName) Case 4 ParaValue=Request.Cookies(ParaName) Case 5 ParaValue=Request.ServerVariables(ParaName) End Select

    If ParaType=1 Then If instr(ParaValue,",")>0 Then If not isNumeric(Replace(Replace(ParaValue,",","")," ","")) Then Response.Redirect("/") End If Else If not isNumeric(ParaValue) Then Response.Redirect("/") End If End If Else ParaValue=Replace(Replace(ParaValue,Chr(0),""),"'","") End If SetRequest=ParaValue End function  

     

    服务器SQL   程序组里SQL   SERVER   网络实用工具里面有个TCP/IP   你点属性就可以设置PORT了 网络实用工具 是对你的SQLSERVER服务器的

    '函数名:SetRequest '作 用:防止SQL注入 'ParaName:参数名称-字符型 'ParaType:参数类型-数字型(1表示是数字,0表示为字符) 'RequestType:请求方式(0:直接请求,1:Request请求,2:post请求,3:get请求,4:Cookies请求,5:WEB请求) '_______________________________________________________________ Public Function SetRequest(ParaName,RequestType,ParaType) Dim ParaValue Select Case RequestType Case 0 ParaValue=ParaName Case 1 ParaValue=Request(ParaName) Case 2 ParaValue=Request.Form(ParaName) Case 3 ParaValue=Request.QueryString(ParaName) Case 4 ParaValue=Request.Cookies(ParaName) Case 5 ParaValue=Request.ServerVariables(ParaName) End Select

    If ParaType=1 Then If instr(ParaValue,",")>0 Then If not isNumeric(Replace(Replace(ParaValue,",","")," ","")) Then Response.Redirect("/") End If Else If not isNumeric(ParaValue) Then Response.Redirect("/") End If End If Else ParaValue=Replace(Replace(ParaValue,Chr(0),""),"'","") End If SetRequest=ParaValue End function  

     

    程序组里SQL   SERVER   网络实用工具里面有个TCP/IP   点属性可以设置PORT客户端网络实用工具 是针对 SQL QUERY和企业管理器的连接的 服务器网络实用工具 是对你的SQLSERVER服务器的


    最新回复(0)