function.asp

来自「7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。」· ASP 代码 · 共 20 行

<%
Function SafeRequest(ParaName,ParaType) 
Dim ParaValue 
ParaValue=Request(ParaName) 
If ParaType=1 then 
If not isNumeric(ParaValue) then 
Response.redirect "err.asp?id=14" 
Response.end 
End if 
Else 
ParaValue=replace(ParaValue,"'","''") 
End if 
SafeRequest=ParaValue 
End function
%>