📄 admin_type.asp
字号:
<!--#include file="Inc/Level012.asp" -->
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>')">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td height="20" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr>
<td> 您所在的位置： <a href="../" onfocus="this.blur()">首页</a> >>
<a href="List.asp" onFocus="this.blur()">讨论组</a> >> <font color="<%=Forum_ColorList_NavFontColor%>">论坛管理系统</font></td>
<td width="18">
<div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
<tr>
<td valign="top" width="102" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>
<!--#include file="Inc/Menu.asp" -->
</td>
</tr>
</table>
</td>
<td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> <br>
<table width="80%" border="0" cellspacing="1" cellpadding="2" align="center" class="font" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td bgcolor="<%=Forum_ColorList_TitleColor%>" height="20"> 分类管理</td>
</tr>
<tr>
<td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> 1. 删除专栏时请注意:删除一个专栏系统会默认删除下属版面和下属版面中全部帖子.<br>
2. 删除版面时请注意:删除一个版面系统会默认删除下属帖子.<br>
3. 专栏与版面都按照序号ID排序,小在前.<br>
4. 合并版面时,源版面系统会自动删除,源版面的帖子转移至目的版面.<br>
5. 转移版面时,源版面的帖子会自动更新相关属性.<br>
-------------------------------------------------------------------------------
<br>
<b><a href="Admin_Type.asp" onFocus="this.blur()">列表</a> | <a href="Admin_Type.asp?Action=AddType" onFocus="this.blur()">新建专栏</a>
| <a href="Admin_Type.asp?Action=Unit" onFocus="this.blur()">版面合并</a>
| <a href="Admin_Type.asp?Action=Move" onFocus="this.blur()">版面转移</a></b><br>
------------------------------------------------------------------------------
<%
If Request("Action")="EditSubjectNow" Then
If Request.Form("IsLock")<>"" Then
IsLock=Request("IsLock")
Else
IsLock=False
End If
Set rsEdit = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rType="&Request("T")&" And rID="&Request("S")
rsEdit.Open Sql,ConnY,3,3
rsEdit("rID")=Cint(Request("ID"))
rsEdit("rName")=Request("Name")
rsEdit("rIntroduction")=Request("Intro")
rsEdit("rType")=Request("TypeID")
rsEdit("rPic")=Request("Pic")
rsEdit("rIsLock")=IsLock
rsEdit("rColor")=Request("Color0")&"|"&Request("Color1")&"|"&Request("Color2")&"|"&Request("Color3")&"|"&Request("Color4")&"|"&Request("Color5")&"|"&Request("Color6")&"|"&Request("Color7")&"|"&Request("Color8")&"|"&Request("Color9")&"|"&Request("Color10")&"|"&Request("Color11")&"|"&Request("Color12")
rsEdit("rBroad")=Request("Broad0")&"|"&Request("Broad1")
rsEdit("rLockUser")=Request("LockUser0")&"*"&Request("LockUser1")&"*"&Request("LockUser2")
rsEdit("rCss")=Request("Css0")&"|"&Request("Css1")&"|"&Request("Css2")&"|"&Request("Css3")&"|"&Request("Css4")&"|"&Request("Css5")&"|"&Request("Css6")&"|"&Request("Css7")&"|"&Request("Css8")&"|"&Request("Css9")&"|"&Request("Css10")&"|"&Request("Css11")&"|"&Request("Css12")&"|"&Request("Css13")&"|"&Request("Css14")&"|"&Request("Css15")&"|"&Request("Css16")&"|"&Request("Css17")&"|"&Request("Css18")&"|"&Request("Css19")&"|"&Request("Css20")&"|"&Request("Css21")&"|"&Request("Css22")&"|"&Request("Css23")&"|"&Request("Css24")&"|"&Request("Css25")&"|"&Request("Css26")&"|"&Request("Css27")&"|"&Request("Css28")&"|"&Request("Css29")&"|"&Request("Css30")&"|"&Request("Css31")&"|"&Request("Css32")&"|"&Request("Css33")&"|"&Request("Css34")&"|"&Request("Css35")&"|"&Request("Css36")&"|"&Request("Css37")&"|"&Request("Css38")
rsEdit.Update
rsEdit.Close
Set rsEdit=Nothing
ANum=0
If Request("S")<>Request("ID") Then
Set rsA = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tArticleManage Where rType="&Request("T")&" And rSubject="&Request("S")
rsA.Open Sql,ConnY,3,3
ANum=rsA.RecordCount
While Not rsA.Eof
rsA("rSubject")=Cint(Request("ID"))
rsA("rType")=Cint(Request("TypeID"))
rsA.Update
rsA.MoveNext
Wend
rsA.Close
Set rsA=Nothing
End If
Response.Write "<br> 修改成功,影响帖子"&Anum&"篇."
End If
If Request("Action")="AddSubjectNow" Then
Set rsAdd = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage"
rsAdd.Open Sql,ConnY,3,3
rsAdd.AddNew
rsAdd("rID")=Cint(Request("ID"))
rsAdd("rName")=Request("Name")
rsAdd("rIntroduction")=Request("Intro")
rsAdd("rType")=Request("TypeID")
rsAdd("rPic")="Images/State/1.gif"
rsAdd("rIsLock")=False
rsAdd("rColor")="#EFEFEF|#000000|#D4D4D4|#F5F5F5|#FFFFFF|#F5F5F5|#EFEFEF|#FF0000|#FF3300|BROWN|#0000FF|#666666|GREEN"
rsAdd("rBroad")="100|1"
rsAdd("rLockUser")="暂时无人*暂时无人*暂时无人"
rsAdd("rCss")="#EFEFEF|12px|#000000|宋体|#000000|宋体|12px|#FF3300|none|#000000|none|#000000|none|#FF3300|none|14pt|#EFEFEF|#000000|#000000|宋体|12px|12pt|#EFEFEF|#000000|#000000|宋体|12px|14pt|#EFEFEF|#000000|#000000|宋体|12px|12pt|#EFEFEF|#000000|#000000|宋体|12px"
rsAdd.Update
rsAdd.Close
Set rsAdd=Nothing
Response.Write "<br> 添加成功"
End If
If Request("Action")="AddTypeNow" Then
Set rsAdd = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage"
rsAdd.Open Sql,ConnY,3,3
rsAdd.AddNew
rsAdd("rID")=Request("ID")
rsAdd("rTypeName")=Request("Name")
rsAdd.Update
rsAdd.Close
Set rsAdd=Nothing
Response.Write "<br> 添加成功"
End If
If Request("Action")="EditOrderNow" Then
Set rsEdit = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage Where rID="&Request("O")
rsEdit.Open Sql,ConnY,3,3
rsEdit("rID")=Request("ID")
rsEdit("rTypeName")=Request("Name")
rsEdit.Update
rsEdit.Close
Sql = "Select * From tSubjectManage Where rType="&Request("O")
rsEdit.Open Sql,ConnY,3,3
While Not rsEdit.Eof
rsEdit("rType")=Request("ID")
rsEdit.Update
rsEdit.MoveNext
Wend
rsEdit.Close
Sql = "Select * From tArticleManage Where rType="&Request("O")
rsEdit.Open Sql,ConnY,3,3
While Not rsEdit.Eof
rsEdit("rType")=Request("ID")
rsEdit.Update
rsEdit.MoveNext
Wend
rsEdit.Close
Set rsEdit=Nothing
Response.Write "<br> 成功修改版面序号以及相关版面和帖子信息."
End If
If Request("Action")="DelType" Then
Set rsDel = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage Where rID="&Request("I")
rsDel.Open Sql,ConnY,3,3
Note="成功删除了"&rsDel.RecordCount&"个专栏,"
rsDel.Delete
rsDel.Close
Sql = "Select * From tSubjectManage Where rType="&Request("I")
rsDel.Open Sql,ConnY,3,3
Note=Note&rsDel.RecordCount&"个版面,"
While Not rsDel.Eof
rsDel.Delete
rsDel.MoveNext
Wend
rsDel.Close
Sql = "Select * From tArticleManage Where rType="&Request("I")
rsDel.Open Sql,ConnY,3,3
Note=Note&rsDel.RecordCount&"篇帖子."
While Not rsDel.Eof
rsDel.Delete
rsDel.MoveNext
Wend
rsDel.Close
Set rsDel=Nothing
Response.Write "<br> "&Note
End If
If Request("Action")="DelSubject" Then
Set rsDel = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rID="&Request("I")
rsDel.Open Sql,ConnY,3,3
Note="成功删除了"&rsDel.RecordCount&"个版面,"
rsDel.Delete
rsDel.Close
Sql = "Select * From tArticleManage Where rSubject="&Request("I")
rsDel.Open Sql,ConnY,3,3
Note=Note&rsDel.RecordCount&"篇帖子."
While Not rsDel.Eof
rsDel.Delete
rsDel.MoveNext
Wend
rsDel.Close
Set rsDel=Nothing
Response.Write "<br> "&Note
End If
If Request("Action")="UnitNow" Then
FromList=Split(Request("From"),"|")
ToList=Split(Request("To"),"|")
Set rsUnit = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rID="&FromList(0)&" And rType="&FromList(1)
rsUnit.Open Sql,ConnY,3,3
rsUnit.Delete
rsUnit.Close
Sql = "Select * From tArticleManage Where rSubject="&FromList(0)&" And rType="&FromList(1)
rsUnit.Open Sql,ConnY,3,3
UNum=rsUnit.RecordCount
While Not rsUnit.Eof
rsUnit("rSubject")=ToList(0)
rsUnit("rType")=ToList(1)
rsUnit.Update
rsUnit.MoveNext
Wend
rsUnit.Close
Set rsUnit=Nothing
Response.Write "<br> 合并版面成功,影响帖子"&UNum&"篇."
End If
If Request("Action")="MoveNow" Then
FromList=Split(Request("FromSubject"),"|")
Set rsMove = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rID="&FromList(0)&" And rType="&FromList(1)
rsMove.Open Sql,ConnY,3,3
rsMove("rType")=Request("ToType")
rsMove.Update
rsMove.Close
Sql = "Select * From tArticleManage Where rSubject="&FromList(0)&" And rType="&FromList(1)
rsMove.Open Sql,ConnY,3,3
UNum=rsMove.RecordCount
While Not rsMove.Eof
rsMove("rType")=Request("ToType")
rsMove.Update
rsMove.MoveNext
Wend
rsMove.Close
Set rsMove=Nothing
Response.Write "<br> 转移版面成功,影响帖子"&UNum&"篇."
End If
If Request("Action")="" Then
Set rsType = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage Order By rID"
rsType.Open Sql,ConnY,3,3
While Not rsType.Eof
Response.Write "<br>---------------------------------------------------------<br> ID:"&rsType("rID")&","&rsType("rTypeName")&" <a href='Admin_Type.asp?Action=AddSubject&I="&rsType("rID")&"' onFocus='this.blur()'>新增版面</a> <a href='Admin_Type.asp?Action=EditOrder&I="&rsType("rID")&"' onFocus='this.blur()'>修改专栏排序</a> <a href='javascript:RUR("&rsType("rID")&");' onFocus='this.blur()'>删除专栏</a><br>---------------------------------------------------------<br>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -