www.pudn.com > WLGL.rar > username.inc

<% 
if trim(Session("username")) = "" then 
%> 
 
<% 
Response.End  
else 
sp = split(request.servervariables("http_referer"),"/")  
'response.write ubound(sp) 
'response.end 
if ubound(sp) > 2 then 
	if sp(2) <> request.servervariables("http_host") then 
%> 
 
<%	response.end 
	end if 
elseif ubound(sp) = 0 then  
%> 
 
 
<% 
response.end 
end if 
end if 
%>