📄 admin_classmanage.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_Checkmana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://BBS.COOIN.COM)
'=========================================================
if EnoughPopedom("class")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
%>
<body bgcolor="#F9FBFD">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="80%" height="182" valign="top">
<table width="99%" height="180" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td height="97" valign="top" bgcolor="#F7FFF4">
<form name="form1" method="POST" action="admin_ClassSmallA.asp">
<table width="100%" height="85" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E8E8E8">
<tr>
<td height="22" align="center" valign="middle" bgcolor="#97C893">
<div align="left">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#000000">增加信息栏目</font></b></div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<%
set rs1 = server.CreateObject ("Adodb.recordset")
sql="select Max(id) from newsclass"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
classnum=1
else
classnum=rs1(0)+1
end if
if isnull(classnum) then classnum=1
rs1.close
set rs1=nothing
set rs = server.createobject("adodb.recordset")
rs.source = "select * from newsclass order by RootID asc,orders asc"
rs.open rs.source,conn,1,1
%>
<td height="20" align="center" valign="middle" bgcolor="#F7FFF4">
<div align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6"></td>
</tr>
</table>
所属栏目
<input type="hidden" name="newsclassid" value=<%=classnum%>>
<select name="class" class=Anbutc>
<option value="0">做为一级栏目
</option>
<%
while not rs.eof
%>
<option value="<%=rs("id")%>">
<%for i=1 to rs("depth")%>
－
<%next%><%=rs("classcn")%>
</option>
<%
rs.movenext
wend
rs.close
%>
</select>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6"></td>
</tr>
</table>
<div align="left"> 栏目中文名称
<input type="text" name="classcn" size="20" >
栏目英名名称
<input type="text" name="classEN" size="10" >
<font color="#FF0000">注意：英文名称确定后不能修改！</font><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6"></td>
</tr>
</table>
新闻显示：
<input type="radio" name="OrderRule" value="NewsID" checked >
录入顺序
<input type="radio" name="OrderRule" value="Date" >
时间顺序 此栏目是否允许投稿：
<input type="radio" name="CBution" value="true" Disabled>
是
<input name="CBution" type="radio" value="false" checked Disabled>
否
<input type="submit" value="增加" name="B122" class=Anbut>
要设置投稿，请在栏目修改里面去设置</div>
</div>
</td>
</tr>
</table>
</form></td>
</tr>
<form name="form1" method="POST" action="admin_ClassGo.asp?o=DelClass">
<tr>
<td height="40" bgcolor="#F7FFF4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" height="68" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td height="25" colspan="2" align="center" valign="middle" bgcolor="#D7ECCE"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#FF6600">删除栏目</font><font color="#FFFFFF"><strong></strong></font></b></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="39" colspan="2" align="center" valign="middle" bgcolor="#F7FFF4">
<div align="left"><b> </b>栏目名称
<select name="ClassEN" id="ClassEN" class=Anbutc>
<%
rs.source = "select * from newsclass order by RootID asc,orders asc"
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("ClassEN")%>">
<%for i=1 to rs("depth")%>
—
<%next%>
<%=rs("classcn")%></option>
<%
rs.movenext
wend
rs.close
%>
</select>
<input type="submit" value="删除" name="B123" onClick="return Del()" class=Anbut>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
</td>
</tr>
</form>
<form name="form1" method="POST" action="admin_ClassModify.asp">
<tr>
<td height="2" bgcolor="#F7FFF4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" height="72" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td height="26" align="center" valign="middle" bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#FF6600">修改栏目</font></b></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="43" align="center" valign="middle" bgcolor="#F7FFF4">
<div align="left"><b> </b>栏目名称
<select name="ClassID" class=Anbutc>
<%
rs.source = "select * from newsclass order by RootID asc,orders asc"
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("ID")%>">
<%for i=1 to rs("depth")%>
－
<%next%>
<%=rs("classcn")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<input type="submit" value="修改" name="B12322" class=Anbut>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5">
<!--#include file = name.asp-->
</td>
</tr>
</table></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -