防sql注入绝对函数：代替ASP中的Request函数

来源：半月设计 发布人：guobar 发布时间：2005-7-1 8:40:03 人气： 所属栏目：ASP研究-ASP

以下是引用片段：
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



生成时间:2006-5-26 7:43:20