📄 admin_bookjian.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">
<title><%=Sitename%> - 长篇作品管理模块 多种模式列表作品 - Powered By CnEnd Novelsmanagement
</title>
<script language="javaScript" src="../js/js.js"></script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</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="50%">
<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>
<%
info=request.querystring("info")
if info="" or info=null then
info="tjlist"
end if
Select Case info
Case "tjlist"
Call tjlist()
Case "booklist"
Call booklist()
Case "cjlist"
Call cjlist()
Case "cjlists"
Call cjlists()
Case "cjzjlist"
Call cjzjlist()
end select
Sub tjlist()
%><script language="JavaScript">
<!--
function del(sortname) {
return(confirm('CnEndWeb（终点）提醒：\n\n真的要删除 [ ' + sortname + ' ] 及其下面的所有章节吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script> <%
cndb=request.querystring("cndb")
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs=server.createobject("adodb.recordset")
if cndb="jingpin" then
sql="select id,list_name,Lock_book,IsVip,IsgoVip,IsGood,Isweb_good,listvv_good,Islist_good,ItemID from list_book where IsGood=1 order by id desc"
elseif cndb="fengmian" then
sql="select id,list_name,Lock_book,IsVip,IsgoVip,IsGood,Isweb_good,listvv_good,Islist_good,ItemID from list_book where Isweb_good=1 order by id desc"
elseif cndb="qiangli" then
sql="select id,list_name,Lock_book,IsVip,IsgoVip,IsGood,Isweb_good,listvv_good,Islist_good,ItemID from list_book where listvv_good=1 order by id desc"
elseif cndb="lianzai" then
sql="select id,list_name,Lock_book,IsVip,IsgoVip,IsGood,Isweb_good,listvv_good,Islist_good,ItemID from list_book where Islist_good=1 order by id desc"
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="10"><b><%
if cndb="jingpin" then
Response.Write "查看精品推荐作品"
elseif cndb="fengmian" then
Response.Write "查看封面推荐作品"
elseif cndb="qiangli" then
Response.Write "查看强力推荐作品"
elseif cndb="lianzai" then
Response.Write "查看连载推荐作品"
end if%></b></td>
</tr>
<form name="form" method="get" action="admin_booklist.asp">
<tr align="center" height="25">
<td width="5%" class="tcat">ID</td>
<td width="5%" class="tcat">选择</td>
<td width="20%" class="tcat"><b>作品名称</b></td>
<td width="10%" class="tcat"><b>审核状态</b></td>
<td width="16%" class="tcat"><b>VIP状态</b></td>
<td width="8%" class="tcat"><b>精品推荐</b></td>
<td width="8%" class="tcat"><b>封面推荐</b></td>
<td width="8%" class="tcat"><b>强力推荐</b></td>
<td width="8%" class="tcat"><b>连载推荐</b></td>
<td width="12%" class="tcat"><b>操作</b></td>
</tr>
<%if rs.eof and rs.bof then
response.write "<tr align=center><td height=22 colspan=10 class=alt1><span class=style1>暂时没有任何作品，请添加！</span></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
%><tr>
<td height="20" align="center" colspan="10" class="alt3">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 30; height: 15"><input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 30; height: 15"><input class="button" type="submit" value="删除" name="info" style="width: 30; height: 15"><input class="button" type="submit" value="推荐" name="info" style="width: 30; height: 15"><input class="button" type="submit" value="移动" name="info" style="width: 30; height: 15"><input class="button" type="submit" value="采集" name="info" style="width: 30; height: 15"><input class="button" type="submit" value="审核" name="info" style="width: 30; height: 15"><input class="button" type="submit" value="静态生成" name="info" style="width: 55; height: 15"><input class="button" type="submit" value="通过 VIP" name="info" style="width: 55; height: 15"><input class="button" type="submit" value="生成全文TXT" name="info" style="width: 70; height: 15">
</td>
</tr>
<%do while not rs.eof%>
<tr align="center" height="22">
<td class="alt2"><%=rs("id")%></td>
<td class="alt1">
<input type="checkbox" name="checked" value="<%=rs("id")%>" class="form"></td>
<td class="alt2" align="left">
<a title="点击查看分卷" href="admin_book.asp?info=zhanglist&b_id=<%=rs("id")%>">
<%= rs("list_name") %></a></td>
<td class="alt1">
<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="alt2"><%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="alt1">
<input class="button" type="button" name="IsGood" value="<%if rs("IsGood")=1 then%>取消<%else%>推荐<%end if%>" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=IsGood','_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="alt2">
<input class="button" type="button" name="Isweb_good" value="<%if rs("Isweb_good")=1 then%>取消<%else%>推荐<%end if%>" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=Isweb_good','_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">
<input class="button" type="button" name="listvv_good" value="<%if rs("listvv_good")=1 then%>取消<%else%>推荐<%end if%>" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=listvv_good','_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="alt2">
<input class="button" type="button" name="Islist_good" value="<%if rs("Islist_good")=1 then%>取消<%else%>推荐<%end if%>" onclick="javascript:window.open('admin_bookSave.asp?id=<%=rs("id")%>&act=Islist_good','_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">
<a href="admin_booklist.asp?info=采集&checked=<%=rs("id")%>">采集</a>
<a title="修改" href="admin_book.asp?urltype=listjian&info=bookedit&inf=<%=info%>&cndb=<%=cndb%>&id=<%=rs("id")%>">
修改</a>
<a href="admin_booklist.asp?info=删除&checked=<%=rs("id")%>&urltype=listjian&inf=<%=info%>&cndb=<%=cndb%>&clid=<%=clid%>&page=<%=CurrentPage%>">
删除</a></td>
</tr>
<% i=i+1
If i>=MaxBookPerPage Then Exit Do
Rs.MoveNext
Loop
%><tr>
<td height="20" align="center" colspan="10" class="alt3">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="urltype" value="listjian">
<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="30" colspan="10" class="alt2"><%Response.Write ShowPage("admin_bookjian.asp?info="&info&"&inf="&info&"&cndb="&cndb&"",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 booklist()
dim cndb,clid
cndb=request.querystring("cndb")
if cndb="" then
cndb="all"
end if
clid=request.querystring("clid")
if clid=1 then
sime="转载"
elseif clid=2 then
sime="连载"
elseif clid=3 then
sime="出版"
elseif clid=4 then
sime="暂停"
elseif clid=5 then
sime="停止"
elseif clid=6 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -