⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_booklist.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
					rs.open sql,conn,1,1
					if not rs.eof then
						conn.execute ("update list_book set Islist_good=9 where id="&viewArray(i))
					end if
					rs.close
				elseif Ntype="uclasslian" then
					sql="select Islist_good from list_book where id="&viewArray(i)
					rs.open sql,conn,1,1
					if not rs.eof then
						conn.execute ("update list_book set Islist_good=9 where id="&viewArray(i))
					end if
					rs.close
				end if
				set rs=nothing
			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="form" 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" colspan="9" height="25"><b>批量推荐作品</b></td>
	</tr>
	<tr height="22" align="center">
		<td width="30%" class="tcat" colspan="3"></td>
		<td width="70%" class="tcat" colspan="6"><b>推荐类型</b></td>
	</tr>
	<tr height="25" align="center">
		<td width="30%" class="alt2" colspan="3">将所选作品设置为　==&gt;</td>
		<td width="70%" class="alt1" colspan="6"><div class="select"><div><select name="Ntype" class="form" size="8">
		<option value="feng">首页封面推荐</option>
		<option value="jing">首页精品推荐</option>
		<option value="qiang">首页强力推荐</option>
		<option value="lian">首页连载推荐</option>
		<option value="classfeng">分类页封面推荐</option>
		<option value="classjing">分类页精品推荐</option>
		<option value="classqiang">分类页强力推荐</option>
		<option value="classlian">分类页连载推荐</option>
		<option value="ufeng">取消首页封面推荐</option>
		<option value="ujing">取消首页精品推荐</option>
		<option value="uqiang">取消首页强力推荐</option>
		<option value="ulian">取消首页连载推荐</option>
		<option value="uclassfeng">取消分类页封面推荐</option>
		<option value="uclassjing">取消分类页精品推荐</option>
		<option value="uclassqiang">取消分类页强力推荐</option>
		<option value="uclasslian">取消分类页连载推荐</option>
		</select></div></div></td>
	</tr>
	<tr>
		<td height="20" align="center" colspan="9" class="alt3">
		<input class="button" type="submit" value="执行" name="info" 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>
<%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 listmove()
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
		newclass=request("newclass")
		CheckSqlnum(newclass)
		newclass=int(newclass)
		if newclass="" or newclass=0 then
			ErrCodes = ErrCodes & "<li>您需要选择目标分类，不能选择大类！</li><br>"
			FoundErr=True
		end if
		if FoundErr=True then
			Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
		else
			set rs2=server.createobject("adodb.recordset")
			sql2="select list_typeID from list_Class where list_classid="&newclass 
			rs2.open sql2,conn,1,1
			if rs2.eof then
				typeid=0
			else
				typeid=rs2("list_typeID")
			end if
			rs2.close
			set rs2=nothing
			viewArray=Split(ID, ",")
			For i=0 To UBound(viewArray)
				conn.execute ("update list_book set list_lei="&newclass&",list_class="&typeid&" where id="&viewArray(i))
				conn.execute ("update list_cook set classid="&newclass&" where list_bookid="&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"><div class="select"><div><select name="newclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select typeID,list_tpye from list_type order by typeid"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value=0>┼ "&rs("list_tpye")&"</option>"
	set rs2=server.createobject("adodb.recordset")
	sql2="select list_Classid,list_classname from list_Class where list_typeID="&rs("typeID")&" order by list_classid"
	rs2.open sql2,conn,1,1
	if rs2.eof then
		response.write "<option value=0>　└ 本类无二级分类</option>"
	else
		do while not rs2.eof
			response.write "<option value="&rs2("list_Classid")&">　└ "&rs2("list_classname")&"</option>"
		rs2.movenext
	loop
	end if
	rs2.close
	set rs2=nothing
			rs.movenext
			loop
		end if
		rs.close
set rs=nothing
%></select></div></div> </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>
<%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 listload()
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
		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>"
			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">
		全自动批量更新作品</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>
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -