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