inc.asp

一个相当好的电话管理程序

<%
'检测字符串参数
function checkstr(str)
if str="" or isnull(str) then
exit function
else
checkstr=replace(str,"'","''")
end if
end function
'检测数字型参数
function checknum(num)
if num="" or isnull(num) then
exit function
elseif not isnumeric(num) then
response.write("非法参数?程序中止运行!!")
response.end
else
checknum=int(num)
end if
end function
%>