📄 admin_bookclass.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 "add"
Call add()
Case "listnsort"
Call listnsort()
Case "listbclass"
Call listbclass()
Case "bclass"
Call bclass()
end select
Sub listnsort()%>
<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="9"><b>查看所有分类</b></td>
</tr>
<tr height="22" align="center">
<td width="20%" class="tcat"><b>分 类 名 称</b></td>
<td width="20%" class="tcat"><b>修 改 名 称</b></td>
<td width="20%" class="tcat"><b>静态生成</b></td>
<td width="20%" class="tcat"><b>向所属大类中添加小类</b></td>
<td width="10%" class="tcat"><b>操作</b></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select typeid,list_tpye,classinfo from list_type order by typeid"
rs.open sql,conn,1,1
if not rs.eof and rs.bof then
response.write " <tr align=center height=22><td colspan=9 class=alt1>还没有任何分类请添加！！</td></tr>"
else
do while not rs.eof%>
<tr align="center" height="22">
<td class="alt2" align="left"> <img src="images/ico.gif" width="10" height="10">
<a href="admin_bookclass.asp?info=listbclass&id=<%=rs("typeid")%>"><%=rs("list_tpye")%></a></td>
<form action="admin_works.asp?info=nsort_edit&classid=<%=rs("typeid")%>" method="post" name="eform">
<td align="left" class="alt1">
<input name="list_tpye" type="text" size="20" class="form" value="<%=rs("list_tpye")%>"><input class="button" type="submit" value="修 改" name="Submit" style="width: 45; height: 20">
<br><textarea name="classinfo" class="form" cols="27" rows="3"><%=htmlen(rs("classinfo"))%></textarea></td>
</form>
<td class="alt2"><div class="select"><div>
<select onchange="if(this.options[this.selectedIndex].value != '') {
window.location=('admin_makeHTMLdo.asp?info='+this.options[this.selectedIndex].value+'&ID=<%=rs("typeid")%>') }" size="4">
<option value>静态生成</option>
<option value="typelook">作品资料页</option>
<option value="typeindex">作品目录页</option>
<option value="typeall">全文阅读页</option>
<option value="typezhang">分卷阅读页</option>
<option value="typepage">章节阅读页</option>
</select></div></div></td>
<form action="admin_works.asp?info=bclass_add&classid=<%=rs("typeid")%>" method="post" name="abform">
<td class="alt2">向[ <%=rs("list_tpye")%> ]添加小类？<br>
<input type="text" name="list_classname" size="16" class="form"><input class="button" type="submit" value="添 加" name="B1" style="width: 45; height: 20"></td>
</form>
<td class="alt1">
<a href="admin_works.asp?info=nsort_del&id=<%=rs("typeid")%>" onclick="return(del('<%=rs("list_tpye")%>'))">
删除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if%>
</table>
<%end sub
Sub add()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td class="thead">添加长篇分类</td>
</tr>
<form action="admin_works.asp?info=nsort_add" method="post" name="aform">
<tr bgcolor="#ffffff">
<td colspan="4" class="alt3">
<div id="panx">
<table width="98%" height="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
<tr>
<td width="40%" height="45" align="right" class="alt2">
<b>分类名称：</b><br>
</td>
<td width="60%" class="alt1">
<input name="list_tpye" type="text" id="list_tpye" size="20" class="form" maxlength="14"></td>
</tr>
<tr>
<td width="40%" height="45" align="right" class="alt2">
<b>分类介绍：</b><br>
</td>
<td width="60%" class="alt1">
<textarea name="classinfo" class="form" cols="60" rows="5"></textarea></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 listbclass()
dim i
i=request.querystring("id")
if i="" then i=2000
set rs=server.createobject("adodb.recordset")
sql="select typeID from list_type where typeid="&i
rs.open sql,conn,1,1
if rs.eof then
else
%>
<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="9"><b>查看二级分类</b></td>
</tr>
<tr height="22" align="center">
<td width="25%" class="tcat"><b>分 类 名 称</b></td>
<td width="25%" class="tcat"><b>修 改 名 称</b></td>
<td width="30%" class="tcat"><b>静态生成</b></td>
<td width="10%" class="tcat"><b>操作</b></td>
</tr>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select list_Classid,list_classname from list_Class where list_typeID="&rs("typeID")&" order by list_classid"
rs2.open sql2,conn,1,1
if rs2.eof then
%>
<tr align="center" height="22">
<td colspan="8" class="alt1">尚无任何二级分类</td>
</tr>
<%else
do while not rs2.eof%>
<form method="POST" action="admin_works.asp?info=bclass_edit&id=<%=i%>&list_Classid=<%=rs2("list_Classid")%>" id="form<%=j%>" name="form<%=j%>">
<tr align="center" height="22">
<td width="25%" class="alt2"> <%=rs2("list_classname")%></td>
<td width="25%" class="alt1">
<input size="15" type="text" name="list_classname" value="<%=rs2("list_classname")%>" class="form"><input class="button" type="submit" value="改 名" name="Submit"></td>
<td width="30%" class="alt2"><div class="select"><div>
<select onchange="if(this.options[this.selectedIndex].value != '') {
window.location=('admin_makeHTMLdo.asp?info='+this.options[this.selectedIndex].value+'&ID=<%=rs2("list_classid")%>') }">
<option value>静态页生成</option>
<option value="classlook">作品资料页</option>
<option value="classindex">作品目录页</option>
<option value="classall">全文阅读页</option>
<option value="classzhang">分卷阅读页</option>
<option value="classpage">章节阅读页</option>
</select></div></div></td>
<td width="10%" class="alt1">
<a title="慎重哦!" href="admin_works.asp?info=bclass_del&id=<%=i%>&list_Classid=<%=rs2("list_classid")%>" onclick="return(del('<%=rs2("list_classname")%>'))">
删除</a></td>
</tr>
</form>
<%
rs2.movenext
loop
end if
rs2.close
end if
rs.close
%>
</table>
<br>
<br>
<br>
<table border="0" cellspacing="0" width="70%" align="center">
<tr>
<td width="88%" bgcolor="#96C5DE">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="80%" bgcolor="#FFFFFF" height="25" align="center">
<p><b><a href="admin_bookclass.asp?info=listnsort">...::: 点
此 返 回 :::...</a></b> </p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<%
set rs=nothing
set rs2=nothing
end sub
Sub bclass()%>
<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="50%" class="tcat"><b>原 分 类</b></td>
<td width="50%" class="tcat"><b>目标分类</b></td>
</tr>
<form method="POST" action="admin_works.asp?info=bclass" name="formbclass">
<tr align="center" height="22">
<td class="alt2" valign="center">
<div class="select"><div><select name="oldclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select typeID,list_tpye from list_type order by typeid"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value=0>┼ "&rs("list_tpye")&"</option>"
set rs2=server.createobject("adodb.recordset")
sql2="select list_Classid,list_classname from list_Class where list_typeID="&rs("typeID")&" order by list_classid"
rs2.open sql2,conn,1,1
if rs2.eof then
response.write "<option value=0> └ 本类无二级分类</option>"
else
do while not rs2.eof
response.write "<option value="&rs2("list_Classid")&"> └ "&rs2("list_classname")&"</option>"
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
rs.movenext
loop
end if
rs.close
set rs=nothing
%></select></div></div> 合并到 ==></td>
<td class="alt1"><div class="select"><div><select name="newclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select typeID,list_tpye from list_type order by typeid"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value=0>┼ "&rs("list_tpye")&"</option>"
set rs2=server.createobject("adodb.recordset")
sql2="select list_Classid,list_classname from list_Class where list_typeID="&rs("typeID")&" order by list_classid"
rs2.open sql2,conn,1,1
if rs2.eof then
response.write "<option value=0> └ 本类无二级分类</option>"
else
do while not rs2.eof
response.write "<option value="&rs2("list_Classid")&"> └ "&rs2("list_classname")&"</option>"
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
rs.movenext
loop
end if
rs.close
set rs=nothing
%></select></div></div> </td>
</tr>
<tr height="22">
<td class="alt3" colspan="2" align="middle" valign="middle">
<input class="button" type="submit" value="合 并" name="Submit"></td>
</tr>
</form>
</table>
<br>
<br>
<br>
<table border="0" cellspacing="0" width="70%" align="center">
<tr>
<td width="88%" bgcolor="#96C5DE">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="80%" bgcolor="#FFFFFF" height="25" align="center">
<p><b><a href="admin_bookclass.asp?info=listnsort">...::: 点
此 返 回 :::...</a></b> </p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<%
set rs=nothing
set rs2=nothing
end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -