📄 admin_book.asp
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" src="../js/js.js"></script>
<title><%=Sitename%> - 长篇作品管理模块 - Powered By CnEnd Novelsmanagement</title>
</head>
<body>
<div id=topmomo>
<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a> |
<a href="admin_book.asp?info=bookadd">添加作品</a> |
<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a> |
<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div>
<table border="0" width="100%" align="center" cellpadding="0" cellspacing="0" align="right">
<tr>
<td width="43%"> <a href="admin_bookjian.asp?info=tjlist&cndb=jingpin">精品推荐作品</a>
<a href="admin_bookjian.asp?info=tjlist&cndb=fengmian">封面推荐作品</a>
<a href="admin_bookjian.asp?info=tjlist&cndb=qiangli">强力推荐作品</a>
<a href="admin_bookjian.asp?info=tjlist&cndb=lianzai">连载推荐作品</a> </td>
<form action="admin_booksearch.asp" method="get">
<td height="25" align="right" class="font"> 关键字：
<input maxlength="30" name="key_keyword" size="10" class="form">
<select size="1" name="key_type" class="checklist" class="form">
<option value="list_name">作品名称</option>
<option value="list_user">作者名称</option>
<option value="key">作品主角</option>
</select>
<input type="submit" value="搜 索" name="submit" class="button">
</td>
</form>
</tr>
</table>
<%
Select Case request.querystring("info")
Case "bookadd"
Call bookadd()
Case "booklist"
Call booklist()
Case "bookedit"
Call bookedit()
Case "zhangadd"
Call zhangadd()
Case "zhanglist"
Call zhanglist()
Case "zhangedit"
Call zhangedit()
Case "zhangmake"
Call zhangmake()
Case "jieadd"
Call jieadd()
Case "jieedit"
Call jieedit()
Case "jielist"
Call jielist()
Case "jiemake"
Call jiemake()
Case "viewgocook"
Call viewgocook()
end select
Sub booklist()
dim cndb,clid
cndb=request.querystring("cndb")
if cndb="" then
cndb="all"
end if
clid=request.querystring("clid")
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs=server.createobject("adodb.recordset")
if cndb="all" then
if clid="" then
sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good from list_book order by id desc"
else
sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good from list_book where list_class="&clid&" order by id desc"
end if
elseif cndb="lock" then
if clid="" then
sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good from list_book where Lock_book=1 order by id desc"
else
sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good from list_book where Lock_book=1 and list_class="&clid&" order by id desc"
end if
elseif cndb="vip" then
if clid="" then
sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good from list_book where IsVip=1 order by id desc"
else
sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good from list_book where IsVip=1 and list_class="&clid&" order by id desc"
end if
end if
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b><%if cndb="all" then
Response.Write "查看所有作品"
elseif cndb="vip" then
Response.Write "查看VIP作品"
elseif cndb="lock" then
Response.Write "查看未审核作品"
end if%></b></td>
</tr>
<form name="form" method="get" action="admin_booklist.asp">
<tr align="center" height="22">
<td width="6%" class="tcat">ID</td>
<td width="4%" class="tcat">选择</td>
<td width="8%" class="tcat"><b>所属分类</b></td>
<td width="26%" class="tcat"><b>作品名称</b></td>
<td width="8%" class="tcat"><b>审核状态</b></td>
<td width="10%" class="tcat"><b>VIP状态</b></td>
<td width="15%" class="tcat"><b>推荐</b></td>
<td width="10%" class="tcat"><b>静态生成</b></td>
<td width="13%" class="tcat"><b>操作</b></td>
</tr>
<%
if rs.eof and rs.bof then
response.write "<tr align=center><td height=22 colspan=9 valign=middle class=alt2>暂时没有任何作品，请添加！</td></tr>"
else
Rs.PageSize=MaxBookPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
do while not rs.eof
set rs1=server.createobject("adodb.recordset")
sql1="select list_tpye from list_type where typeid="&rs("list_class")
rs1.open sql1,conn,1,1
%>
<tr align="center" height="22">
<td align="center" class="alt2"><%=rs("id")%></td>
<td align="center" class="alt1">
<input type="checkbox" name="checked" value="<%=rs("id")%>" class="form"></td>
<td class="alt2"><%if rs1.eof and rs1.bof then%>已被删除<%else%><a href="admin_book.asp?info=booklist&cndb=<%=cndb%>&clid=<%=rs("list_class")%>"><%= rs1("list_tpye")%></a><%end if%></td>
<td class="alt1" align="left">
<a title="点击查看分卷" href="admin_book.asp?info=zhanglist&b_id=<%=rs("id")%>">
<%= rs("list_name") %></a></td>
<td class="alt2">
<input class="button" type="button" name="lock" value="<%if rs("Lock_book")=0 then%>取消<%else%>通过<%end if%>" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=lock','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')" style="width: 45; height: 20"></td>
<td class="alt1"><%if rs("IsVip")=1 then%><input class="button" type="button" name="IsgoVip" value="取消 VIP" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=goVip','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')" style="width: 60; height: 20"><%elseif rs("IsgoVip")=1 then%><input class="button" type="button" name="IsgoVip" value="申请理由" onclick="javascript:window.open('admin_bookIsgoVip.asp?id=<%=rs("id")%>','_blank','')" style="width: 60; height: 20"></a><input class="button" type="button" name="IsgoVip" value="通过申请" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=goVip','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')" style="width: 60; height: 20"><%else%><input class="button" type="button" name="IsgoVip" value="直接通过" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=goVip','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')" style="width: 60; height: 20"><%end if%></td>
<td class="alt2">
<div class="select"><div><select onchange="if(this.options[this.selectedIndex].value != '') {
window.location=(''+this.options[this.selectedIndex].value+'') }" class="form">
<option value>作品推荐</option>
<option value="admin_bookjians.asp?info=feng&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("Isweb_good")=1 then response.write "取消封面推荐" else response.write "首页封面推荐" end if%>
</option>
<option value="admin_bookjians.asp?info=jing&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("IsGood")=1 then response.write "取消精品推荐" else response.write "首页精品推荐" end if%>
</option>
<option value="admin_bookjians.asp?info=qiang&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("listvv_good")=1 then response.write "取消强力推荐" else response.write "首页强力推荐" end if%>
</option>
<option value="admin_bookjians.asp?info=lian&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("Islist_good")=1 then response.write "取消连载推荐" else response.write "首页连载推荐" end if%>
</option>
<option value="admin_bookjians.asp?info=classfeng&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("Isweb_good")=2 then response.write "取消分类页封推" else response.write "分类页封面推荐" end if%>
</option>
<option value="admin_bookjians.asp?info=classjing&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("IsGood")=2 then response.write "取消分类页精品" else response.write "分类页精品推荐" end if%>
</option>
<option value="admin_bookjians.asp?info=classqiang&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("listvv_good")=2 then response.write "取消分类页强力" else response.write "分类页强力推荐" end if%>
</option>
<option value="admin_bookjians.asp?info=classlian&b_id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&Page=<%=CurrentPage%>">
<%if rs("Islist_good")=2 then response.write "取消分类页连载" else response.write "分类页连载推荐" end if%>
</option>
</select></div></div></td>
<td class="alt1">
<div class="select"><div><select onchange="if(this.options[this.selectedIndex].value != '') {
window.location=(''+this.options[this.selectedIndex].value+'') }" class="form">
<option value>静态页生成</option>
<option value="admin_bookHTMLmake.asp?info=allpage&b_id=<%=rs("id")%>">
全部页面</option>
<option value="admin_bookHTMLmake.asp?info=look&b_id=<%=rs("id")%>">
作品资料页</option>
<option value="admin_bookHTMLmake.asp?info=index&b_id=<%=rs("id")%>">
作品目录页</option>
<option value="admin_bookHTMLmake.asp?info=all&b_id=<%=rs("id")%>">
全文阅读页</option>
<option value="admin_bookHTMLmake.asp?info=zhang&b_id=<%=rs("id")%>">
分卷阅读页</option>
<option value="admin_bookHTMLmake.asp?info=page&b_id=<%=rs("id")%>">
章节阅读页</option>
</select></div></div></td>
<td class="alt2">
<div class="select"><div><select onchange="if(this.options[this.selectedIndex].value != '') {
window.location=(''+this.options[this.selectedIndex].value+'') }" class="form">
<option value>作品相关操作</option>
<option value="admin_book.asp?info=zhanglist&b_id=<%=rs("id")%>">
浏览作品分卷</option>
<option value="admin_book.asp?info=zhangadd&b_id=<%=rs("id")%>">
添加作品分卷</option>
<option value="admin_book.asp?info=zhangmake&b_id=<%=rs("id")%>">
作品分卷排序</option>
<option value="admin_book.asp?info=viewgocook&id=<%=rs("id")%>">
移动作品章节</option>
<option value="admin_book.asp?urltype=list&info=bookedit&id=<%=rs("id")%>&cndb=<%=cndb%>&clid=<%=clid%>&page=<%=CurrentPage%>">
修改作品资料</option>
<option value="admin_booklist.asp?info=删除&checked=<%=rs("id")%>&urltype=list&cndb=<%=cndb%>&clid=<%=clid%>&page=<%=CurrentPage%>">
删除作品</option>
<option value>--------</option>
<option value="admin_vote.asp?info=add&cndb=book&id=<%=rs("id")%>">
添加作品调查</option>
<option value="admin_vote.asp?info=list&cndb=book&id=<%=rs("id")%>">
作品调查列表</option>
<option value="admin_pinglun.asp?info=book&id=<%=rs("id")%>">
作品评论管理</option>
<option value>--------</option>
<option value="admin_booklist.asp?info=采集&checked=<%=rs("id")%>&urltype=list&cndb=<%=cndb%>&clid=<%=clid%>&page=<%=CurrentPage%>">
续采作品章节</option>
</select></div></div></td>
</tr>
<% i=i+1
If i>=MaxBookPerPage Then Exit Do
Rs.MoveNext
Loop
%><tr><input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="clid" value="<%=clid%>">
<input type="hidden" name="Page" value="<%=CurrentPage%>">
<input type="hidden" name="urltype" value="list">
<td height="20" align="center" colspan="9" class="alt3">
<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="info" style="width: 45; height: 20">
<input class="button" type="submit" value="推荐" name="info" style="width: 45; height: 20">
<input class="button" type="submit" value="移动" name="info" style="width: 45; height: 20">
<input class="button" type="submit" value="采集" name="info" style="width: 45; height: 20">
<input class="button" type="submit" value="审核" name="info" style="width: 45; height: 20">
<input class="button" type="submit" value="静态生成" name="info" style="width: 70; height: 20">
<input class="button" type="submit" value="通过 VIP" name="info" style="width: 70; height: 20">
<input class="button" type="submit" value="生成全文TXT" name="info" style="width: 80; height: 20">
</td>
</tr>
</form>
<%End If
Rs.Close
Set Rs=Nothing%>
<tr align="center">
<td height="25" colspan="9" valign="middle" class="alt2"><%Response.Write ShowPage("admin_book.asp?info=booklist&cndb="&cndb&"&clid="&clid&"",CurrentPage,Num,MaxBookPerPage,True,True," 个项目")%></td>
</tr>
</table>
<table border="0" width="100%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=1">转载状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=2">连载状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=3">出版状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=4">暂停状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=5">停止状态作品</a>
<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=6">完成状态作品</a> </td>
</tr>
</table>
<%end sub
Sub bookadd()
dim typeid,list_classid
if cstr(trim(request.QueryString("typeid")))="" or cstr(trim(request.QueryString("typeid")))=Null then
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
'MySQL使用如下语句
sql="select typeid from list_type order by typeid limit 1"
else
sql="select top 1 typeid from [list_type] order by typeid"
end if
rs.open sql,conn,1,1
typeid=cstr(rs("typeid"))
rs.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -