<%Function ReqNum ( StrName )
ReqNum = Request ( StrName )
if not isNumeric ( ReqNum ) then
response.write "参数必须为数字型!"
response.end
end if
End Function
%>
<% Function ReqStr ( StrName )
ReqStr = Replace ( Request(StrName), "'", "''" )
End Function
%>