boards.asp

BBS论坛的开发和设计

  <tr>
      <td bgcolor="#EFEFE7"> 
        <div align="center">
        <input name="Submit" type="submit" class="form1" value="确定添加">
        　
        <input name="Submit2" type="reset" class="form1" value="重填">
        </div></td>
  </tr>
        </form>
</table>
<%
End Sub
'============================
Sub EditBoard()
	BoardID = Trim(request.QueryString("BoardID"))
	If Not(IsNumeric(BoardID)) then ErrorMsg "参数错误!~"
	set rs1 = server.CreateObject("adodb.recordset")
	rs1.open "select * From JBB_Board where BoardID="&BoardID,conn,1,1
	if Not(rs1.Eof And rs1.Bof) then
%>
<br>
<table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form1" method="post" action="?action=SaveEditBoard&BoardID=<%=BoardID%>">
  <tr>
    <td><table width="560" height="21" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#EFEFE7"> 
            <td colspan="2"><strong>修改论坛</strong></td>
          </tr>
          <tr> 
            <td width="222" bgcolor="#FFFFFF">所属分类:</td>
            <td width="315" bgcolor="#FFFFFF"> <select name="ClassID" id="select">
                <%
		set rs = server.CreateObject("adodb.recordset")
		sql = "select Class_ID,Class_Name,Class_Order From JBB_Class Order By Class_Order asc"
		rs.open Sql,Conn,1,1
		if Not rs.Eof then
			for i = 1 to rs.recordCount
			%>
                <option value="<%=trim(rs(0))%>" <%if trim(rs(0)) = trim(rs1("ClassID")) then response.write "selected" End if%>>＝＝<%=trim(rs(1))%>＝＝</option>
                <%
			rs.MoveNext
			Next'i
		End if
		rs.close
		set rs = Nothing
			%>
              </select></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>论坛名称:</td>
            <td> <input name="title" type="text" id="title2" value="<%=Rtrim(rs1("title"))%>"></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF">版块排序:</td>
            <td bgcolor="#FFFFFF"> <input name="BoardOrder" type="text" id="BoardOrder" value="<%=Rtrim(rs1("BoardOrder"))%>" size="3" maxlength="3"></td>
          </tr>
          <tr valign="top" bgcolor="#F5F5F5"> 
            <td>描　　述:</td>
            <td> <textarea name="description" cols="40" rows="3" id="textarea"><%=Rtrim(rs1("description"))%></textarea></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF">风格样式:</td>
            <td bgcolor="#FFFFFF"> <select name="styleid" id="styleid">
                <%
			set rss = server.CreateObject("adodb.recordset")
			rss.open "select styleid,stylename from JBB_style order By styleid asc",conn,1,1
			if Not(rss.Bof and rss.Eof) then
			do while not rss.Eof
			%>
                <option value="<%=rss(0)%>" <%if rs1("styleid")=rss(0) then response.Write("selected") End if%>><%=trim(rss(1))%></option>
                <%
			rss.MoveNext
			Loop
			End if
			rss.close
			set rss = nothing
			%>
              </select></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>是否覆盖用户自定义风格，<br>
              强制使用以上风格?</td>
            <td>是 
              <input type="radio" name="bestrowUserStyle" value="1" <%if rs1("bestrowUserStyle") then response.write "checked" end if%>>
              　 否 
              <input name="bestrowUserStyle" type="radio" value="0" <%if Not(rs1("bestrowUserStyle")) then response.write "checked" end if%>></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF">发贴积分:<br>
              用户在此论坛每发一贴所加积分</td>
            <td bgcolor="#FFFFFF"> <input name="threadCent" type="text" id="threadCent3" value="<%=Rtrim(rs1("threadCent"))%>" size="3" maxlength="1"></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>回贴积分:<br>
              用户在此论坛每回复一贴所加积分 </td>
            <td> <input name="replyCent" type="text" id="replyCent2" value="<%=Rtrim(rs1("replyCent"))%>" size="3" maxlength="1"></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF">精华积分:<br>
              用户在此论坛主题设为精华所加积分 </td>
            <td bgcolor="#FFFFFF"> <input name="bestCent" type="text" id="replyCent" value="<%=Rtrim(rs1("bestCent"))%>" size="3" maxlength="1"></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>只读论坛:<br>
              不允许用户在此论坛发贴与回复?<br>
              此设置并不影响管理和版主、贵宾</td>
            <td>是 
              <input type="radio" name="Reads" value="1" <%if rs1("Reads") then response.write "checked" end if%>>
              　 否 
              <input name="Reads" type="radio" value="0" <%if Not(rs1("Reads")) then response.write "checked" end if%>></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF">隐藏论坛:<br>
              只有管理员与版主、贵宾才能进入?</td>
            <td bgcolor="#FFFFFF">是 
              <input type="radio" name="hide" value="1" <%if rs1("hide") then response.write "checked" end if%>>
              　 否 
              <input name="hide" type="radio" value="0" <%if Not(rs1("hide")) then response.write "checked" end if%>></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>允许的最大附件大小<br>
              在此论坛可以上传附件的最大字节数<br>
              1K =1024字节　1MB =1048576字节<br></td>
            <td> <input name="UploadFileSize" type="text" id="UploadFileSize" value="<%=Rtrim(rs1("UploadFileSize"))%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>附件的有效扩展名： <br>
              允许在此论坛上传文件的类型<br>
              多个请用 <font color="#FF0000">,</font> 隔开 </td>
            <td bgcolor="#FFFFFF"> <input name="UploadFileType" type="text" id="UploadFileType" value="<%=Rtrim(rs1("UploadFileType"))%>" size="43"> 
            </td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>编辑过的帖子显示&quot;由xx编辑&quot;的信息?</td>
            <td bgcolor="#F5F5F5">是 
              <input type="radio" name="EditPostShow" value="1" <%if rs1("EditPostShow") then response.write "checked" end if%>>
              　 否 
              <input name="EditPostShow" type="radio" value="0" <%if Not(rs1("EditPostShow")) then response.write "checked" end if%>>
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF">在本版块每次发贴间隔(秒)</td>
            <td bgcolor="#FFFFFF"> <input name="post_interval" type="text" id="post_interval" value="<%=rtrim(rs1("post_interval"))%>"></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>在本版块发贴内容允许字节(最多)</td>
            <td><input name="post_byte" type="text" id="post_byte" value="<%=rs1("post_byte")%>"></td>
          </tr>
        </table>
      <div align="center"><br>
          <input name="Submit3" type="submit" class="form1" value="确定修改">
        　 
          <input name="Submit22" type="reset" class="form1" value="重来">
      </div>
  </td>
  </tr>
        </form>
</table>
  
<br>
<%
	End if
	rs1.close
	set rs1 = Nothing
End Sub
'================================
Sub addBoard()
	ClassID = Trim(request.QueryString("Class_ID"))
	If Not(IsNumeric(ClassID)) then ErrorMsg "参数错误!~"
	set rs = server.CreateObject("adodb.recordset")
	sql = "select Class_ID,Class_Name,Class_Order From JBB_Class Order By Class_Order asc"
	rs.open Sql,Conn,1,1
%>
<br>
<table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form1" method="post" action="?action=SaveNewBoard">
  <tr>
    <td><table width="560" height="21" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#EFEFE7"> 
            <td colspan="2"><strong>添加论坛</strong></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="222">所属分类:</td>
            <td width="315"> <select name="ClassID" id="select">
                <%
			for i = 1 to rs.recordCount
			%>
                <option value="<%=trim(rs(0))%>" <%if trim(rs(0)) = ClassID then response.write "selected" End if%>>＝＝<%=trim(rs(1))%>＝＝</option>
                <%
			rs.MoveNext
			Next'i
			%>
              </select></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td bgcolor="#F5F5F5">论坛名称:</td>
            <td bgcolor="#F5F5F5"> <input name="title" type="text" id="title2"> 
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>版块排序:</td>
            <td> <input name="BoardOrder" type="text" id="BoardOrder" value="1" size="3" maxlength="3"></td>
          </tr>
          <tr valign="top" bgcolor="#F5F5F5"> 
            <td>描　　述:</td>
            <td> <textarea name="description" cols="40" rows="3" id="textarea"></textarea></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>风格样式:</td>
            <td> <select name="styleid" id="select2">
                <%
			set rss = server.CreateObject("adodb.recordset")
			rss.open "select styleid,stylename from JBB_style order By styleid asc",conn,1,1
			if Not(rss.Bof and rss.Eof) then
			do while not rss.Eof
			%>
                <option value="<%=rss(0)%>"><%=trim(rss(1))%></option>
                <%
			rss.MoveNext
			Loop
			End if
			rss.close
			set rss = nothing
			%>
              </select></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>是否覆盖用户自定义风格，<br>
              强制使用以上风格?</td>
            <td>是 
              <input type="radio" name="bestrowUserStyle" value="1">
              　 否 
              <input name="bestrowUserStyle" type="radio" value="0" checked></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>发贴积分:<br>
              用户在此论坛每发一贴所加积分</td>
            <td> <input name="threadCent" type="text" id="threadCent3" value="3" size="3" maxlength="1"></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>回贴积分:<br>
              用户在此论坛每回复一贴所加积分 </td>
            <td> <input name="replyCent" type="text" id="replyCent2" value="2" size="3" maxlength="1"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>精华积分:<br>
              用户在此论坛主题设为精华所加积分</td>
            <td> <input name="bestCent" type="text" id="bestCent" value="5" size="3" maxlength="1"></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>只读论坛:<br>
              不允许用户在此论坛发贴与回复?<br>
              此设置并不影响管理和版主、贵宾</td>
            <td>是 
              <input type="radio" name="Reads" value="1">
              　 否 
              <input name="Reads" type="radio" value="0" checked></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>隐藏论坛:<br>
              只有管理员与版主、贵宾才能进入?</td>
            <td>是 
              <input type="radio" name="hide" value="1">
              　 否 
              <input name="hide" type="radio" value="0" checked></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>允许的最大附件大小<br>
              在此论坛可以上传附件的最大字节数<br>
              1K =1024字节　1MB =1048576字节<br></td>
            <td> <input name="UploadFileSize" type="text" id="UploadFileSize" value="102400"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>附件的有效扩展名： <br>
              允许在此论坛上传文件的类型<br>
              多个请用 <font color="#FF0000">,</font> 隔开 </td>
            <td> <input name="UploadFileType" type="text" id="UploadFileType" value="gif,jpg,jpeg,swf,mp3,mp2,mpga,rm,asf,ram" size="43"></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>编辑过的帖子显示&quot;由xx编辑&quot;的信息?</td>
            <td bgcolor="#F5F5F5">是 
              <input type="radio" name="EditPostShow" value="1">
              　 否 
              <input name="EditPostShow" type="radio" value="0" checked>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>在本版块每次发贴间隔(秒)</td>
            <td> <input name="post_interval" type="text" id="post_interval" value="30"></td>
          </tr>
          <tr bgcolor="#F5F5F5"> 
            <td>在本版块发贴内容允许字节(最多)</td>
            <td><input name="post_byte" type="text" id="post_byte" value="2000"></td>
          </tr>
        </table>
      <div align="center"><br>
        <input name="Submit3" type="submit" class="form1" value="确定添加">
        　 
        <input name="Submit22" type="reset" class="form1" value="重填">
          <br>
          <br>
        </div>
  </td>
  </tr>
        </form>
</table>
  
<br>
<%
	rs.close
	set rs = Nothing
End Sub
'================================
Sub EditClass()
	ClassID = trim(request.QueryString("Class_ID"))
		if Not(ISnumeric(ClassID)) then ErrorMsg "参数错误!~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * from JBB_Class where Class_ID="&ClassID,conn,1,1
	if Not(rs.Bof and rs.Eof) then
%>
<br>
<br>
<br>
<br>
<table width="302" height="21" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form1" method="post" action="?action=SaveEditClass&ClassID=<%=ClassID%>">
    <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"><strong>修改论坛分类</strong></div></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">类 别 名: 
        <input name="ClassName" type="text" id="ClassName" value="<%=trim(rs("Class_Name"))%>">
      </td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">类别排序: 
        <input name="ClassOrder" type="text" id="ClassOrder2" value="<%=trim(rs("Class_Order"))%>" size="3" maxlength="3">
      </td>