📄 admin_articleclass.asp
字号:
<!-- #include file="../conn.asp" -->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<div id=topmomo>短 篇 分 类 管 理</div><br>
<%Select Case request.querystring("info")
Case "classadd"
Call classadd()
Case "classlist"
Call classlist()
Case "classaclass"
Call classaclass()
end select
Sub classadd()%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" colspan="9" height="25" align="center"><b>
<font color="#FFFFFF">添加短篇作品分类分类</font></b></td>
</tr>
<form action="admin_works.asp?info=ar_class" method="post" name="form">
<tr>
<td class="alt3">
<div id=panx>
<table width="98%" border="0" cellspacing="0" cellpadding="1" align="center"class="panel">
<tr>
<td width="40%" height="45" align="right" class="alt2">
<b>分类名称：</b><br>
</td>
<td width="60%" class="alt1">
<input name="classname" type="text" id="classname" size="20" class="form" maxlength="14"></td>
</tr>
</table>
</div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" value="提 交">
<input type="reset" class="button" value="重 置"></div>
</td>
</tr>
</form>
</table>
<%end sub
sub classlist%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm('CnEndWeb（终点）提醒：\n\n真的要删除 [ ' + sortname + ' ] 吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="7"><b>查看所有短篇分类</b></td>
</tr>
<tr height="28">
<td width="30%" align="left" class="tcat"><font color="#FFFFFF">
<b>分 类 名 称</b></font></td>
<td width="20%" align="center" class="tcat"><font color="#FFFFFF"><b>修 改
名 称</b></font></td>
<td width="20%" align="right" class="tcat"><font color="#FFFFFF"><b>操作</b>
</font></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [Ar_class]"
rs.open sql,conn,1,1
if not rs.eof and rs.bof then
%>
<tr align="center">
<td colspan="6" height="22" class="alt1"><span class="style1">还没有任何分类请添加！！</span></td>
</tr>
<%else
do while not rs.eof%>
<tr>
<td height="22" class="alt2">
<img src="images/ico.gif" width="10" height="10"> <%=rs("classname")%></td>
<form action="admin_works.asp?info=ar_class_edit&classid=<%=rs("id")%>" method="post" name="eform">
<td class="alt1">
<input name="classname" type="text" size="20" class="form" value="<%=rs("classname")%>">
<input class="button" type="submit" value="改 名" name="Submit"></td>
</form>
<td align="right" class="alt2">
<a href="admin_works.asp?info=ar_class_del&id=<%=rs("id")%>" onclick="return(del('<%=rs("classname")%>'))">
<img src="images/delete.gif" width="18" height="18" border="0"></a></a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if%>
</table>
<%end sub%>
<%Sub classaclass()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b>合并分类</b></td>
</tr>
<tr height="22" align="center">
<td width="45%" class="tcat"><b>原 分 类</b></td>
<td width="45%" class="tcat"><b>目标分类</b></td>
<td width="10%" class="tcat"><b>操作</b></td>
</tr>
<form method="POST" action="admin_works.asp?info=aclass" name="formaclass">
<tr align="center" height="22">
<td width="45%" class="alt2" valign="center"><select name="oldclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select * from [Ar_class]"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("classname")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%></select>
合并到 ==></td>
<td width="45%" class="alt1"><select name="newclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select * from [Ar_class]"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("classname")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%></select>
</td>
<td width="10%" class="alt2"><input class="button" type="submit" value="合 并" name="Submit"></td>
</tr>
</form>
</table>
<%
set rs=nothing
set rs2=nothing
end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -