📄 admin_book.asp
字号:
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm('\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">查 看 分 卷</td>
</tr>
<%
dim b_id
b_id=request.querystring("b_id")
set rs=server.CreateObject("adodb.recordset")
sql="select list_name,list_class from list_book where id="&b_id
rs.open sql,conn,1,1
list_name=rs("list_name")
classid=rs("list_class")
rs.close
set rs=nothing
set rs2=server.createobject("adodb.recordset")
sql2="select list_tpye from list_type where typeid="&classid
rs2.open sql2,conn,1,1
list_tpye=rs2("list_tpye")
rs2.close
set rs2=nothing
%>
<tr align="center">
<td height="30" colspan="9" class="tcat"><span class="style2"><%=list_name%></span></td>
</tr>
<tr align="right">
<td height="20" colspan="9" class="alt3">所属类型：<span class="style3"><%=list_tpye%></span>
<a href="admin_book.asp?info=zhangadd&b_id=<%=b_id%>">
<span class="style3">添加分卷</span></a>
<a href="admin_book.asp?info=zhangmake&b_id=<%=b_id%>">
<span class="style3">分卷排序</span></a>
<a title="点击将未归入分卷的章节归卷" href="admin_book.asp?info=viewgocook&id=<%=b_id%>">
移动章节</a></td>
</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs1=server.CreateObject("ADODB.recordset")
sql1="select list_cookid,list_cookname from list_cook where list_bookid="&b_id&" order by cook_viewid desc"
'MySQL需要如下语句
conn.CursorLocation=3
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
%>
<tr align="center">
<td height="22" colspan="9" class="alt1"><span class="style3">暂无任何分卷，请添加！</span></td>
</tr>
<%else%>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_works.asp?info=book_zhang_listdel">
<%
Rs1.PageSize=MaxPerPage
Allpage=Rs1.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs1.RecordCount
Rs1.MoveFirst
Rs1.AbsolutePage=CurrentPage
i=0
do while not rs1.eof
%>
<tr height="22" align="center">
<td class="alt2">
<input type="checkbox" name="checked" value="<%=rs1("list_cookid")%>"></td>
<td width="60%" class="alt1">
<a href="admin_book.asp?info=jielist&cndb=all&b_id=<%=b_id%>&c_id=<%=rs1("list_cookid")%>">
<%=rs1("list_cookname")%></a></td>
<td width="10%" class="alt2">
<a href="admin_book.asp?info=zhangedit&b_id=<%=b_id%>&c_id=<%=rs1("list_cookid")%>">
修改</a></td>
<td width="9%" class="alt1">
<a onclick="return(del('<%=rs1("list_cookname")%>'))" href="admin_works.asp?info=book_zhang_del&b_id=<%=b_id%>&c_id=<%=rs1("list_cookid")%>&page=<%=Page%>">
删除</a></td>
<td width="9%" class="alt2">
<a href="admin_bookHTMLmake.asp?info=zhangpage&b_id=<%=b_id%>&c_id=<%=rs1("list_cookid")%>">
HTML生成</a></td>
<td width="12%" class="alt1">
<a href="admin_book.asp?info=jieadd&b_id=<%=b_id%>&c_id=<%=rs1("list_cookid")%>">
添加章节</a></td>
</tr>
<% i=i+1
If i>=MaxPerPage Then Exit Do
Rs1.MoveNext
Loop%><tr>
<td height="20" align="center" colspan="8" class="alt3">
<input name="info" type="hidden" value="book_zhang_listdel">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
</td>
</tr>
</form>
<%End If
Rs1.Close
Set Rs1=Nothing%>
<tr>
<td height="25" colspan="8" align="center" class="alt2"><%Response.Write ShowPage("admin_book.asp?info=zhanglist&b_id="&b_id&"",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</tr>
</table>
<%end sub
Sub zhangadd()
b_id=replace(trim(request("b_id")),"'","")
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">添 加 分 卷</td>
</tr>
<form action="admin_works.asp?info=book_zhang_add" method="post" name="zhangaddform">
<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="34" align="right" class="alt2">分卷名称：</td>
<td width="60%" class="alt1">
<input name="list_cookname" type="text" class="form" size="30"></td>
</tr>
<tr>
<td width="40%" height="45" align="right" class="alt2">分卷介绍：</td>
<td width="60%" class="alt1">
<textarea name="list_cookinfo" class="form" cols="60" rows="5"></textarea></td>
</tr>
</table>
</div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="hidden" name="classid" value="<%=classid%>">
<input type="hidden" name="b_id" value="<%=b_id%>">
<input type="submit" class="button" value="确 认">
<input type="reset" class="button" value="重 置"></div>
</td>
</tr>
</form>
</table>
<br>
<div align="center">
<div id="bback">
<a href="admin_book.asp?info=zhanglist&b_id=<%=b_id%>">...::: 点 此 返 回 :::...</a></div>
</div>
<%end sub
Sub zhangedit()
c_id=request.querystring("c_id")
b_id=request.querystring("b_id")
set rs=server.CreateObject("ADODB.recordset")
sql="select list_cookname,list_cookinfo from list_cook where list_cookid="&c_id
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">修 改 分卷</td>
</tr>
<form action="admin_works.asp?info=book_zhang_edit" method="post" name="myform" id="myform">
<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="34" align="right" class="alt2">分卷名称：<br>
</td>
<td width="60%" class="alt1">
<input name="list_cookname" type="text" id="list_cookname" value="<%=rs("list_cookname")%>" size="30" class="form"></td>
</tr>
<tr>
<td width="40%" height="45" align="right" class="alt2">分卷介绍：</td>
<td width="60%" class="alt1">
<textarea name="list_cookinfo" class="form" cols="60" rows="5"><%=htmlen(rs("list_cookinfo"))%></textarea></td>
</tr>
</table>
</div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="hidden" name="c_id" value="<%=c_id%>">
<input type="hidden" name="b_id" value="<%=b_id%>">
<input type="submit" class="button" value="确 认">
<input type="reset" class="button" value="重 置"></div>
</td>
</tr>
</form>
</table>
<br>
<div align="center">
<div id="bback">
<a href="admin_book.asp?info=zhanglist&b_id=<%=b_id%>">...::: 点 此 返 回 :::...</a></div>
</div>
<%
rs.close
set rs=nothing
else
end if
end sub
Sub zhangmake()
b_id=request.querystring("b_id")
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">分 卷 排 序</td>
</tr>
<form action="admin_works.asp?info=book_zhang_list&b_id=<%=b_id%>" method="post" name="zhanglistform">
<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 height="26">
<td align="center" class="tcat"><b>分卷名称</b></td>
<td align="center" class="tcat"><b>排序号</b></td>
</tr>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select list_cookid,list_cookname,cook_viewid from list_cook where list_bookid="&b_id&" order by cook_viewid"
rs.open sql,conn,1,1
do while not rs.eof
%><tr height="26">
<td height="26" align="left" class="alt2">
<input name="list_cookid" type="hidden" value="<%=rs("list_cookid")%>" class="form">
<%=rs("list_cookname")%> </td>
<td align="center" class="alt1">
<input name="cook_viewid" type="text" value="<%=rs("cook_viewid")%>" size="10" class="form"></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</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>
<br>
<div align="center">
<div id="bback">
<a href="admin_book.asp?info=zhanglist&b_id=<%=b_id%>">...::: 点 此 返 回 :::...</a></div>
</div>
<%end sub
Sub jielist()
dim b_id,c_id,classid
b_id=request.querystring("b_id")
c_id=request.querystring("c_id")
set rs=server.CreateObject("adodb.recordset")
sql="select list_cookname from list_cook where list_cookid="&c_id
rs.open sql,conn,1,1
list_cookname=rs("list_cookname")
rs.close
set rs=nothing
set rs3=server.createobject("adodb.recordset")
sql3="select id,list_name,list_class from list_book where id="&b_id
rs3.open sql3,conn,1,3
list_name=rs3("list_name")
classid=rs3("list_class")
book0id=rs3("id")
rs3.close
set rs3=nothing
set rs2=server.createobject("adodb.recordset")
sql2="select list_tpye from list_type where typeid="&classid
rs2.open sql2,conn,1,1
list_tpye=rs2("list_tpye")
rs2.close
set rs2=nothing
%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="7">查 看 章 节</td>
</tr>
<%Const MaxPerPage=20
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -