sqlfilter.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 22 行

<%
Function SafeRequest(ParaName,ParaType)
       '--- 传入参数 ---
       'ParaName:参数名称-字符型
       'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)

       Dim ParaValue
       ParaValue=Trim(Request(ParaName))
	   If ParaValue<>"" Then 
			If ParaType=1 then
				If not isNumeric(ParaValue) then
                     Response.write "参数" & ParaName & "必须为数字型！"
                     Response.End
				End if
			 Else
              ParaValue=replace(ParaValue,"'","''")
			End if
		End If
       SafeRequest=ParaValue
End function
%>