Function SafeRequest(ParaName,ParaType)
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 funtion