📄 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>
</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=jingpin">精品推荐作品</a>
<a href="admin_bookjian.asp?info=fengmian">封面推荐作品</a>
<a href="admin_bookjian.asp?info=qiangli">强力推荐作品</a>
<a href="admin_bookjian.asp?info=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="checklist" 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")
Const MaxPerPage=20
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="5%" class="tcat">ID</td>
<td width="4%" class="tcat">选择</td>
<td width="16%" class="tcat"><b>所属分类</b></td>
<td width="20%" class="tcat"><b>作品名称</b></td>
<td width="10%" class="tcat"><b>审核状态</b></td>
<td width="10%" class="tcat"><b>VIP状态</b></td>
<td width="12%" class="tcat"><b>推荐</b></td>
<td width="10%" class="tcat"><b>HTML生成</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=9 valign=middle class=alt2>暂时没有任何作品，请添加！</td></tr>"
else
Rs.PageSize=MaxPerPage
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: 60; 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_works.asp?urltype=list&info=book_del&cndb=<%=cndb%>&clid=<%=clid%>&id=<%=rs("id")%>&page=<%=CurrentPage%>">
删除作品</option>
<option value>--------</option>
<option value="admin_worksvote.asp?info=list&cndb=book&id=<%=rs("id")%>">
添加调查</option>
<option value="admin_worksvote.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")%>">
续采作品章节</option>
</select></div></div></td>
</tr>
<% i=i+1
If i>=MaxPerPage 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">
</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,MaxPerPage,True,True," 个项目")%></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
set rs=nothing
else
typeid=cstr(trim(request.QueryString("typeid")))
end if
%>
<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_add" method="post" name="book_form">
<tr>
<td colspan="4" class="alt3">
<div id="panx">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -