forumintro.asp

电子商务网络购物系统

 </table>
 <br />
 <table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
  <tr>
   <td width="450"> <table width="100%" border="0" align="center" class="normal" cellpadding="4" cellspacing="1">
     <tr bgcolor="#CCCCCC">
            <td colspan="2" class="tHeading"><b>论坛信息</b></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">论坛名称*:</td>
      <td width="43%" valign="top"> <input type="text" name="forumName" maxlength="60" size="30" value="<% = strForumName %>"> </td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">论坛描述*:<br />
            </td>
      <td valign="top"><input type="text" name="description" maxlength="190" size="30" value="<% = strForumDescription %>"></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">显示主题设置:<br>
            </td>
      <td valign="top"> <select name="showTopics">
        <option value="0" <% If intShowTopicsFrom = 0 Then Response.Write "selected" %>> 所有 </option>
        <option value="7" <% If intShowTopicsFrom = 7 Then Response.Write "selected" %>> 上周</option>
        <option value="14" <% If intShowTopicsFrom = 14 Then Response.Write "selected" %>> 上两周 </option>
        <option value="31" <% If intShowTopicsFrom = 31 Then Response.Write "selected" %>>上个月 </option>
        <option value="62" <% If intShowTopicsFrom = 62 Then Response.Write "selected" %>> 前两个月 </option>
        <option value="182" <% If intShowTopicsFrom = 182 Then Response.Write "selected" %>> 前六个月 </option>
        <option value="365" <% If intShowTopicsFrom = 365 Then Response.Write "selected" %>>去年 </option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">锁定论坛:</td>
      <td valign="top"><input name="locked" type="checkbox" id="locked" value="true"<% If blnLocked Then Response.Write " checked" %>></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">隐藏论坛:<br>
              <span class="smText">隐藏没有访问权限的论坛</span></td>
      <td width="43%" valign="top"><input name="hide" type="checkbox" id="hide" value="true"<% If blnHide Then Response.Write " checked" %>></td>
     </tr>
    </table></td>
  </tr>
 </table>
 <br>
 <br>
 <table width="100%" height="58" border="0" cellpadding="0" cellspacing="0">
  <tr>
      <td align="center" class="text"><span class="lgText">通用论坛权限</span><br>
    <br>
        组权限覆盖通用论坛权限<br>
      </td>
  </tr>
 </table>
 <table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
  <tr>
   <td width="450"> <table width="100%" border="0" align="center" class="normal" cellpadding="4" cellspacing="1">
     <tr bgcolor="#CCCCCC">
            <td colspan="2" class="tHeading"><b>通用论坛权限</b></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">访　　问:</td>
      <td width="43%" valign="top"> <select name="read">
        <option value="1"<% If intRead = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intRead = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intRead = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intRead = 4 Then Response.Write(" selected") %>>管理员</option>
       </select> </td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">发　　言:</td>
      <td width="43%" valign="top"> <select name="post">
        <option value="1"<% If intPost = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intPost = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intPost = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intPost = 4 Then Response.Write(" selected") %>>管理员</option>
       </select> </td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">回　　复: </td>
      <td width="43%" valign="top"> <select name="reply">
        <option value="1"<% If intReply = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intReply = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intReply = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intReply = 4 Then Response.Write(" selected") %>>管理员</option>
       </select> </td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">编　　辑:</td>
      <td valign="top"><select name="edit">
        <option value="1"<% If intEdit = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intEdit = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intEdit = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intEdit = 4 Then Response.Write(" selected") %>>管理员</option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">删　　除:</td>
      <td valign="top"><select name="delete">
        <option value="1"<% If intDelete = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intDelete = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intDelete = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intDelete = 4 Then Response.Write(" selected") %>>管理员</option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">置　　顶:</td>
      <td valign="top"><select name="priority">
        <option value="1"<% If intPriority = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intPriority = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intPriority = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intPriority = 4 Then Response.Write(" selected") %>>管理员</option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">发起投票:</td>
      <td valign="top"><select name="polls">
	<option value="0"<% If intPollCreate = 0 Then Response.Write(" selected") %>>关闭</option>
        <option value="1"<% If intPollCreate = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intPollCreate = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intPollCreate = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intPollCreate = 4 Then Response.Write(" selected") %>>管理员</option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">参与投票:</td>
      <td valign="top"><select name="vote">
	<option value="0"<% If intVote = 0 Then Response.Write(" selected") %>>关闭</option>
        <option value="1"<% If intVote = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intVote = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intVote = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intVote = 4 Then Response.Write(" selected") %>>管理员</option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">贴　　图:<br> <span class="smText">请先在 <a href="upcfg.asp" target="_self" class="smLink">上传管理页面</a> 
              开通贴图的功能</span> </td>
      <td valign="top"><select name="images">
        <option value="0"<% If intImageUpload = 0 Then Response.Write(" selected") %>>关闭</option>
        <option value="1"<% If intImageUpload = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intImageUpload = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intImageUpload = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intImageUpload = 4 Then Response.Write(" selected") %>>管理员</option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">附　　件:<br> <span class="smText">请先在 <a href="upcfg.asp" target="_self" class="smLink">上传管理页面</a> 
              开通附件的功能</span></td>
      <td valign="top"><select name="files">
        <option value="0"<% If intAttachments = 0 Then Response.Write(" selected") %>>关闭</option>
        <option value="1"<% If intAttachments = 1 Then Response.Write(" selected") %>>所有用户</option>
        <option value="2"<% If intAttachments = 2 Then Response.Write(" selected") %>>注册用户</option>
        <option value="3"<% If intAttachments = 3 Then Response.Write(" selected") %>>特定用户组</option>
        <option value="4"<% If intAttachments = 4 Then Response.Write(" selected") %>>管理员</option>
       </select></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text"> 
              <% If strForumPassword <> "" Then Response.Write("Change ")%>
              密　　码:<br />
              <span class="smText">设置密码可以加密该论坛</span></td>
      <td width="43%" valign="top" class="smText">
       <input type="text" name="password" maxlength="20" size="20"><%

      	'If there is a password ask if they want to remove it
      	If strForumPassword <> "" Then
      	%>
      <br /><input name="remove" type="checkbox" id="remove" value="true">
              删除密码 
              <%

	End If

      	%>
            </td>
     </tr>
    </table></td>
  </tr>
 </table>
 <div align="center"><br />
  <input type="hidden" name="postBack" value="true">
  <input type="hidden" name="mode" value="<% = strMode %>">
  <input type="submit" name="Submit" value="确定">
  <input type="reset" name="Reset" value="清除">
  <br />
 </div>
</form><%
End If
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
</body>
</html>