admin_menu.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="admin_common.asp" -->
<%
'****************************************************************************************
'**  Copyright Notice    
'**
'**  Web Wiz Forums(TM)
'**  http://www.webwizforums.com
'**                            
'**  Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved.
'**  
'**  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**  
'**  IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE 
'**  THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'**  AND DERIVATIVE WORKS IMMEDIATELY.
'**  
'**  If you have not received a copy of the license with this work then a copy of the latest
'**  license contract can be found at:-
'**
'**  http://www.webwizguide.com/license
'**
'**  For more information about this software and for licensing information please contact
'**  'Web Wiz' at the address and website below:-
'**
'**  Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'**  http://www.webwizguide.com
'**
'**  Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************



'*************************** SOFTWARE AND CODE MODIFICATIONS **************************** 
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE  
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************



'Clean up
Call closeDatabase()

%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<title>Forum Control Panel Menu</title>
<meta name="generator" content="Web Wiz Forums" />
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Copyright: (C)2001-2008 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->" & vbCrLf & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

%>
<!-- #include file="includes/admin_header_inc.asp" -->
   <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
    <tr>
     <td class="tableLedger">Control Panel Menu </td>
    </tr>
    <tr>
     <td class="tableRow"><table width="100%" border="0" cellpadding="15" cellspacing="4">
       <tr>
        <td width="33%" align="center"><a href="admin_menu.asp?C=admin<% = strQsSID2 %>"><img src="forum_images/forum_setup.png" alt="Forum Setup and Admin" border="0" /></a><br />
         <a href="admin_menu.asp?C=admin<% = strQsSID2 %>"><strong>Forum Setup and Admin</strong></a></td>
        <td width="33%" align="center"><a href="admin_menu.asp?C=setup<% = strQsSID2 %>"><img src="forum_images/toolbox.png" alt="Setup and Configuration" border="0" /></a> <br />
         <a href="admin_menu.asp?C=setup<% = strQsSID2 %>"><strong>Setup and Configuration</strong></a> </td>
        <td width="33%" align="center"><a href="admin_menu.asp?C=members<% = strQsSID2 %>"><img src="forum_images/gorups_members.png" alt="Group and Members Tools" border="0" /></a><br />
         <a href="admin_menu.asp?C=members<% = strQsSID2 %>"><strong>Group and Members Tools</strong></a></td>
       </tr>
      </table>
       <table width="100%" border="0" cellpadding="15" cellspacing="4">
        <tr>
         <td width="33%" align="center"><a href="admin_menu.asp?C=security<% = strQsSID2 %>"><img src="forum_images/security.png" alt="Security Settings" border="0" /></a><br />
          <a href="admin_menu.asp?C=security<% = strQsSID2 %>"><strong>Security Settings</strong></a> </td>
         <td width="33%" align="center"><a href="admin_menu.asp?C=tools<% = strQsSID2 %>"><img src="forum_images/tools.png" alt="Forum Tools" border="0" /></a><br />
          <a href="admin_menu.asp?C=tools<% = strQsSID2 %>"><strong>Forum Tools</strong></a></td>
         <%

	If blnLCode Then
	
%>
         <td width="33%" align="center"><a href="admin_license.asp<% = strQsSID1 %>"><img src="forum_images/webwizforums_box_sm.png" alt="Premium Edition Upgrade" border="0" /></a><br />
          <a href="admin_license.asp<% = strQsSID1 %>"><strong>Premium Edition Upgrade </strong></a></td>
         <%
        
	End If

%>
        </tr>
      </table></td>
    </tr>
   </table><%
   
'If the database is not moved tell the user there forum is not secure
If strDatabaseType = "Access" AND strDbPathAndName = Server.MapPath("database/wwForum.mdb") Then   
   
%>  
 <br />
 <table class="errorTable" cellspacing="1" cellpadding="3" align="center">
  <tr>
   <td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong>SECURITY ALERT!!</strong>
    <br /><br />
    Your Forums's Access database has not been secured.
    <br /><br />
    <a href="http://www.webwizguide.com/webwizforums/kb/" target="_blank">View information on how to secure your Forums's Access database.</a>
  </tr>
</table><%

End If


'If the database is not moved tell the user there forum is not secure
If LCase(strLoggedInUsername) = "administrator" AND lngLoggedInUserID = 1 AND blnDemoMode = False Then
   
 %>  
 <br />
 <table class="errorTable" cellspacing="1" cellpadding="3" align="center">
  <tr>
   <td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong>SECURITY ALERT!!</strong>
    <br /><br />
    Your Admin Login Username and Password are not secure.
    <br /><br />
    <a href="admin_change_admin_username.asp">Update your Admin Login.</a>
  </tr>
</table><%  
	
End If
   


'If they want forum admin menu
If Request.QueryString("C") = "admin" Then

%>
   <br />
   <table width="100%" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
 <tr>
  <td class="tableLedger">Forum Administration</td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_view_forums.asp<% = strQsSID1 %>">Forum Administration</a><br />
   Create, Amend, Delete any forum's and forum categories, alter forum details, set forum permissions, lock forums, password protect forums, etc.</td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_statistics.asp<% = strQsSID1 %>">Forum Statistics</a><br />
Displays a list of forum statistics.</td>
 </tr>
</table>
   <%

End If

'If they want memebrs and group menu
If Request.QueryString("C") = "members" Then

%>
<br />
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
 <tr>
  <td class="tableLedger">Group Administration</td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_view_groups.asp<% = strQsSID1 %>">Group Administration</a><br />
   Create, Amend, Delete, change the details, set permissions etc. of  Member Groups.</td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_group_permissions_form.asp<% = strQsSID1 %>">Set Group Permissions</a><br />
   Setup or change Group Permissions </td>
 </tr>
</table>
<br />
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
 <tr>
  <td class="tableLedger">Member Administration</td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_select_members.asp<% = strQsSID1 %>">Member Administration</a><br />
   Administer members accounts, make them moderators, change status, delete members, suspend accounts, etc.</td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_register.asp<% = strQsSID1 %>">Add New Member </a><br />
   From this option you can Add a New Forum Member. </td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_find_user.asp<% = strQsSID1 %>">Set  Member Permissions</a><br />
From this option you can configure permissions  for individual Members.</td>
 </tr>
 <tr class="tableRow">
  <td><a href="admin_suspend_registration.asp<% = strQsSID1 %>">Suspend New Registrations</a><br />
   From this option you can Suspend New Users from Registering to use the forum.</td>
 </tr>