home.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps in displaying statastics
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Home()
	
	dim totalmembers, adminmembers, activeadminmembers, nonadminmembers, activenonadminmembers

	smumadminheader("")
	
	if not Application("smumdebugmode") then on error resume next

	if not session("admin") then Response.Redirect smumpage & "?action=login"
	
	action = request("action")
	
	smumquery = "select count(*) as totalmembers from smum_memberstbl where members_accesslevel < "&session("accesslevel") &""
	smumOpenrs smumquery,"smumrs",action
	
		if not smumrs.eof then totalmembers = smumrs("totalmembers")
	
	smumClosers(smumrs)
	
	smumquery = "select count(*) as adminmembers from smum_memberstbl where members_admin = "&smumtrue&" and members_accesslevel < "&session("accesslevel") &""
	smumOpenrs smumquery,"smumrs",action
	
		if not smumrs.eof then adminmembers = smumrs("adminmembers")
	
	smumClosers(smumrs)
	
	smumquery = "select count(*) as activeadminmembers from smum_memberstbl where members_admin = "&smumtrue&" and members_active = "&smumtrue&" and members_accesslevel < "&session("accesslevel") &""
	smumOpenrs smumquery,"smumrs",action
	
		if not smumrs.eof then activeadminmembers = smumrs("activeadminmembers")
	
	smumClosers(smumrs)
	
	smumquery = "select count(*) as nonadminmembers from smum_memberstbl where members_admin = "&smumfalse&" and members_accesslevel < "&session("accesslevel") &""
	smumOpenrs smumquery,"smumrs",action

		if not smumrs.eof then nonadminmembers = smumrs("nonadminmembers")
	
	smumClosers(smumrs)
	
	smumquery = "select count(*) as activenonadminmembers from smum_memberstbl where members_admin = "&smumfalse&" and members_active = "&smumtrue&" and members_accesslevel < "&session("accesslevel") &""
	smumOpenrs smumquery,"smumrs",action
	
		if not smumrs.eof then activenonadminmembers = smumrs("activenonadminmembers")
	
	smumClosers(smumrs)%>

	<br><br>
	<table cellspacing=0 border=0 align=center cellpadding=0 border=0 width=65% class=colorformborder>
		<tr>
			<td>
				<table cellspacing=0 border=0 cellpadding=5 border=0 width=100% class=colorformborder>
					<tr>
						<td align=left class=colorformheader><font class=textsize8><b>Home - Quick Statistics</b></font></td>
					</tr>
				</table>
			</td>
		</tr>
		<tr>
			<td>
				<table cellspacing=1 border=0 cellpadding=5 border=0 width=100% class=colorformborder>
					<tr>
						<td class=colorwhite width=50%><font class=textsize8>Total Members</font></td>
						<td align=center class=colorwhite width=50%><font class=textsize8><%=totalmembers%></font></td>
					</tr>
					<tr>
						<td class=colorwhite width=50%><font class=textsize8>Admin Members</font></td>
						<td align=center class=colorwhite width=50%><font class=textsize8><%=adminmembers%></font></td>
					</tr>
					<tr>
						<td class=colorwhite width=50%><font class=textsize8>Active Admin Members</font></td>
						<td align=center class=colorwhite width=50%><font class=textsize8><%=activeadminmembers%></font></td>
					</tr>
					<tr>
						<td class=colorwhite width=50%><font class=textsize8>Non Admin Members</font></td>
						<td align=center class=colorwhite width=50%><font class=textsize8><%=nonadminmembers%></font></td>
					</tr>
					<tr>
						<td class=colorwhite width=50%><font class=textsize8>Active Non Admin Members</font></td>
						<td align=center class=colorwhite width=50%><font class=textsize8><%=activenonadminmembers%></font></td>
					</tr>
				</table>
			</td>
		</tr>
	</table>

<%End Sub%>