check.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Check Module
'For any help with modification to
'this file contact [e-mail]
'=========================================%>

<!--- #include virtual=/smusermanager/utilities/config.asp -->

<%dim fileexpiry, filegroups, filelevel, qs, urlqs

	if not Application("smumdebugmode") then on error resume next
	
	for each qs in Request.QueryString 
		urlqs = urlqs & qs & "=" & request(qs) & "@@$$"
	next
	
	if session("id") = "" then Response.Redirect smumpage & "?action=login&url="&Request.ServerVariables ("url") & "@$@$" & urlqs

	if fileadmin then
		if not session("admin") then Response.Redirect smumpage & "?action=messages&mesid=2"
	end if

	if fileexpiry = "" then
	else
		
		if session("accesslevel") > Application("smummaxlevels") then
		else
			if cdate(fileexpiry) < now() then Response.Redirect smumpage & "?action=messages&mesid=1"
		end if
	
	end if

	if filegroups = "" then
	else
		
		filegroupsarray = split(filegroups,",")
		usergroupsarray = split(session("groups"),",")
		
		For i = lbound(filegroupsarray) to ubound(filegroupsarray)	
			
			if filegroupsarray(i) = "" then
			else
				
				For j = lbound(usergroupsarray) to ubound(usergroupsarray)
					
					if usergroupsarray(i) = "" then
					else
						if filegroupsarray(i) = usergroupsarray(j) then filegroupuser = true
					end if
				
				Next
			
			end if
		
		Next 
		
		if filegroupuser then
		else
			Response.Redirect smumpage & "?action=messages&mesid=6"
		end if
	
	end if
	
	if filelevel <> "" then
	
		if filelevel > session("accesslevel") then
			session("Admin") = ""
			session("Active") = ""
			session("Username") = ""
			session("Membername") = ""
			session("Id") = ""
			session("Expirydate") = ""
			session("Accesslevel") = ""
			Response.Redirect smumpage & "?action=messages&mesid=4"
		end if
	
	end if%>