admin_web_wiz_forums_configuration.asp

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

      <td valign="top" class="tableRow">On
        <input type="radio" name="flash" value="True" <% If blnFlashFiles = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
      <input type="radio" name="flash" value="False" <% If blnFlashFiles = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow"><a href="http://www.richtexteditor.org">Web Wiz Rich Text Editor</a> (WYSIWYG):<br />
        <span class="smText">This is the type of editor you use to post messages if you are using a Rich Text Enabled web browser, currently Windows IE5+, Netscape 7.1+, Mozilla 1.3+,   Firebird 0.6.1+, 
        and Opera 9, support this feature.<br />
If you turn this function off everyone will use the Basic message editor.<br />
If you want greater security turn this feature off, but you will lose functionality.</span></td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="IEEditor" value="True" <% If blnRTEEditor = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
&nbsp;&nbsp;Off
<input type="radio" name="IEEditor" value="False" <% If blnRTEEditor = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Guest Sessions:<br />
       <span class="smText">If this is disabled it could help with Search Engine Indexing, but will mean that Guests will not be able to use many tools and features within the forum.</span></td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="GuestSID" value="True" <% If blnGuestSessions = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
&nbsp;&nbsp;Off
<input type="radio" name="GuestSID" value="False" <% If blnGuestSessions = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td colspan="2" class="tableLedger">Forum Posts and Topic Page Display Settings</td>
    </tr>
    <tr>
      <td class="tableRow">Topic Icons:<br />
      These are the small icons shown next to topics. </td>
      <td valign="top" class="tableRow">On
        <input type="radio" name="TopicIcons" value="True" <% If blnTopicIcon = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
&nbsp;&nbsp;Off
<input type="radio" name="TopicIcons" value="False" <% If blnTopicIcon = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td class="tableRow">Topics Per Page:<br />
      <span class="smText">This is the number of Topics shown on each page.</span></td>
      <td valign="top" class="tableRow"><select name="topic"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
          <option <% If intTopicPerPage = 10 Then Response.Write("selected") %>>10</option>
          <option <% If intTopicPerPage = 12 Then Response.Write("selected") %>>12</option>
          <option <% If intTopicPerPage = 14 Then Response.Write("selected") %>>14</option>
          <option <% If intTopicPerPage = 16 Then Response.Write("selected") %>>16</option>
          <option <% If intTopicPerPage = 18 Then Response.Write("selected") %>>18</option>
          <option <% If intTopicPerPage = 20 Then Response.Write("selected") %>>20</option>
          <option <% If intTopicPerPage = 22 Then Response.Write("selected") %>>22</option>
          <option <% If intTopicPerPage = 24 Then Response.Write("selected") %>>24</option>
          <option <% If intTopicPerPage = 26 Then Response.Write("selected") %>>26</option>
          <option <% If intTopicPerPage = 28 Then Response.Write("selected") %>>28</option>
          <option <% If intTopicPerPage = 30 Then Response.Write("selected") %>>30</option>
          <option <% If intTopicPerPage = 32 Then Response.Write("selected") %>>32</option>
          <option <% If intTopicPerPage = 34 Then Response.Write("selected") %>>34</option>
        </select>      </td>
    </tr>
    <tr>
      <td class="tableRow">Posts Per Page:<br />
      <span class="smText">This is the number of Posts shown on each page of a Topic.</span></td>
      <td valign="top" class="tableRow"><select name="threads"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
          <option<% If intRepliesPerPage = 10 Then Response.Write(" selected") %>>3</option>
          <option<% If intRepliesPerPage = 4 Then Response.Write(" selected") %>>4</option>
          <option<% If intRepliesPerPage = 5 Then Response.Write(" selected") %>>5</option>
          <option<% If intRepliesPerPage = 6 Then Response.Write(" selected") %>>6</option>
          <option<% If intRepliesPerPage = 7 Then Response.Write(" selected") %>>7</option>
          <option<% If intRepliesPerPage = 8 Then Response.Write(" selected") %>>8</option>
          <option<% If intRepliesPerPage = 9 Then Response.Write(" selected") %>>9</option>
          <option<% If intRepliesPerPage = 10 Then Response.Write(" selected") %>>10</option>
          <option<% If intRepliesPerPage = 12 Then Response.Write(" selected") %>>12</option>
          <option<% If intRepliesPerPage = 14 Then Response.Write(" selected") %>>14</option>
          <option<% If intRepliesPerPage = 16 Then Response.Write(" selected") %>>16</option>
          <option<% If intRepliesPerPage = 18 Then Response.Write(" selected") %>>18</option>
          <option<% If intRepliesPerPage = 20 Then Response.Write(" selected") %>>20</option>
          <option<% If intRepliesPerPage = 25 Then Response.Write(" selected") %>>25</option>
          <option<% If intRepliesPerPage = 30 Then Response.Write(" selected") %>>30</option>
          <option<% If intRepliesPerPage = 35 Then Response.Write(" selected") %>>35</option>
          <option<% If intRepliesPerPage = 40 Then Response.Write(" selected") %>>40</option>
          <option<% If intRepliesPerPage = 45 Then Response.Write(" selected") %>>45</option>
          <option<% If intRepliesPerPage = 50 Then Response.Write(" selected") %>>50</option>
          <option<% If intRepliesPerPage = 75 Then Response.Write(" selected") %>>75</option>
          <option<% If intRepliesPerPage = 100 Then Response.Write(" selected") %>>100</option>
          <option<% If intRepliesPerPage = 150 Then Response.Write(" selected") %>>150</option>
          <option<% If intRepliesPerPage = 200 Then Response.Write(" selected") %>>200</option>
          <option<% If intRepliesPerPage = 250 Then Response.Write(" selected") %>>250</option>
          <option<% If intRepliesPerPage = 300 Then Response.Write(" selected") %>>300</option>
          <option<% If intRepliesPerPage = 500 Then Response.Write(" selected") %>>500</option>
          <option<% If intRepliesPerPage = 999 Then Response.Write(" selected") %>>999</option>
        </select>      </td>
    </tr>
    <tr>
      <td class="tableRow">Hot Topic Number of Views:<br />
      <span class="smText">This is the number of times a Topic is viewed before it is shown as a Hot Topic.</span></td>
      <td valign="top" class="tableRow"><select name="hotViews"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
          <option<% If intHotTopicViews = 5 Then Response.Write(" selected") %>>5</option>
          <option<% If intHotTopicViews = 10 Then Response.Write(" selected") %>>10</option>
          <option<% If intHotTopicViews = 20 Then Response.Write(" selected") %>>20</option>
          <option<% If intHotTopicViews = 30 Then Response.Write(" selected") %>>30</option>
          <option<% If intHotTopicViews = 40 Then Response.Write(" selected") %>>40</option>
          <option<% If intHotTopicViews = 50 Then Response.Write(" selected") %>>50</option>
          <option<% If intHotTopicViews = 60 Then Response.Write(" selected") %>>60</option>
          <option<% If intHotTopicViews = 70 Then Response.Write(" selected") %>>70</option>
          <option<% If intHotTopicViews = 80 Then Response.Write(" selected") %>>80</option>
          <option<% If intHotTopicViews = 90 Then Response.Write(" selected") %>>90</option>
          <option<% If intHotTopicViews = 100 Then Response.Write(" selected") %>>100</option>
          <option<% If intHotTopicViews = 110 Then Response.Write(" selected") %>>110</option>
          <option<% If intHotTopicViews = 120 Then Response.Write(" selected") %>>120</option>
          <option<% If intHotTopicViews = 130 Then Response.Write(" selected") %>>130</option>
          <option<% If intHotTopicViews = 140 Then Response.Write(" selected") %>>140</option>
          <option<% If intHotTopicViews = 150 Then Response.Write(" selected") %>>150</option>
          <option<% If intHotTopicViews = 200 Then Response.Write(" selected") %>>200</option>
          <option<% If intHotTopicViews = 250 Then Response.Write(" selected") %>>250</option>
          <option<% If intHotTopicViews = 300 Then Response.Write(" selected") %>>300</option>
          <option<% If intHotTopicViews = 400 Then Response.Write(" selected") %>>400</option>
          <option<% If intHotTopicViews = 500 Then Response.Write(" selected") %>>500</option>
        </select>      </td>
    </tr>
    <tr>
      <td class="tableRow">Hot Topic Number or Replies:<br />
      <span class="smText">This is the number of Replies a Topic must have to be shown as a Hot Topic.</span></td>
      <td valign="top" class="tableRow"><select name="hotReplies"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
          <option<% If intHotTopicReplies = 3 Then Response.Write(" selected") %>>3</option>
          <option<% If intHotTopicReplies = 4 Then Response.Write(" selected") %>>4</option>
          <option<% If intHotTopicReplies = 5 Then Response.Write(" selected") %>>5</option>
          <option<% If intHotTopicReplies = 6 Then Response.Write(" selected") %>>6</option>
          <option<% If intHotTopicReplies = 7 Then Response.Write(" selected") %>>7</option>
          <option<% If intHotTopicReplies = 8 Then Response.Write(" selected") %>>8</option>
          <option<% If intHotTopicReplies = 9 Then Response.Write(" selected") %>>9</option>
          <option<% If intHotTopicReplies = 10 Then Response.Write(" selected") %>>10</option>
          <option<% If intHotTopicReplies = 15 Then Response.Write(" selected") %>>15</option>
          <option<% If intHotTopicReplies = 20 Then Response.Write(" selected") %>>20</option>
          <option<% If intHotTopicReplies = 25 Then Response.Write(" selected") %>>25</option>
          <option<% If intHotTopicReplies = 30 Then Response.Write(" selected") %>>30</option>
          <option<% If intHotTopicReplies = 35 Then Response.Write(" selected") %>>35</option>
          <option<% If intHotTopicReplies = 40 Then Response.Write(" selected") %>>40</option>
          <option<% If intHotTopicReplies = 45 Then Response.Write(" selected") %>>45</option>
          <option<% If intHotTopicReplies = 50 Then Response.Write(" selected") %>>50</option>
          <option<% If intHotTopicReplies = 60 Then Response.Write(" selected") %>>60</option>
          <option<% If intHotTopicReplies = 75 Then Response.Write(" selected") %>>75</option>
          <option<% If intHotTopicReplies = 100 Then Response.Write(" selected") %>>100</option>
      </select></td>
    </tr>
    <tr>
      <td class="tableRow">Number of Poll Choices:<br />
      <span class="smText">This is the maximum number of Choices allowed in a Forum Polls.</span></td>
      <td valign="top" class="tableRow"><select name="pollChoice" id="pollChoice"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
          <option<% If intPollChoice = 3 Then Response.Write(" selected") %>>3</option>
          <option<% If intPollChoice = 4 Then Response.Write(" selected") %>>4</option>
          <option<% If intPollChoice = 5 Then Response.Write(" selected") %>>5</option>
          <option<% If intPollChoice = 6 Then Response.Write(" selected") %>>6</option>
          <option<% If intPollChoice = 7 Then Response.Write(" selected") %>>7</option>
          <option<% If intPollChoice = 8 Then Response.Write(" selected") %>>8</option>
          <option<% If intPollChoice = 9 Then Response.Write(" selected") %>>9</option>
          <option<% If intPollChoice = 10 Then Response.Write(" selected") %>>10</option>
          <option<% If intPollChoice = 11 Then Response.Write(" selected") %>>11</option>
          <option<% If intPollChoice = 12 Then Response.Write(" selected") %>>12</option>
          <option<% If intPollChoice = 13 Then Response.Write(" selected") %>>13</option>
          <option<% If intPollChoice = 14 Then Response.Write(" selected") %>>14</option>
          <option<% If intPollChoice = 15 Then Response.Write(" selected") %>>15</option>
          <option<% If intPollChoice = 16 Then Response.Write(" selected") %>>16</option>
          <option<% If intPollChoice = 17 Then Response.Write(" selected") %>>17</option>
          <option<% If intPollChoice = 18 Then Response.Write(" selected") %>>18</option>
          <option<% If intPollChoice = 19 Then Response.Write(" selected") %>>19</option>
          <option<% If intPollChoice = 20 Then Response.Write(" selected") %>>20</option>
          <option<% If intPollChoice = 25 Then Response.Write(" selected") %>>25</option>
        </select>      </td>
    </tr>
    <tr>
     <td colspan="2" class="tableLedger">Web Wiz NewsPad Integration </td>
     </tr>
    <tr>
     <td class="tableRow"><a href="http://www.webwiznewspad.com" target="_blank">Web Wiz NewsPad</a> Integration<br />
     <span class="smText"> By enabling Web Wiz NewsPad integration, your members can select when registering or in their forum profile to signup to Newsletters and News Bulletins sent using Web Wiz NewsPad </span></td>
     <td valign="top" class="tableRow">On
      <input type="radio" name="NewsPad" id="NewsPad" value="True" <% If blnWebWizNewsPad = True Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
&nbsp;&nbsp;Off
<input type="radio" value="False" <% If blnWebWizNewsPad = False Then Response.Write "checked" %> name="NewsPad" id="NewsPad"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
     <td class="tableRow">Web Wiz NewsPad URL <br />
      <span class="smText">If you type in the URL to NewsPad it will use the RSS Feed available in Web Wiz NewsPad to display links to Newsletters and News Bulletins on your forums index page. </span><br />
      <span class="smText">eg. http://www.mywebsite.com/NewsPad</span></td>
     <td valign="top" class="tableRow"><input name="NewsPadURL" type="text" id="NewsPadURL" value="<% = strWebWizNewsPadURL %>" size="35" maxlength="75"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr align="center">
      <td colspan="2" class="tableBottomRow">
          <input type="hidden" name="postBack" value="true" />
          <input type="submit" name="Submit" value="Update Forum Configuration" />
          <input type="reset" name="Reset" value="Reset Form" />      </td>
    </tr>
  </table>
</form>
<br />
<!-- #include file="includes/admin_footer_inc.asp" -->