📄 default.asp
字号:
<%@Language=VBScript%>
<%option explicit%>
<%dim fileadmin, smumadminpagewidth, smumadminpage, action,_
smumdataconn, smumquery, smumregistrationcode,smumadminemail
fileadmin = true%>
<!--- #include virtual=/smusermanager/utilities/check.asp -->
<%Response.Buffer = true
smumadminpagewidth = "width=100%"
smumadminpage = "/smusermanager/admin/default.asp"%>
<!--- #include virtual=/smusermanager/utilities/functions.asp -->
<!--- #include virtual=/smusermanager/utilities/utilities.asp -->
<%
if not Application("smumdebugmode") then on error resume next
action=Request("action")
set smumdataconn =Server.CreateObject("ADODB.Connection")
smumdataconn.ConnectionString = smumconnstr
smumdataconn.open
smumquery = "delete from smum_messagingtbl where messaging_deletestatusfrom = "&smumtrue&" and messaging_deletestatusto = "&smumtrue&""
smumexecutequery smumquery,action
if application("smummaxlevels") = "" then Call smumrengenprefrences()
dim query, smumtotalmembers, smumtotalmaillistmembers, smumtotalgroups, smumtotallogs, smumlogstoday,smumtotalapprovemsgs, smumsendqueue
query = "select count(*) as smumtotalmembers from smum_memberstbl where members_accesslevel < "& session("accesslevel")
smumOpenrs query,"smumrs",action
smumtotalmembers = smumrs("smumtotalmembers")
smumClosers(smumrs)
query = "select count(*) as smumtotalmaillistmembers from smum_maillisttbl"
smumOpenrs query,"smumrs",action
smumtotalmaillistmembers = smumrs("smumtotalmaillistmembers")
smumClosers(smumrs)
query = "select count(*) as smumtotalgroups from smum_groupstbl"
smumOpenrs query,"smumrs",action
smumtotalgroups = smumrs("smumtotalgroups")
smumClosers(smumrs)
query = "select count(*) as smumtotallogs from smum_userlogstbl"
smumOpenrs query,"smumrs",action
smumtotallogs = smumrs("smumtotallogs")
smumClosers(smumrs)
query = "select count(*) as smumtotalapprovemsgs from smum_messagingtbl where messaging_approvalstatus = "&smumfalse
smumOpenrs query,"smumrs",action
smumtotalapprovemsgs = smumrs("smumtotalapprovemsgs")
smumClosers(smumrs)
query = "select count(*) as smumlogstoday from smum_userlogstbl"
smumOpenrs query,"smumrs",action
smumlogstoday = smumrs("smumlogstoday")
smumClosers(smumrs)
%>
<HTML>
<head>
<SCRIPT LANGUAGE="JavaScript">errorcolor = '#eeeeee';</Script>
<HEAD>
<Title>ScriptMate User Manager 2.1</Title>
<!--- #include virtual=/smusermanager/utilities/styles.asp -->
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 valign=top cellPadding=0 width=100% border=0>
<TR valign=middle height=20>
<TD class=headera1><IMG src="/smusermanager/images/clear.gif" height=20 width=159 border=0></TD>
<TD width="100%" align=right class=headera2> </TD>
</TR>
<TR valign=top>
<TD><IMG src="/smusermanager/images/logo.gif" height=50 width=159 border=0></TD>
<TD valign=middle width=620><font class=setuptext>User Manager 2.1</font></TD>
</TR>
<TR valign=top height=1>
<TD colspan=2 class=black><IMG src="/smusermanager/images/clear.gif" height=1 width=100% border=0></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 valign=top cellPadding=0 height=100% width=100% border=0>
<TR valign=top>
<TD width=16%>
<TABLE cellSpacing=0 valign=top cellPadding=0 width=100% border=0>
<TR valign=middle>
<TD valign=middle class=lightgrey><IMG src="/smusermanager/images/clear.gif" height=20 width=10% align=absmiddle></TD>
</TR>
<TR valign=top height=2>
<TD><IMG src="/smusermanager/images/clear.gif" height=2 width=10% border=0></TD>
</TR>
<TR valign=top height=3>
<TD class=gray><IMG src="/smusermanager/images/clear.gif" height=3 width=10% border=0></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=10 width=100% border=0>
<TR>
<TD><font class=tbody>
<form action="<%=smumadminpage%>?action=search" method=post id=form1 name=form1>
<font class=smallheading><b>Search</b></font>
<input type=text class=fieldbox maxlength=50 size=12 name=keyword><input type=hidden value=all name=sfield> <input type=submit class=fieldbox value=Go name=search>
<br><IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><a href="<%=smumadminpage%>?action=advsearch">Advanced Search</a> <IMG src="/smusermanager/images/search.gif" align=absmiddle>
</form>
<IMG src="/smusermanager/images/sepline130.gif"><br>
<font class=smallheading><b>Manage Resources</b></font><br>
<IMG src="/smusermanager/images/sepline130.gif"><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=addmember">Add a Member</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=listing">Member Listing</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=groups">Groups Management</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=groupslisting">Groups Listing</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=expiredmembers">Expired Members</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=memberlogs">Member Logs</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=block">Blocked Emails</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=maillist">Maillist Management</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=newsletter">Newsletter</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=approvemessages">Approve Messages</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="/smusermanager/help/" target="_blank">User Manual</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumpage%>?action=logout&url=/">Logout</a>
<br><br><br>
<IMG src="/smusermanager/images/sepline130.gif"><br>
<font class=smallheading><b>System Management</b></font><br>
<IMG src="/smusermanager/images/sepline130.gif"><br>
<%if Application("smummaxlevels") < session("accesslevel") then%>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=settings">Email Settings</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=diagnostics">Diagnostics</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=preferences">Setup Preferences</a><br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="<%=smumadminpage%>?action=messages">Configure Messages</a>
<%end if%>
<br><br><br>
<IMG src="/smusermanager/images/sepline130.gif"><br>
<font class=smallheading><b>Instant Statistics</b></font><br>
<IMG src="/smusermanager/images/sepline130.gif"><br>
<font class=smallheading><IMG src="/smusermanager/images/members.gif" align=absmiddle alt="Total Members" border=0> : <%=smumtotalmembers%> Members<br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/maillist.gif" align=absmiddle alt="Total Maillist Members" border=0> : <%=smumtotalmaillistmembers%> Mail Subscriber<br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/groups.gif" align=absmiddle alt="Total Groups" border=0> : <%=smumtotalgroups%> Groups<br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/approvemsg.gif" align=absmiddle alt="Messages to be Approved" border=0> : <%=smumtotalapprovemsgs%> Approve Msgs<br>
<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/logins.gif" align=absmiddle alt="Total Logins" border=0> : <%=smumtotallogs%> Logins
<br><br><br>
<IMG src="/smusermanager/images/sepline130.gif"><br>
<font class=smallheading><b>License Info</b></font><br>
<IMG src="/smusermanager/images/sepline130.gif"><br>
Version <%=smumversion%> <br><br>
Licensed to<bR> <%=application("smumadminemail")%>
</font></font></TD>
</TR>
</TABLE>
</TD>
<TD width="1" height=100% background="/smusermanager/images/dot.gif">
<TABLE cellSpacing=0 valign=top cellPadding=0 width=1 border=0>
<TR valign=middle>
<TD valign=middle class=lightgrey><IMG src="/smusermanager/images/clear.gif" height=20 width=1 align=absmiddle></TD>
</TR>
<TR valign=top height=2>
<TD class=white><IMG src="/smusermanager/images/clear.gif" height=2 width=1 border=0></TD>
</TR>
<TR valign=top height=3>
<TD class=gray><IMG src="/smusermanager/images/clear.gif" height=3 width=1 border=0></TD>
</TR>
</TABLE>
</TD>
<TD width=100%>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TR>
<TD valign=top><font class=tbody>
<%
select case action
case "home"
%><!--- #include virtual=/smusermanager/includes/admin/home.asp --><%
call home()
case "addmember"
%><!--- #include virtual=/smusermanager/includes/admin/addmember.asp --><%
call addmember()
case "editmember"
%><!--- #include virtual=/smusermanager/includes/admin/editmember.asp --><%
call editmember()
case "deletemember"
%><!--- #include virtual=/smusermanager/includes/admin/deletemember.asp --><%
call deletemember()
case "reset"
%><!--- #include virtual=/smusermanager/includes/admin/reset.asp --><%
call reset()
case "listing"
%><!--- #include virtual=/smusermanager/includes/admin/listing.asp --><%
call listing()
case "groupslisting"
%><!--- #include virtual=/smusermanager/includes/admin/groupslisting.asp --><%
call groupslisting()
case "approvemessages"
%><!--- #include virtual=/smusermanager/includes/admin/approvemessages.asp --><%
call approvemessages()
case "displaymessage"
%><!--- #include virtual=/smusermanager/includes/admin/displaymessage.asp --><%
call displaymessage()
case "deletemessage"
%><!--- #include virtual=/smusermanager/includes/admin/deletemessage.asp --><%
call deletemessage()
case "editmessage"
%><!--- #include virtual=/smusermanager/includes/admin/editmessage.asp --><%
call editmessage()
case "newsletter"
%><!--- #include virtual=/smusermanager/includes/admin/newsletter.asp --><%
call newsletter()
case "newsletterg"
%><!--- #include virtual=/smusermanager/includes/admin/newsletterg.asp --><%
call newsletterg()
case "search"
%><!--- #include virtual=/smusermanager/includes/admin/search.asp --><%
call search()
case "settings"
if Application("smummaxlevels") => session("accesslevel") then Response.Redirect smumadminpage&"?action=home"
%><!--- #include virtual=/smusermanager/includes/admin/settings.asp --><%
call settings()
case "sendemail"
%><!--- #include virtual=/smusermanager/includes/admin/sendemail.asp --><%
call sendemail()
case "block"
%><!--- #include virtual=/smusermanager/includes/admin/block.asp --><%
call block()
case "groups"
%><!--- #include virtual=/smusermanager/includes/admin/groups.asp --><%
call groups()
case "maillist"
%><!--- #include virtual=/smusermanager/includes/admin/maillist.asp --><%
call maillist()
case "advsearch"
%><!--- #include virtual=/smusermanager/includes/admin/advsearch.asp --><%
call advsearch()
case "expiredmembers"
%><!--- #include virtual=/smusermanager/includes/admin/expiredmembers.asp --><%
call expiredmembers()
case "diagnostics"
if Application("smummaxlevels") => session("accesslevel") then Response.Redirect smumadminpage&"?action=home"
%><!--- #include virtual=/smusermanager/includes/admin/diagnostics.asp --><%
call diagnostics()
case "memberlogs"
%><!--- #include virtual=/smusermanager/includes/admin/memberlogs.asp --><%
call memberlogs()
case "preferences"
if Application("smummaxlevels") => session("accesslevel") then Response.Redirect smumadminpage&"?action=home"
%><!--- #include virtual=/smusermanager/includes/admin/preferences.asp --><%
call preferences()
Response.Write "<img src=""http://www.scriptmate.com/purchase/updates.asp?r="&smumregistrationcode&"&e="&smumadminemail&""" width=1 height=1>"
case "messages"
if Application("smummaxlevels") => session("accesslevel") then Response.Redirect smumadminpage&"?action=home"
%><!--- #include virtual=/smusermanager/includes/admin/messages.asp --><%
call messages()
case else
Response.Redirect smumadminpage & "?action=home"
end select
smumdataconn.Close
set smumdataconn = nothing%>
</font></TD>
</TR>
</TABLE>
</TD>
<TD width="1" height=100% background="/smusermanager/images/dot.gif"><IMG src="/smusermanager/images/clear.gif" width="1" height=100% border=0></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 valign=bottom cellPadding=0 width=100% border=0>
<TR valign=top height=4>
<TD colspan=2 class=gray><IMG src="/smusermanager/images/clear.gif" height=4 width=25 border=0></TD>
</TR>
<TR valign=middle height=25>
<TD class=headera2> <FONT class=linksmall>Copyright ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -