admin_bookjian.asp

小说站源代码文件

			<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">
			<%if ShowType=0 then
				Response.Write "<input class=button type=submit value=更新采集 name=info style='width: 70; height: 20'>"
			elseif  ShowType=1 then
				Response.Write "<input class=button type=submit value=更新采集 name=info style='width: 70; height: 20'>"
			elseif  ShowType=9 then
				Response.Write "<input class=button type=submit value=采集 name=info style='width: 45; height: 20'>"
			else
				Response.Write "<input class=button type=submit value=采集 name=info style='width: 45; height: 20'>"
			end if%>
			<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=cjlist&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 cjlists()
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
styear=request.querystring("styear")
stmonth=request.querystring("stmonth")
stday=request.querystring("stday")
Predate=styear&"-"&stmonth&"-"&stday
Predate=CDate(Predate)
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 IsSqlDataBase = 0 then
	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,list_gxdate from list_book where itemid="&clid&" and list_gxdate>#"&Predate&"# order by list_gxdate 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,list_gxdate from list_book where Lock_book=1 and itemid="&clid&" and list_gxdate>#"&Predate&"# order by list_gxdate 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,list_gxdate from list_book where IsVip=1 and itemid="&clid&" and list_gxdate>#"&Predate&"# order by list_gxdate desc"
	end if
else
	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,list_gxdate from list_book where itemid="&clid&" and list_gxdate>'"&Predate&"' order by list_gxdate 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,list_gxdate from list_book where Lock_book=1 and itemid="&clid&" and list_gxdate>'"&Predate&"' order by list_gxdate 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,list_gxdate from list_book where IsVip=1 and itemid="&clid&" and list_gxdate>'"&Predate&"' order by list_gxdate desc"
	end if
end if
'Response.Write sql
'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&" 所有从"&Predate&"到"&NextDate&"更新的作品"
		elseif cndb="vip" then 
			Response.Write "查看 "&itemname&" VIP从"&Predate&"到"&NextDate&"更新的作品"
		elseif cndb="lock" then 
			Response.Write "查看 "&itemname&" 未审核从"&Predate&"到"&NextDate&"更新的作品"
		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=cjlists&inf="&info&"&cndb="&cndb&"&clid="&clid&"&styear="&styear&"&stmonth="&stmonth&"&stday="&stday&"",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="最后更新：<%=rs("list_gxdate")%>" 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")%>">