admin_bookjian.asp

小说站源代码文件

'	sime="连载"
'elseif clid=3 then
'	sime="出版"
'elseif clid=4 then
'	sime="暂停"
'elseif clid=5 then
'	sime="停止"
'elseif clid=6 then
'	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")         
Sql="select WebName,ShowType from [Item] where itemid="&clid&" order by ItemID DESC"         
Rs.open Sql,ConnItem,1,1
if rs.eof and rs.bof then 
	itemname="未知采集站"
	ShowType=9
else
	itemname=rs("WebName")
	ShowType=rs("ShowType")
end if
Rs.Close

	if cndb="all" then
		sql="select id,list_name,Lock_book,IsVip,IsgoVip,list_class,ItemID,IsGood,Isweb_good,listvv_good,Islist_good,list_id,list_Url from list_book where itemid="&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,list_id,list_Url from list_book where Lock_book=1 and itemid="&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,list_id,list_Url from list_book where IsVip=1 and itemid="&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 "查看 "&itemname&" 所有作品"
		elseif cndb="vip" then 
			Response.Write "查看 "&itemname&" VIP作品"
		elseif cndb="lock" then 
			Response.Write "查看 "&itemname&" 未审核作品"
		end if%></b></td>
	</tr>
	<form name="form" method="get" action="admin_bookjian.asp?info=cjlists&clid=<%=clid%>">
			<input type="hidden" name="cndb" value="<%=cndb%>">
			<input type="hidden" name="clid" value="<%=clid%>">
			<input type="hidden" name="info" value="cjlists">
		<tr align="center">
			<td height="22" colspan="9" valign="middle" class="alt2"><input name="styear" size="4" class="form" maxlength="4">年<input name="stmonth" size="2" class="form">月<input name="stday" size="2" class="form">日 
			之后更新的长篇作品<input class="button" type="submit" value="列表" name="submit" style="width: 45; height: 20">
			</td>
		</tr>
	</form>
	<form name="form" method="get" action="admin_bookjian.asp?info=cjzjlist&clid=<%=clid%>">
			<input type="hidden" name="cndb" value="<%=cndb%>">
			<input type="hidden" name="clid" value="<%=clid%>">
			<input type="hidden" name="info" value="cjzjlist">
		<tr align="center">
			<td height="22" colspan="9" valign="middle" class="alt2"><input name="styear" size="4" class="form" maxlength="4">年<input name="stmonth" size="2" class="form">月<input name="stday" size="2" class="form">日 
			之后更新的作品章节<input class="button" type="submit" value="列表" name="submit" style="width: 45; height: 20">
			</td>
		</tr>
	</form>
	<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"><%Response.Write ShowPag("admin_bookjian.asp?info=cjlist&inf="&info&"&cndb="&cndb&"&clid="&clid&"",CurrentPage,Num,MaxBookPerPage)%>
			<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"><%if ShowType=0 then
				Response.Write "<input class=button type=submit value=更新采集 name=info style='width: 55; height: 15'>"
			elseif  ShowType=1 then
				Response.Write "<input class=button type=submit value=更新采集 name=info style='width: 55; height: 15'>"
			elseif  ShowType=9 then
				Response.Write "<input class=button type=submit value=采集 name=info style='width: 30; height: 15'>"
			else
				Response.Write "<input class=button type=submit value=采集 name=info style='width: 30; height: 15'>"
			end if%><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%>">