function.asp

来自「中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多」· ASP 代码 · 共 17 行

<%
function Checkin(s) 
s=trim(s) 
s=replace(s," ","&amp;nbsp;") 
s=replace(s,"'","&amp;#39;") 
s=replace(s,"""","&amp;quot;") 
s=replace(s,"&lt;","&amp;lt;") 
s=replace(s,"&gt;","&amp;gt;") 
Checkin=s 
end function 
function CheckAdmin1
	if Session("IsAdmin")<>true or session("IsGroup")<>"super" then response.redirect "error.asp"
end function
function CheckAdmin2
	if Session("IsAdmin")<>true or (session("IsGroup")<>"super" and session("IsGroup")<>"standard") then response.redirect "error.asp"
end function
%>