⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 boards.asp

📁 BBS论坛的开发和设计
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<!--#Include file = "Function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分类/论坛版块管理、版主管理</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
  return eval(jsStr)
}
//-->
</script>
</head>

<body leftmargin="0" topmargin="0">
<%
Sub errorMsg(theError)
response.write"<script language=javascript>alert('"& theError &"');history.back();</script>"
response.End
End Sub
'---------------------------------------
action = request.QueryString("action")
SELECT Case action
	Case "addClass"
		Call addClass()
	Case "SaveNewClass"
		Call SaveNewClass()
	Case "EditClass"
		Call EditClass()
	Case "SaveEditClass"
		Call SaveEditClass()
	Case "DelClass"
		Call DelClass()
	Case "addBoard"
		Call addBoard()
	Case "SaveNewBoard"
		Call SaveNewBoard()
	Case "EditBoard"
		Call EditBoard()
	Case "SaveEditBoard"
		Call SaveEditBoard()
	Case "DelBoard"
		Call DelBoard()
	Case "UpdateOrder"
		Call UpdateOrder()
	Case "addMod"
		Call addMod()
	Case "EditMod"
		Call EditMod()
	Case "SaveNewMod"
		Call SaveNewMod()
	Case "SaveEditMod"
		Call SaveEditMod()
	Case "DelMod"
		Call DelMod()
	Case else
		Call BoardList()
End SELECT
'========================
Sub SaveNewClass()
	ClassName = trim(request.Form("ClassName"))
	ClassOrder = trim(request.Form("ClassOrder"))
	if ClassName = "" then ErrorMsg "请输入类别名称!"
	if Not(ISnumeric(ClassOrder)) then ErrorMsg "类别排序只能为数字!"
	Conn.ExeCute("insert into JBB_Class(Class_name,Class_Order) values('"& ClassName &"','"& ClassOrder &"')")
	response.Write("<br><br><br>　　　新分类 <b>"& ClassName &"</b> 添加成功")
	Application.Lock
		Application(JBBMasterCookies&"BoardAll") = ""
	Application.UnLock
End Sub
'========================
Sub SaveNewBoard()
	ClassID = trim(request.Form("ClassID"))
		if Not(IsNumeric(ClassID)) then ErrorMsg "参数错误!~"
	title = trim(request.Form("title"))
		if title = "" then ErrorMsg "论坛名称不可为空!`"
	Boardorder = trim(request.Form("Boardorder"))
		if Not(IsNumeric(Boardorder)) then ErrorMsg "论坛排序值只能为数字!~"
	JBB_description = trim(request.Form("description"))
	styleid = trim(request.Form("styleid"))
	bestrowUserStyle = trim(request.Form("bestrowUserStyle"))
	threadCent = trim(request.Form("threadCent"))
		if Not(IsNumeric(threadCent)) then ErrorMsg "发贴积分值只能为数字!~"
	replyCent = trim(request.Form("replyCent"))
		if Not(IsNumeric(replyCent)) then ErrorMsg "回复积分值只能为数字!~"
	bestCent = trim(request.Form("bestCent"))
		if Not(IsNumeric(bestCent)) then ErrorMsg "精华积分值只能为数字!~"
	Reads = trim(request.Form("Reads"))
	hide = trim(request.Form("hide"))
	UploadFileSize = trim(request.Form("UploadFileSize"))
		if Not(IsNumeric(UploadFileSize)) then ErrorMsg "上传附件的最大字节数,只能为数字!~"
	UploadFileType = LCase(trim(request.Form("UploadFileType")))
		if Instr(UploadFileType,"asp") > 0 then UploadFilestay = 1
		if Instr(UploadFileType,"aspx") > 0 then UploadFilestay = 1
		if Instr(UploadFileType,"cgi") > 0 then UploadFilestay = 1
		If UploadFilestay > 0 then ErrorMsg "为了您的论坛的安全，请不要设置用户可上传*.asp *.aspx *.CGI类型文件!"
	EditPostShow = trim(request.Form("EditPostShow"))
	post_interval = trim(request.Form("post_interval"))
		if Not(IsNumeric(post_interval)) then ErrorMsg "每次发贴间隔数只可为数字!~"	
	post_byte = trim(request.Form("post_byte"))
		if Not(IsNumeric(post_byte)) then ErrorMsg "贴子最大允许字节数只能为数字"
	Conn.ExeCute("Insert into JBB_Board(ClassID,title,Boardorder,description,styleid,bestrowUserStyle,threadCent,replyCent,bestCent,Reads,hide,UploadFileSize,UploadFileType,EditPostShow,post_interval,post_byte) values("& ClassID &",'"& title &"',"& Boardorder &",'"& JBB_description &"',"& styleid &","& bestrowUserStyle &","& threadCent &","& replyCent &","& bestCent &","& Reads &","& hide &","& UploadFileSize &",'"& UploadFileType &"',"& EditPostShow &","& post_interval &","& post_byte &")")
	response.write "<br><br>　　<b>"& title &"</b> 添加成功!~"
	Application.Lock
		Application(JBBMasterCookies&"BoardAll") = ""
	Application.UnLock
End Sub
'========================
Sub SaveEditBoard()
	BoardID = trim(request.QueryString("BoardID"))
		if Not(IsNumeric(BoardID)) then ErrorMsg "参数错误!~"
	ClassID = trim(request.Form("ClassID"))
		if Not(IsNumeric(ClassID)) then ErrorMsg "参数错误!~"
	title = trim(request.Form("title"))
		if title = "" then ErrorMsg "论坛名称不可为空!`"
	Boardorder = trim(request.Form("Boardorder"))
		if Not(IsNumeric(Boardorder)) then ErrorMsg "论坛排序值只能为数字!~"
	JBB_description = trim(request.Form("description"))
	styleid = trim(request.Form("styleid"))
	bestrowUserStyle = trim(request.Form("bestrowUserStyle"))
	threadCent = trim(request.Form("threadCent"))
		if Not(IsNumeric(threadCent)) then ErrorMsg "发贴积分值只能为数字!~"
	replyCent = trim(request.Form("replyCent"))
		if Not(IsNumeric(replyCent)) then ErrorMsg "回复积分值只能为数字!~"
	bestCent = trim(request.Form("bestCent"))
		if Not(IsNumeric(bestCent)) then ErrorMsg "精华积分值只能为数字!~"
	Reads = trim(request.Form("Reads"))
	hide = trim(request.Form("hide"))
	UploadFileSize = trim(request.Form("UploadFileSize"))
		if Not(IsNumeric(UploadFileSize)) then ErrorMsg "上传附件的最大字节数,只能为数字!~"
	UploadFileType = LCase(trim(request.Form("UploadFileType")))
		if Instr(UploadFileType,"asp") > 0 then UploadFilestay = 1
		if Instr(UploadFileType,"aspx") > 0 then UploadFilestay = 1
		if Instr(UploadFileType,"cgi") > 0 then UploadFilestay = 1
		If UploadFilestay > 0 then ErrorMsg "为了您的论坛的安全，请不要设置用户可上传*.asp *.aspx *.CGI类型文件!"
	EditPostShow = trim(request.Form("EditPostShow"))
	post_interval = trim(request.Form("post_interval"))
		if Not(IsNumeric(post_interval)) then ErrorMsg "每次发贴间隔数只可为数字!~"
	post_byte = trim(request.Form("post_byte"))
		if Not(IsNumeric(post_byte)) then ErrorMsg "贴子最大允许字节数只能为数字"
	Conn.ExeCute("update JBB_Board set ClassID="& ClassID &",title='"& title &"',Boardorder="& Boardorder &",description='"& JBB_description &"',styleid="& styleid &",bestrowUserStyle="& bestrowUserStyle &",threadCent="& threadCent &",replyCent="& replyCent &",bestCent="& bestCent &",Reads="& Reads &",hide="& hide &",UploadFileSize="& UploadFileSize &",UploadFileType='"& UploadFileType &"',EditPostShow="& EditPostShow &",post_interval="& post_interval &",post_byte="& post_byte &" where BoardID="&BoardID)
	response.write "<br><br>　　<b>"& title &"</b> 修改成功!~"
	Application.Lock
		Application(JBBMasterCookies&"Board_Config"&BoardID) = ""
		Application(JBBMasterCookies&"BoardAll") = ""
	Application.UnLock
End Sub
'========================
Sub SaveEditClass()
	ClassID = trim(request.QueryString("ClassID"))
		if Not(ISnumeric(ClassID)) then ErrorMsg "参数错误!~"
	ClassName = trim(request.Form("ClassName"))
		if ClassName = "" then ErrorMsg "类别名不可为空!~"
	ClassOrder = trim(request.Form("ClassOrder"))
		if Not(IsNumeric(ClassOrder)) then ErrorMsg "类别排序只能为数字!~"
	Conn.ExeCute("Update JBB_Class set Class_Name='"& ClassName &"',Class_Order="& ClassOrder &" where Class_ID="&ClassID)
	response.Write("<br><br>　　修改成功!~")
	Application.Lock
		Application(JBBMasterCookies&"BoardAll") = ""
	Application.UnLock
End Sub
'========================
Sub UpdateOrder()
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select Class_order,Class_ID from JBB_Class",conn,1,3
	if Not rs.eof then
	do while not rs.eof
		a = Cstr(trim(rs("Class_ID")))&"ClassOrder"
		if Not(IsNumeric(Request.Form(a))) then ErrorMsg "排序值只能为数字!~"		
		rs("Class_order") = trim(request.Form(a))
		rs.update
	rs.MoveNext
	Loop
	End if
	rs.Close
	Set rs = Nothing
	'---------------------------------------------------------------------
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select Boardorder,BoardID from JBB_Board",conn,1,3
	if Not rs.eof then
	do while not rs.eof
		B = Cstr(trim(rs("BoardID")))&"BoardOrder"		
		if Not(IsNumeric(Request.Form(B))) then ErrorMsg "排序值只能为数字!~"		
		rs("Boardorder") = trim(request.Form(B))
		rs.update
	rs.MoveNext
	Loop
	End if
	rs.Close
	Set rs = Nothing
	response.write "<br><br>　　感谢更新!~"
	Application.Lock
		Application(JBBMasterCookies&"BoardAll") = ""
	Application.UnLock
End Sub
'==========================================
Sub SaveNewMod()
	BoardID = trim(request.QueryString("BoardID"))
		if Not(IsNumeric(BoardID)) then ErrorMsg "参数错误!~"
	if BoardID = 0 then Mod_super = 1 else Mod_super = 0 End if
	Mod_name = trim(request.Form("Mod_name"))
		if Mod_name = "" then ErrorMsg "请输入版主名!~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select userid,usergroup From JBB_user where username='"& Mod_name &"'",conn,1,3
	if rs.Eof Or rs.Bof then
		rs.close
		set rs = nothing
		ErrorMsg "论坛没有 "& Mod_name &" 这个会员!"
	else		
		Conn.exeCute("insert into JBB_Mod(Mod_BoardID,Mod_nameID,Mod_super,Mod_stop,Mod_del_post,Mod_edit_post,Mod_bat_del,Mod_bat_move,Mod_del_ferstPost,Mod_viewIP,Mod_announcement) values("& BoardID &","& trim(rs(0)) &","& Mod_super &","& request.Form("Mod_stop") &","& request.Form("Mod_del_post") &","& request.Form("Mod_edit_post") &","& request.Form("Mod_bat_del") &","& request.Form("Mod_bat_move") &","& request.Form("Mod_del_ferstPost") &","& request.Form("Mod_viewIP") &","& request.Form("Mod_announcement") &")")
		if rs("usergroup") > 3 then
			rs("usergroup") = 3
			rs.update
		End if
	End if
	rs.close
	set rs = nothing	
	response.write "<br><br>　　添加成功!~!"
	Application.Lock
		Application(JBBMasterCookies&"Board_Config"&BoardID) = ""
	Application.UnLock
End Sub
'==========================================
Sub SaveEditMod()
	Mod_ID = trim(request.QueryString("Mod_ID"))
		if Not(IsNumeric(Mod_ID)) then ErrorMsg "参数错误!~"		
	Conn.exeCute("Update JBB_Mod set Mod_stop="& request.Form("Mod_stop") &",Mod_del_post="& request.Form("Mod_del_post") &",Mod_edit_post="& request.Form("Mod_edit_post") &",Mod_bat_del="& request.Form("Mod_bat_del") &",Mod_bat_move="& request.Form("Mod_bat_move") &",Mod_del_ferstPost="& request.Form("Mod_del_ferstPost") &",Mod_viewIP="& request.Form("Mod_viewIP") &",Mod_announcement="& request.Form("Mod_announcement") &" where Mod_ID="&Mod_ID)
	response.write "<br><br>　　修改成功!~"
End Sub
'========================
Sub BoardList()

	set rs = server.CreateObject("adodb.recordset")
	rs.open "SELECT Class_ID,Class_Name,Class_Order From JBB_Class Order By Class_Order Asc",conn,1,1
	IF Not(rs.Eof And rs.Bof) then
	%>
<br>
<form name="form3" method="post" action="?action=UpdateOrder">
  <table width="550" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
    <tr> 
      <td bgcolor="#EFEFE7"><font color="#000000"><strong>&nbsp;</strong></font><strong>编辑论坛</strong><font color="#000000"><strong> 
        </strong>　　　</font><a href="?action=addClass">添加分类</a></td>
  </tr>
  <tr>
      <td bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
        <%
	for i = 1 to rs.recordCount
	%>
        <tr> 
          <td>&nbsp;<span class="px8"><strong>● </strong></span><strong><%=Rtrim(rs(1))%></strong>(排序: 
            <input name="<%=trim(rs(0))%>ClassOrder" type="text" class="form2" id="ClassOrder22" value="<%=Rtrim(rs(2))%>" size="2" maxlength="2">
            ) <a href="?action=addBoard&Class_ID=<%=trim(rs(0))%>">[添加论坛]</a>　<a href="?action=EditClass&Class_ID=<%=trim(rs(0))%>">[编辑]</a>　<a href="?action=DelClass&Class_ID=<%=trim(rs(0))%>">[删除]</a></td>
        </tr>
        <%
		set rs1 = server.CreateObject("adodb.recordset")
		rs1.open "select BoardID,title,Boardorder from JBB_Board where ClassID="& trim(rs(0)) &" Order By BoardOrder asc",conn,1,1
		if Not(rs1.Bof and rs1.Eof) then
		for j = 1 to rs1.recordCount
		%>
        <tr> 
          <td height="22">　　 <span class="px8">□</span> <%=rtrim(rs1(1))%>(排序: 
            <input name="<%=trim(rs1(0))%>BoardOrder" type="text" class="form2" id="BoardOrder22" value="<%=trim(rs1(2))%>" size="2" maxlength="2">
              ) <a href="?action=EditBoard&BoardID=<%=trim(rs1(0))%>">[编辑]</a>　<a href="?action=DelBoard&BoardID=<%=trim(rs1(0))%>">[删除]</a>　<a href="?action=addMod&BoardID=<%=trim(rs1(0))%>&BoardName=<%=rtrim(rs1(1))%>">[添加版主]</a></td>
        </tr>
        <tr> 
          <td height="30" valign="top">　　 　　版主:
		  <%
		  set rsmod = server.CreateObject("adodb.recordset")
		  sqlmod = "select Mod_ID,Mod_nameID From JBB_mod where Mod_BoardID="&rs1("BoardID")
		  rsmod.open sqlmod,conn,1,1
		  if Not(rsmod.Bof and rsmod.Eof) then
		  	do while not rsmod.eof
			set rsmodname = Conn.ExeCute("select username from JBB_user where userid="&rsmod(1))
			if not rs.eof then
			modname = rtrim(rsmodname(0))
			End if
			set rsmodname = nothing
		  %>
		  <br>
            　　 　　　 <span class="px8">■</span> <%=modname%> <a href="?action=EditMod&Mod_ID=<%=rsmod(0)%>&BoardName=<%=rtrim(rs1(1))%>&Mod_Name=<%=modname%>">[编辑]</a> 
              <a href="?action=DelMod&Mod_ID=<%=rsmod(0)%>">[删除]</a> 
              <%
		  	rsmod.MoveNext
			Loop
		  End if
		  rsmod.close
		  set rsmod = Nothing
		  %></td>
        </tr>
        <%
		rs1.MoveNext
		Next'j
		End if
		rs1.close
		set rs1 = Nothing
	rs.MoveNext
	Next'i
	%>
      </table></td>
  </tr>
</table><center>
  <br>
  <input name="Submit5" type="submit" class="form1" value="更新排序"></center>
  </form>
<br>
<%
	else
		response.Write("<br><br>　暂时没有任何分类，请先<a href=?action=addClass><font color=#000000>添加分类</font></a>.")
	End if
	rs.close
	set rs = Nothing
End Sub
'=========================================
Sub addClass()
%>
<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=SaveNewClass">
		  <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"><strong>添加论坛分类</strong></div></td>
  </tr>
  <tr> 
      <td bgcolor="#FFFFFF">类 别 名: 
        <input name="ClassName" type="text" id="ClassName"></td>
  </tr>
  <tr> 
      <td bgcolor="#F5F5F5">类别排序: 
        <input name="ClassOrder" type="text" id="ClassOrder" value="1" size="3" maxlength="3">
      </td>
  </tr>
123

⌨️ 快捷键说明

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