admin_bookjian.asp

小说站源代码文件

	sime="完成"
else
	sime="未知"
	clid=2
end if

If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if

set rs=server.createobject("adodb.recordset")
	if cndb="all" then
		sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good from list_book where list_tai="&clid&" order by id desc"
	elseif cndb="lock" 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 and list_tai="&clid&" order by id desc"
	elseif cndb="vip" 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 and list_tai="&clid&" 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="9"><b><%if cndb="all" then
			Response.Write "查看所有"&sime&"状态作品"
		elseif cndb="vip" then 
			Response.Write "查看VIP"&sime&"作品"
		elseif cndb="lock" then 
			Response.Write "查看未审核"&sime&"作品"
		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
%><tr>
			<td height="20" align="center" colspan="9" 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

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%>"><%= rs1("list_tpye")%></a><%end if%></td>
			<td class="alt1" align="left">&nbsp;
			<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")%>&amp;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")%>&amp;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")%>&amp;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")%>&amp;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&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;Page=<%=CurrentPage%>">
					<%if rs("Isweb_good")=1 then response.write "取消封面推荐" else response.write "首页封面推荐" end if%>
					</option>
					<option value="admin_bookjians.asp?info=jing&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;Page=<%=CurrentPage%>">
					<%if rs("IsGood")=1 then response.write "取消精品推荐" else response.write "首页精品推荐" end if%>
					</option>
					<option value="admin_bookjians.asp?info=qiang&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;Page=<%=CurrentPage%>">
					<%if rs("listvv_good")=1 then response.write "取消强力推荐" else response.write "首页强力推荐" end if%>
					</option>
					<option value="admin_bookjians.asp?info=lian&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;Page=<%=CurrentPage%>">
					<%if rs("Islist_good")=1 then response.write "取消连载推荐" else response.write "首页连载推荐" end if%>
					</option>
					<option value="admin_bookjians.asp?info=classfeng&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;Page=<%=CurrentPage%>">
					<%if rs("Isweb_good")=2 then response.write "取消分类页封推" else response.write "分类页封面推荐" end if%>
					</option>
					<option value="admin_bookjians.asp?info=classjing&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;Page=<%=CurrentPage%>">
					<%if rs("IsGood")=2 then response.write "取消分类页精品" else response.write "分类页精品推荐" end if%>
					</option>
					<option value="admin_bookjians.asp?info=classqiang&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;Page=<%=CurrentPage%>">
					<%if rs("listvv_good")=2 then response.write "取消分类页强力" else response.write "分类页强力推荐" end if%>
					</option>
					<option value="admin_bookjians.asp?info=classlian&amp;b_id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;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&amp;b_id=<%=rs("id")%>">
					全部页面</option>
					<option value="admin_bookHTMLmake.asp?info=look&amp;b_id=<%=rs("id")%>">
					作品资料页</option>
					<option value="admin_bookHTMLmake.asp?info=index&amp;b_id=<%=rs("id")%>">
					作品目录页</option>
					<option value="admin_bookHTMLmake.asp?info=all&amp;b_id=<%=rs("id")%>">
					全文阅读页</option>
					<option value="admin_bookHTMLmake.asp?info=zhang&amp;b_id=<%=rs("id")%>">
					分卷阅读页</option>
					<option value="admin_bookHTMLmake.asp?info=page&amp;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&amp;b_id=<%=rs("id")%>">
					浏览作品分卷</option>
					<option value="admin_book.asp?info=zhangadd&amp;b_id=<%=rs("id")%>">
					添加作品分卷</option>
					<option value="admin_book.asp?info=zhangmake&amp;b_id=<%=rs("id")%>">
					作品分卷排序</option>
					<option value="admin_book.asp?info=viewgocook&amp;id=<%=rs("id")%>">
					移动作品章节</option>
					<option value="admin_book.asp?urltype=jianlist&amp;info=bookedit&amp;inf=<%=info%>&amp;id=<%=rs("id")%>&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;page=<%=CurrentPage%>">
					修改作品资料</option>
					<option value="admin_booklist.asp?info=删除&amp;inf=<%=info%>&amp;checked=<%=rs("id")%>&amp;urltype=list&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;page=<%=CurrentPage%>">
					删除作品</option>
					<option value>--------</option>
					<option value="admin_vote.asp?info=add&amp;cndb=book&amp;id=<%=rs("id")%>">
					添加作品调查</option>
					<option value="admin_vote.asp?info=list&amp;cndb=book&amp;id=<%=rs("id")%>">
					作品调查列表</option>
					<option value="admin_pinglun.asp?info=book&amp;id=<%=rs("id")%>">
					作品评论管理</option>
					<option value>--------</option>
					<option value="admin_booklist.asp?info=采集&amp;inf=<%=info%>&amp;checked=<%=rs("id")%>&amp;urltype=list&amp;cndb=<%=cndb%>&amp;clid=<%=clid%>&amp;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="inf" value="<%=info%>">
			<input type="hidden" name="Page" value="<%=CurrentPage%>">
			<input type="hidden" name="urltype" value="listjian">
			<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_bookjian.asp?info=booklist&inf="&info&"&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>&nbsp;
		<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=1">转载状态作品</a>&nbsp;
		<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=2">连载状态作品</a>&nbsp;
		<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=3">出版状态作品</a>&nbsp;
		<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=4">暂停状态作品</a>&nbsp;
		<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=5">停止状态作品</a>&nbsp;
		<a href="admin_bookjian.asp?info=booklist&cndb=<%=cndb%>&clid=6">完成状态作品</a>
		</td>
	</tr>
</table>
<%end Sub
Sub cjlist()
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