防ASP注入终极防范

function killn(byval s1) '过滤数值型参数 
if not isnumeric(s1) then　 
killn=0 
else 
if s1〈0 or s1〉2147483647 then　 
killn=0 
else 
killn=clng(s1) 
end if 
end if 
end function 

function killc(byval s1) 过滤货币型参数 
if not isnumeric(s1) then　 
killc=0 
else 
killc=formatnumber(s1,2,-1,0,0) 
end if 
end function 

function killw(byval s1) '过滤字符型参数 
if len(s1)=0 then 
killw="" 
else 
killw=trim(replace(s1,"'","")) 
end if 
end function 

function killbad(byval s1) 过滤所有危险字符，包括跨站脚本 
If len(s1) = 0 then 
killbad="" 
else 
killbad = trim(replace(replace(replace(replace(replace(replace(replace(replace(s1,Chr(10), "〈br〉"), Chr(34), """), "〉", ">"), "〈", "<"), "&", "&"),chr(39),"'"),chr(32)," "),chr(13),"")) 
end if 
end function