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

'函数名：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服务器的