一个WAP站

								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
				%>