1.地址缩短

								function Checkin(s) 
				s=trim(s) 
				s=replace(s," "," ") 
				s=replace(s,"'","'") 
				s=replace(s,"""",""") 
				s=replace(s,"<","&lt;") 
				s=replace(s,">","&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
				%>