admin_booklist.asp

小说站源代码文件

			完成后可以选择<a href="admin_Itemloadview.asp"><font color="#FF0000">批量采集作品章节内容</font></a>完整采集作品</td>
		</tr>
		<tr>
			<td width=30% class=alt2 height="26" valign="top" align="right">自动生成静态页面：</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="makelookhtml" value="1" class="form">资料页&nbsp;&nbsp;
			<input type="checkbox" name="makereadhtml" value="1" class="form">目录页&nbsp;&nbsp;
			<input type="checkbox" name="makeviewhtml" value="1" class="form">章节页&nbsp;&nbsp;
			<input type="checkbox" name="makecookhtml" value="1" class="form">分卷页&nbsp;&nbsp;
			<input type="checkbox" name="makeallphtml" value="1" class="form">全文页<br>
			选择本功能将在采集的同时生成HTML静态页面，但会占用更多的系统资源</td>
		</tr>
		<tr>
			<td height="30" align="center" colspan="2" class=alt3>
			<input type="submit" value="开始采集" name="B1" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
			<input type="reset" value="重置设定" name="B2" class="button"> </td>
		</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center" height="22">
		<td width="6%" class="tcat">ID</td>
		<td width="4%" class="tcat">选择</td>
		<td width="25%" class="tcat"><b>作品名称</b></td>
		<td width="15%" class="tcat"><b>作者</b></td>
		<td width="10%" class="tcat"><b>审核状态</b></td>
		<td width="10%" class="tcat"><b>性质</b></td>
		<td width="10%" class="tcat"><b>点击</b></td>
		<td width="10%" class="tcat"><b>推荐</b></td>
		<td width="10%" class="tcat"><b>收藏</b></td>
	</tr>
<%
bookArray=Split(ID, ",")
set rs=server.CreateObject("ADODB.RecordSet")
For i=0 To UBound(bookArray)
	sql="select id,list_name,Lock_book,list_user,list_hit,list_jian,list_cang,IsVip from list_book where id="&bookArray(i)
	rs.open sql,conn,1,1%>
<tr align=center height=22>
<td class=alt2><%=rs("id")%></td>
<td class=alt1><input type=checkbox name=checked value='<%=rs("id")%>' class=form checked></td>
<td class=alt2 align=left>&nbsp; <a href=<%=SiteSystemPath%>look_book.asp?id=<%=rs("id")%> target=_blank><%=rs("list_name")%></a></td>
<td class=alt1><%=rs("list_user")%></td>
<td class=alt2>
<%if rs("Lock_book")=0 then
	response.write("已审核")
else
	response.write("未审核")
end if%></td>
<td class=alt1>
<%if rs("IsVip")=1 then
	response.write("VIP作品")
else
	response.write("公众作品")
end if%></td>
<td class=alt2><%=rs("list_hit")%></td>
<td class=alt1><%=rs("list_jian")%></td>
<td class=alt2><%=rs("list_cang")%></td>
</tr>
<%rs.close
Next
set rs=nothing%>
</table>
</form>
<%end if
end if
end sub

sub listloads()
id=replace(trim(request("checked"))," ","")
If ID="" Then
	ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
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 request("action")="save" then
		makelookjt = Request("makelookhtml")
		If makelookjt="" or makelookjt=null Then
			makelookjt=0
		end if
		makereadjt = Request("makereadhtml")
		If makereadjt="" or makereadjt=null Then
			makereadjt=0
		end if
		makeviewjt = Request("makeviewhtml")
		If makeviewjt="" or makeviewjt=null Then
			makeviewjt=0
		end if
		makecookjt = Request("makecookhtml")
		If makecookjt="" or makecookjt=null Then
			makecookjt=0
		end if
		makeallpjt = Request("makeallphtml")
		If makeallpjt="" or makeallpjt=null Then
			makeallpjt=0
		end if

		makebookHTML=makelookjt&","&makereadjt&","&makeviewjt&","&makecookjt&","&makeallpjt

		Fastbook = Request("Fastbook")
		If Fastbook="" or Fastbook=null Then
			Fastbook=0
		end if
		lostbook = Request("lostbook")
		If lostbook="" or lostbook=null Then
			lostbook=0
		end if
		flushbook = Request("flushbook")
		If flushbook="" or flushbook=null Then
			flushbook=0
		end if

		listedID=replace(ID,",","|")
		arrBookList = Split(listedID,"|")
		idTotal=UBound(arrBookList)+1
		If FoundErr=True Then
			call WriteErrMsg(ErrMsg)
		Else
			response.write "<SCRIPT language=JavaScript>if(!confirm('"
			response.write "\n你选择的是按列表批量更新　　　 \n"
			response.write "\n根据填写内容，接下来将要更新 "&idTotal&" 部作品　　　 \n"
			if idTotal>99 and idTotal<500 then
				response.write "\n你填写的作品ID多，更新 "&idTotal&" 部作品需要的时间比较长　　　 \n"
				response.write "\n且容易造成采集系统停止响应，你确定继续吗？　　　 \n"
			elseif idTotal>500 and idTotal<1000 then
				response.write "\n你填写的作品ID稍多，更新 "&idTotal&" 部作品需要的时间很长　　　 \n"
				response.write "\n且很易造成采集系统停止响应，建议返回重新设置，你确定继续吗？　　　 \n"
			elseif idTotal>1000 and idTotal<10000 then
				response.write "\n你填写的作品ID很多，更新 "&idTotal&" 部作品需要的时间非常长　　　 \n"
				response.write "\n且极易造成采集系统停止响应，建议返回重新设置，你确定继续吗？　　　 \n"
			elseif idTotal>10000 then
				response.write "\n你填写的作品ID过多，更新 "&idTotal&" 部作品需要的时间无法估量　　　 \n"
				response.write "\n且必然造成采集系统停止响应，建议返回重新设置，你确定继续吗？　　　 \n"
			end if
			response.write "\n点击 [ 确定 ] 继续,点击 [ 取消 ] 返回　　　 \n"
			response.write "')){history.back(-1);}else{}</SCRIPT>"
			if ShowType=0 then
				response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemsloadsBooks.asp?listedID="&listedID&"&lostbook="&lostbook&"&flushbook="&flushbook&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"&ItemID="&clid&"&loadtype=1'>"
			elseif  ShowType=1 then
				response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemsloadsBooks.asp?listedID="&listedID&"&lostbook="&lostbook&"&flushbook="&flushbook&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"&ItemID="&clid&"&loadtype=1'>"
			elseif  ShowType=9 then
				response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemsloadBooks.asp?listedID="&listedID&"&lostbook="&lostbook&"&flushbook="&flushbook&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"'>"
			else
				response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemsloadBooks.asp?listedID="&listedID&"&lostbook="&lostbook&"&flushbook="&flushbook&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"'>"
			end if
				response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemsloadBooks.asp?listedID="&listedID&"&lostbook="&lostbook&"&flushbook="&flushbook&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"'>"
			response.End
		end if
	else
%>
<script language="javascript">
function checkstatu(frm)
	{
		if (frm.lostbook.checked == true)
        	if (!confirm("按照保存的最后采集参数向后采集，将照保存的最后采集参数向后采集,不再逐章检查。\n\n"))
        	{frm.lostbook.checked=false;}
	}
function checkstatus(frm)
	{
		if (frm.flushbook.checked == true)
        	if (!confirm("强制更新章节内容，将把所有的章节内容重新采集并更新，请慎重考虑。\n\n"))
        	{frm.flushbook.checked=false;}
	}
function checkstatusss(frm)
	{
		if (frm.Fastbook.checked == true)
        	if (!confirm("快速批量采集作品，不采集章节内容直接调用采集站内容，请慎重考虑。\n\n"))
        	{frm.Fastbook.checked=false;}
	}
</script>
<form method="post" name="forml" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&inf=<%=inf%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
	<tr>
		<td height="30" align="center" valign="middle" class="thead" colspan="2">
		从 <%=itemname%> 全自动批量更新作品</td>
	</tr>
	<tr>
		<td height="26" align="center" valign="middle" class="tcat" colspan="2">
		此操作将自动采集指定范围内的作品更新后的章节, 此操作大量占用系统资源</td>
	</tr>
		<tr>
			<td width="30%" height="26" align=right class=alt2>当前采集方式：</td>
			<td width="70%" class=alt1>按照选择的作品列表</td>
		</tr>
		<tr>
			<td width="30%" height="26" align="right" class="alt2">按照保存的最后采集参数向后采集：</td>
			<td width="70%" class="alt1">
			<input type="checkbox" name="lostbook" onclick="checkstatu(this.form)" value="1" class="form" checked><br>
			选择本功能将按照保存的最后采集参数向后采集,不再逐章检查判断是否存在新章节 <br>
			可以节约采集时间,节省采集资源.部分采集站不支持该功能(从目录中获取分卷ID的站点等)</td>
		</tr>
		<tr>
			<td width="30%" height="26" align="right" class="alt2">强制更新章节内容：</td>
			<td width="70%" class="alt1">
			<input type="checkbox" name="flushbook" onclick="checkstatus(this.form)" value="1" class="form"><br>
			选择本功能将把现有所有的章节内容重新采集并更新</td>
		</tr>
		<tr>
			<td width="30%" height="26" align="right" class="alt2">快速批量采集作品：</td>
			<td width="70%" class="alt1">
			<input type="checkbox" name="Fastbook" onclick="checkstatusss(this.form)" value="1" class="form"><br>
			选择本功能将在采集进行中不采集章节内容直接调用采集站内容 <br>
			完成后可以选择<a href="admin_Itemloadview.asp"><font color="#FF0000">批量采集作品章节内容</font></a>完整采集作品</td>
		</tr>
		<tr>
			<td width=30% class=alt2 height="26" valign="top" align="right">自动生成静态页面：</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="makelookhtml" value="1" class="form">资料页&nbsp;&nbsp;
			<input type="checkbox" name="makereadhtml" value="1" class="form">目录页&nbsp;&nbsp;
			<input type="checkbox" name="makeviewhtml" value="1" class="form">章节页&nbsp;&nbsp;
			<input type="checkbox" name="makecookhtml" value="1" class="form">分卷页&nbsp;&nbsp;
			<input type="checkbox" name="makeallphtml" value="1" class="form">全文页<br>
			选择本功能将在采集的同时生成HTML静态页面，但会占用更多的系统资源</td>
		</tr>
		<tr>
			<td height="30" align="center" colspan="2" class=alt3>
			<input type="submit" value="开始采集" name="B1" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
			<input type="reset" value="重置设定" name="B2" class="button"> </td>
		</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center" height="22">
		<td width="6%" class="tcat">ID</td>
		<td width="4%" class="tcat">选择</td>
		<td width="25%" class="tcat"><b>作品名称</b></td>
		<td width="15%" class="tcat"><b>作者</b></td>
		<td width="10%" class="tcat"><b>审核状态</b></td>
		<td width="10%" class="tcat"><b>性质</b></td>
		<td width="10%" class="tcat"><b>点击</b></td>
		<td width="10%" class="tcat"><b>推荐</b></td>
		<td width="10%" class="tcat"><b>收藏</b></td>
	</tr>
<%
bookArray=Split(ID, ",")
set rs=server.CreateObject("ADODB.RecordSet")
For i=0 To UBound(bookArray)
	sql="select id,list_name,Lock_book,list_user,list_hit,list_jian,list_cang,IsVip,list_id,list_Url from list_book where id="&bookArray(i)
	rs.open sql,conn,1,1%>
<tr align=center height=22>
<td class=alt2><%=rs("id")%></td>
<td class=alt1><input type=checkbox name=checked value='<%if ShowType=0 then
				Response.Write rs("list_id")
			elseif  ShowType=1 then
				Response.Write rs("list_Url")
			elseif  ShowType=9 then
				Response.Write rs("id")
			else
				Response.Write rs("id")
			end if%>' class=form checked></td>
<td class=alt2 align=left>&nbsp; <a href=<%=SiteSystemPath%>look_book.asp?id=<%=rs("id")%> target=_blank><%=rs("list_name")%></a></td>
<td class=alt1><%=rs("list_user")%></td>
<td class=alt2>
<%if rs("Lock_book")=0 then
	response.write("已审核")
else
	response.write("未审核")
end if%></td>
<td class=alt1>
<%if rs("IsVip")=1 then
	response.write("VIP作品")
else
	response.write("公众作品")
end if%></td>
<td class=alt2><%=rs("list_hit")%></td>
<td class=alt1><%=rs("list_jian")%></td>
<td class=alt2><%=rs("list_cang")%></td>
</tr>
<%rs.close
Next
set rs=nothing%>
</table>
</form>
<%end if
end if
end sub

sub listlock()
id=trim(request("checked"))
If ID="" Then
	ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
	if request("action")="save" then
		Lock_book=request("Lock_book")
		if Lock_book="" then
			ErrCodes = ErrCodes & "<li>您需要选择操作类型！</li><br>"
			FoundErr=True
		end if
		if FoundErr=True then
			Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
		else
			viewArray=Split(ID, ",")
			For i=0 To UBound(viewArray)
				conn.execute ("update list_book set Lock_book="&Lock_book&" where id="&viewArray(i))
			Next
			call connclose() 
			Call ShowAdminSuccessMsg(Success &"<li>共 <b>"&UBound(viewArray)+1&"</b> 部作品审核操作成功！</li><br>",responseurl)
		end if
	else
%><div id="topmomo">长篇作品管理&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=vip">查看VIP</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=bookadd">添加作品</a> |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=all">查看所有</a>&nbsp; |&nbsp;
	<a href="admin_book.asp?info=booklist&cndb=lock">查看未审核</a></div><br>
<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&inf=<%=inf%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>批量审核作品</b></td>
	</tr>
	<tr height="22" align="center">
		<td width="30%" class="tcat"></td>
		<td width="70%" class="tcat"><b>操作</b></td>
	</tr>
		<tr align="center" height="22">
			<td class="alt2" valign="center">
			将所选作品设定为　==&gt;</td>
			<td class="alt1"><input name="Lock_book" type="radio" value="0" checked>通过审核 
			<input type="radio" name="Lock_book" value="1">不通过审核</td>
		</tr>
		<tr height="22">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
		</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center" height="22">
		<td width="6%" class="tcat">ID</td>
		<td width="4%" class="tcat">选择</td>
		<td width="25%" class="tcat"><b>作品名称</b></td>
		<td width="15%" class="tcat"><b>作者</b></td>
		<td width="10%" class="tcat"><b>审核状态</b></td>
		<td width="10%" class="tcat"><b>性质</b></td>
		<td width="10%" class="tcat"><b>点击</b></td>
		<td width="10%" class="tcat"><b>推荐</b></td>
		<td width="10%" class="tcat"><b>收藏</b></td>
	</tr>
<%
bookArray=Split(ID, ",")
set rs=server.CreateObject("ADODB.RecordSet")
For i=0 To UBound(bookArray)
	sql="select id,list_name,Lock_book,list_user,list_hit,list_jian,list_cang,IsVip from list_book where id="&bookArray(i)
	rs.open sql,conn,1,1%>
<tr align=center height=22>
<td class=alt2><%=rs("id")%></td>
<td class=alt1><input type=checkbox name=checked value='<%=rs("id")%>' class=form checked></td>
<td class=alt2 align=left>&nbsp; <a href=<%=SiteSystemPath%>look_book.asp?id=<%=rs("id")%> target=_blank><%=rs("list_name")%></a></td>
<td class=alt1><%=rs("list_user")%></td>
<td class=alt2>
<%if rs("Lock_book")=0 then
	response.write("已审核")
else
	response.write("未审核")
end if%></td>
<td class=alt1>