📄 disforum.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True
%>
<html>
<head>
<title>管理论坛</title>

<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading">管理论坛</span><br>
  <br />
  <a href="menu.asp" target="_self">返回到管理主菜单</a></div>
<form name="form1" method="post" action="updateorder.asp">
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
   <td align="center" class="text">你可以添加，删除，编辑，锁定论坛分类和分论坛<br>
    <br>
    单击你想修改的论坛分类名或者分论坛名，给论坛分类和分论坛排序<br /> <br />
 </table>
 <br />
 <table width="96%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" align="center">
  <tr>
   <td> <table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
     <tr>
      <td bgcolor="#CCCCff" class="lgText"><b><span style="font-size: 12px;">论坛列表</span></b></td>
      <td bgcolor="#CCCCff" class="lgText" width="9%" align="center"><b><span style="font-size: 12px;">锁定论坛</span></b></td>
      <td bgcolor="#CCCCff" class="lgText" width="9%" align="center"><b><span style="font-size: 12px;">删除论坛</span></b></td>
      <td bgcolor="#CCCCff" class="lgText" width="10%"align="center"><b><span style="font-size: 12px;">排序</span></b></td>
     </tr><%

Dim rsBBS 
Dim strBoard
Dim intBoardID
Dim intForumID
Dim strForumName
Dim strForumDiscription
Dim blnForumLocked
Dim intLoop
Dim intNumOfForums
Dim intForumOrder
Dim intNumOfCategories
Dim intCatOrder

strSQL = "SELECT timesboard.* FROM timesboard ORDER BY timesboard.boardnum ASC;"
rsConn.CursorType = 1
rsConn.Open strSQL, adoCon
If rsConn.EOF Then
	Response.Write vbCrLf & "<td bgcolor=""#FFFFFF"" colspan=""4""><span class=""text"">现在还没有论坛分类<a href=""category.asp?mode=new"">点击创建新论坛分类</a></span></td>"
Else
	Set rsBBS = Server.CreateObject("ADODB.Recordset")
	intNumOfCategories = rsConn.RecordCount
	Do While NOT rsConn.EOF
		strBoard = rsConn("boardname")
		intBoardID = CInt(rsConn("boardid"))
		intCatOrder = CInt(rsConn("boardnum"))
	
		%>
     <tr>
      <td bgcolor="#E7E7E7" colspan="2"><a href="category.asp?mode=edit&CatID=<% = intBoardID %>" target="_self"><b><% = strBoard %></b></a></td>
      <td bgcolor="#E7E7E7" align="center"><a href="delcategory.asp?CatID=<% = intBoardID %>" onClick="return confirm('你确定要删除此论坛分类?\n\n警告: 删除论坛分类将永久的删除此分类下的所有分论坛和的帖子!')"><img src="images/del.gif" width="15" height="16" border="0" alt="Delete"></a></td>
      <td bgcolor="#E7E7E7" align="center"> <select name="catOrder<% = intBoardID %>"><%
           For intLoop = 1 to intNumOfCategories
		Response.Write("<option value=""" & intLoop & """ ")
			If intCatOrder = intLoop Then
				Response.Write("selected")
			End If
		Response.Write(">" & intLoop & "</option>")
           Next
           %>
       </select> </td>
     </tr><%
		strSQL = "SELECT timesbbs.* FROM timesbbs WHERE timesbbs.boardid = " & intBoardID & " ORDER BY timesbbs.bbsnum ASC;"
		rsBBS.CursorType = 1
		rsBBS.Open strSQL, adoCon
		If rsBBS.EOF Then
			Response.Write vbCrLf & "<td bgcolor=""#FFFFFF"" colspan=""4""><span class=""text"">现在还没有论坛<a href=""forumintro.asp?mode=new"">创建论坛分类和分论坛</a></span></td>"
		Else
			intNumOfForums = rsBBS.RecordCount
			Do While NOT rsBBS.EOF
				intForumID = CInt(rsBBS("bbsid"))
				strForumName = rsBBS("bbsname")
				strForumDiscription = rsBBS("bbsdescrip")
				intForumOrder = CInt(rsBBS("bbsnum"))
				blnForumLocked = CBool(rsBBS("Locked"))
%>
     <tr>
      <td bgcolor="#FFFFFF" class="text"><a href="forumintro.asp?mode=edit&fid=<% = intForumID %>" target="_self"><% = strForumName %></a><br /><span class="smText"><% = strForumDiscription %></span></td>
      <td bgcolor="#FFFFFF" width="9%" align="center" class="text"><%
				If blnForumLocked = True Then
				  	Response.Write ("	<a href=""../leave.asp?menu=lockbbs&code=2&mode=UnLock&fid=" & intForumID & """ OnClick=""return confirm('你确定要解锁此论坛?')""><img src=""images/forumlocked.gif"" width=""11"" height=""14"" border=""0"" align=""baseline"" alt=""解锁论坛""></a>")
				ElseIf blnForumLocked = False Then
				  	Response.Write ("	<a href=""../leave.asp?menu=lockbbs&code=2&mode=Lock&fid=" & intForumID & """ OnClick=""return confirm('你确定要锁定此论坛?')""><img src=""images/unlock.gif"" width=""15"" height=""14"" border=""0"" align=""baseline"" alt=""锁定论坛""></a>")
				End If

               %>
      </td>
      <td bgcolor="#FFFFFF" width="9%" align="center" class="text"> <a href="delforum.asp?fid=<% = intForumID %>" OnClick="return confirm('你确定要删除此分论坛?\n\n警告: 删除论坛将永久的删除里面所有的帖子!')"><img src="images/del.gif" width="15" height="16" border="0" alt="删除论坛"></a></td>
      <td bgcolor="#FFFFFF" width="10%" class="text"  align="center"> <select name="forumOrder<% = intForumID %>"><%
           For intLoop = 1 to intNumOfForums
		Response.Write("<option value=""" & intLoop & """ ")
			If intForumOrder = intLoop Then
				Response.Write("selected")
			End If
		Response.Write(">" & intLoop & "</option>")
           Next
           %>
       </select> </td>
     </tr><%
				rsBBS.MoveNext
			Loop
		End If
		rsBBS.Close
		rsConn.MoveNext
	Loop
End If

Set rsBBS = Nothing
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
    </table></td>
  </tr>
 </table>
 <div align="center">
  <table width="96%" border="0" cellspacing="0" cellpadding="3">
   <tr align="right"> 
    <td width="100%"><input type="submit" name="Submit" value="Update Order"></td>
   </tr>
  </table>
 </div>
</form>
<div align="center">
 <table width="96%" border="0" cellspacing="0" cellpadding="3">
  <tr align="center"> 
   <td width="50%"><form action="category.asp?mode=new" method="post" name="form2" target="_self">
     <input type="submit" name="Submit" value="创建论坛分类"> 
    </form>
   </td>
   <td width="50%"><form action="forumintro.asp?mode=new" method="post" name="form3" target="_self">
     <input type="submit" name="Submit" value="创建分论坛">
    </form>
   </td>
  </tr>
 </table>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -