一個asp函數， 解決SQL Injection漏洞

函數|解決 函數很簡單， 主要是針對字串和數字兩種類型的傳入資料分別進行了處理，具體用法：

字元類型的
strUsername = CheckInput(Request(“username“),“s“)
數字類型的
ID = CheckInput(Request(“id“),“i“)

下面是函數


Function CheckInput(str,strType)
'函數功能：過濾字元參數中的單引號，對於數字參數進行判斷，如果不是數實值型別，則賦值0
'參數意義： str ---- 要過濾的參數
' strType ---- 參數類型，分為字元型和數字型，字元型為"s"，數字型為"i"
Dim strTmp
strTmp = ""
If strType ="s" Then
strTmp = Replace(Trim(str),"'","''")
ElseIf strType="i" Then
If isNumeric(str)=False Then str="0"
strTmp = str
Else
strTmp = str
End If
CheckInput = strTmp
End Function