admin_web_wiz_forums_configuration.asp

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

	strForumPath = rsCommon("forum_path")
	blnEmoticons = rsCommon.Fields("Emoticons")
	blnAvatarImages = rsCommon.Fields("Avatar")
	intRepliesPerPage = rsCommon.Fields("Threads_per_page")
	intHotTopicViews = rsCommon.Fields("Hot_views")
	intHotTopicReplies = rsCommon.Fields("Hot_replies")
	blnActiveUsers = rsCommon.Fields("Active_users")
	blnProcessTime = rsCommon.Fields("Process_time")
	blnAuthorEdited = rsCommon.Fields("Show_edit")
	blnFlashFiles = rsCommon.Fields("Flash")
	intPollChoice = CInt(rsCommon.Fields("Vote_choices"))
	blnTopicIcon = CBool(rsCommon.Fields("Topic_icon"))
	blnLongRegForm = CBool(rsCommon.Fields("Long_reg"))
	blnCAPTCHAsecurityImages = CBool(rsCommon.Fields("CAPTCHA"))
	blnGuestSessions = CBool(rsCommon("Guest_SID"))
	blnRSS = CBool(rsCommon("RSS"))
	blnWebWizNewsPad = CBool(rsCommon("NewsPad"))
	strWebWizNewsPadURL = rsCommon("NewsPad_URL")
End If


'Reset Server Objects
rsCommon.Close
Call closeDatabase()
%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<title>Forum Configuration</title>
<%
'***** 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 ******
%>
<!-- Check the from is filled in correctly before submitting -->
<script  language="JavaScript" type="text/javascript">
<!-- Hide from older browsers...

//Function to check form is filled in correctly before submitting
function CheckForm () {

	//Check for a name of the forum
	if (document.frmConfiguration.forumName.value==""){
		alert("Please enter the name of your Forum");
		document.frmConfiguration.forumName.focus();
		return false;
	}
	
	//Check for a site name
	if (document.frmConfiguration.siteName.value==""){
		alert("Please enter the name of your Website");
		document.frmConfiguration.siteName.focus();
		return false;
	}
	
	//Check for a URL to homepage
	if (document.frmConfiguration.siteURL.value==""){
		alert("Please enter the URL to your websites homepage");
		document.frmConfiguration.siteURL.focus();
		return false;
	}
	
	//Check for a path to the forum
	if (document.frmConfiguration.forumPath.value==""){
		alert("Please enter the URL to your Forum");
		document.frmConfiguration.forumPath.focus();
		return false;
	}
	return true;
}
// -->
</script>
<!-- #include file="includes/admin_header_inc.asp" -->
<div align="center">
  <h1> Web Wiz Forums Configuration</h1> 
  <br />
    <a href="admin_menu.asp<% = strQsSID1 %>">Control Panel Menu</a><br />
    <br />
    From here you can configure general options of the forum to customise the functions and look of your forum.</p>
    <br />
    <br />
</div>
<form action="admin_web_wiz_forums_configuration.asp<% = strQsSID1 %>" method="post" name="frmConfiguration" id="frmConfiguration" onsubmit="return CheckForm();">
  <table border="0" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
    <tr>
      <td colspan="2" class="tableLedger">General Forum Settings</td>
    </tr>
    <tr>
      <td width="57%" class="tableRow">Forum name*<br />
      <span class="smText">This is the name of your forum. eg. My Website Forum </span></td>
      <td width="43%" valign="top" class="tableRow"><input name="forumName" type="text" id="forumName" value="<% = strForumName %>" size="30" maxlength="50"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Website name*<br />
        <span class="smText">The name of your website.  eg. My Website</span></td>
      <td valign="top" class="tableRow"><input type="text" name="siteName" maxlength="50" value="<% = strWebsiteName %>" size="30"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />      </td>
    </tr>
    <tr>
      <td class="tableRow">Website Address*<br />
        <span class="smText">This is the URL to your website's homepage so that members can be taken to your homepage when exiting the forum, your domain name 
      is usually best here.</span></td>
      <td valign="top" class="tableRow"><input name="siteURL" type="text" id="siteURL" value="<% = strWebsiteURL %>" size="30" maxlength="70"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Web address path to forum*<br />
        <span class="smText">The web URL to your forum including your domain name and any folder the forum may be in. This is the address you would 
        type into the address bar on your browser to get to the forum.<br />
      eg. http://www.mywebsite.com/forum </span></td>
      <td valign="top" class="tableRow"><input type="text" name="forumPath" maxlength="70" value="<% = strForumPath %>" size="30"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />      </td>
    </tr>
    <tr>
      <td class="tableRow">Powered by Web Wiz Link logo:<br />
      <span class="smText">If you enable this the text link to Web Wiz Forums&reg; at the bottom of the will be replaced with a graphic image.</span></td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="textLinks" value="False" <% If blnTextLinks = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
      <input type="radio" name="textLinks" value="True" <% If blnTextLinks = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
     <td class="tableRow">RSS Forum Feed:<br />
       <span class="smText">When enabled this allow an RSS Feed of the last 10 posts  across all forums or individual forums.<br />
      An RSS (Really Simple Syndication)  Feed will allow those using a RSS News Reader, like <a href="http://www.feeddemon.com/" target="_blank" class="smText">www.FeedDemon.com</a>, to have a feed of the latest posts posted in your forum.</span></td>
     <td valign="top" class="tableRow">On
      <input type="radio" name="RSS" value="True" <% If blnRSS = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
&nbsp;&nbsp;Off
<input type="radio" name="RSS" value="False" <% If blnRSS = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Active Users List<br />
      <span class="smText">This will display the names of all the active users in the forum on the main homepage.</span></td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="activeUsers" value="True" <% If blnActiveUsers = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
      <input type="radio" value="False" <% If blnActiveUsers = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> name="activeUsers" /></td>
    </tr>
    <tr>
      <td class="tableRow"><a href="http://www.webwizcaptcha.com" target="_blank">Web Wiz CAPTCHA</a>:<br />
      <span class="smText">This displays security images on some forms within the forum. This is used to prevent dictionary hacking, remote form submission, etc. (For security reasons this can not be disabled for logins) </span></td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="CAPTCHA" value="True" <% If blnCAPTCHAsecurityImages = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
      <input type="radio" value="False" <% If blnCAPTCHAsecurityImages = False Then Response.Write "checked" %> name="CAPTCHA"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Long Registration Form:<br />
      This changes the registration form so that if turned off new registrations will only see the mandatory fields. </td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="reg" value="True" <% If blnLongRegForm = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
&nbsp;&nbsp;Off
<input type="radio" value="False" <% If blnLongRegForm = False Then Response.Write "checked" %> name="reg"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Display Server Processing Time for Page:<br />
      <span class="smText"> Display the number of seconds it has taken the server to generate the page on the bottom of forum pages.</span></td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="processTime" value="True" <% If blnProcessTime = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
        <input type="radio" name="processTime" value="False" <% If blnProcessTime = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />      </td>
    </tr>
    <tr>
      <td colspan="2" class="tableLedger">User and Forum Posts Settings</td>
    </tr>
    <tr>
      <td class="tableRow">Avatar Images:<br />
        <span class="smText">If you wish to also allow users to upload their own avatars you will need to also <a href="admin_upload_configure.asp<% = strQsSID1 %>" class="smLink">setup the upload component</a>.<br />
      For extra security users can only upload avatars once registered by editing their profile.</span></td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="avatar" value="True" <% If blnAvatarImages = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
        <input type="radio" name="avatar" value="False" <% If blnAvatarImages = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />      </td>
    </tr>
    <tr>
      <td class="tableRow">Emoticon Smiley Images:</td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="emoticons" value="True" <% If blnEmoticons = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
      <input type="radio" name="emoticons" value="False" <% If blnEmoticons = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Display Edited Author:<br />
        <span class="smText">Display the name of person who edited a posts and the date the post was edited on the bottom of edited 
        posts.</span><br />      </td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="edited" value="True" <% If blnAuthorEdited = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
      <input type="radio" name="edited" value="False" <% If blnAuthorEdited = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Adobe Flash and YouTube Content:<br />
        <span class="smText">If you enable this then users will be able to display Flash and YouTube content  in their posts and signatures, using BBcode [FLASH] [/FLASH] and [TUBE] [/TUBE] </span></td>