求防止sql注入代码
发布网友
发布时间：2022-04-10 16:47
共1个回答
热心网友
时间：2022-04-10 18:16
Function SafeRequest(ParaName,ParaType)
'--- 传入参数 ---
'ParaName:参数名称-字符型
'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)
Dim Paravalue
Paravalue=Request(ParaName)
If ParaType=1 then
If not isNumeric(Paravalue) then
Response.write "参数" & ParaName & "必须为数字型！"
Response.end
End if
Else
Paravalue=replace(Paravalue,"'","''")
End if
SafeRequest=Paravalue
End function
dim ID
ID = SafeRequest("ID",1)
if ID="" or IsNull(ID) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>非法请求，请与我们联系！</li>"
end if
if FoundErr=True then
call WriteErrMsg()
call CloseConn()
end if
%>
