代替ASP中的Request函數，防止SQL注入

ＳＱＬ注入漏洞可謂是“千里之堤，潰於蟻穴”，這種漏洞在網上極爲普遍，通常是由於程序員對注入不瞭解，或者程序過濾不嚴格，或者某個參數忘記檢查導致。在這裏，我給大家一個函數，代替ASP中的Request函數，可以對一切的SQL注入Say NO，函數如下：

Function SafeRequest(ParaName,ParaType)
       '--- 傳入參數 ---
       'ParaName:參數名稱-字符型
       'ParaType:參數類型-數字型(1表示以上參數是數字，0表示以上參數爲字符)

       Dim ParaValue
       ParaValue=Request(ParaName)
       If ParaType=1 then
              If ParaValue="" or not isNumeric(ParaValue) then
                     Response.write "參數" & ParaName & "必須爲數字型！"
                     Response.end
              End if
       Else
              ParaValue=replace(ParaValue,"'","''")
       End if
       SafeRequest=ParaValue
End function

Function SafeRequest(ParaName,ParaType)
       '--- 傳入參數 ---
       'ParaName:參數名稱-字符型
       'ParaType:參數類型-數字型(1表示以上參數是數字，0表示以上參數爲字符)

       Dim ParaValue
       ParaValue=Request(ParaName)
       If ParaType=1 then
              If ParaValue="" or not isNumeric(ParaValue) then
                     Response.write "參數" & ParaName & "必須爲數字型！"
                     Response.end
              End if
       Else
              ParaValue=replace(ParaValue,"'","''")
       End if
       SafeRequest=ParaValue
End function