admin_booklist.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

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 top 1 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, ",")
			Num = UBound(viewArray)
			For i=0 To Num
				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>作品批量移动操作成功！</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>
<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>
	<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
		<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 * from list_type"
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 * 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"><input type="hidden" name="checked" value="<%=id%>">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
		</tr>
	</form>
</table>
<%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
		makebookHTML = Request("makebookHTML")
		If makebookHTML="" or makebookHTML=null Then
			makebookHTML=0
		end if
		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;}
	}
function checkstatuss(frm)
	{
		if (frm.makebookHTML.checked == true)
        	if (!confirm("自动生成HTML页面，在采集的同时生成HTML静态页面\n\n请慎重考虑此操作将占用更多的系统资源。\n\n"))
        	{frm.makebookHTML.checked=false;}
	}
</script>
<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>
	<form method="post" name="forml" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
		<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"><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" align="right">自动生成HTML页面：</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="makebookHTML" onclick="checkstatuss(this.form)" value="1" class="form"><br>
			选择本功能将在采集的同时生成HTML静态页面，但会占用更多的系统资源</td>
		</tr>
		<tr>
			<td height="30" align="center" colspan="2" class=alt3><input type="hidden" name="checked" value="<%=id%>">
			<input type="submit" value="开始采集" name="B1" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
			<input type="reset" value="重置设定" name="B2" class="button"> </td>
		</tr>
	</form>
</table>
<%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, ",")
			Num = UBound(viewArray)
			For i=0 To Num
				conn.execute ("update [list_book] set Lock_book="&Lock_book&" where id="&viewArray(i))
			Next
			call connclose() 
			Call ShowAdminSuccessMsg(Success &"<li>作品批量审核操作成功！</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>
<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>
	<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
		<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"><input type="hidden" name="checked" value="<%=id%>">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
		</tr>
	</form>
</table>

<%end if
end if
end sub
sub listhtml()%>
<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>
<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">
			<td class="alt3" colspan="2" align="middle" valign="middle">本功能暂缺</td>
		</tr>
</table>

<%end sub
sub listvip()
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
		IsVip=request("IsVip")
		if IsVip="" 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, ",")
			Num = UBound(viewArray)
			For i=0 To Num
				conn.execute ("update [list_book] set IsVip="&IsVip&" where id="&viewArray(i))
			Next
			call connclose() 
			Call ShowAdminSuccessMsg(Success &"<li>作品批量VIP操作成功！</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>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>批量通过VIP作品</b></td>
	</tr>
	<tr height="22" align="center">
		<td width="30%" class="tcat"></td>
		<td width="70%" class="tcat"><b>操作</b></td>
	</tr>
	<form method="post" name="formm" action="admin_booklist.asp?info=<%=info%>&action=save&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>">
		<tr align="center" height="22">
			<td class="alt2" valign="center">
			将所选作品设定为　==&gt;</td>
			<td class="alt1"><input type="radio" name="IsVip" value="1">VIP作品&nbsp;&nbsp; 
			<input name="IsVip" type="radio" value="0">普通作品</td>
		</tr>
		<tr height="22"><input type="hidden" name="checked" value="<%=id%>">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="执行" name="Submit" style="width: 45; height: 20"></td>
		</tr>
	</form>
</table>
<%end if
end if
end sub
%>
<br>
<div align="center">
	<div id="bback">
		<a href="<%=responseurl%>">...::: 点 此 返 回 :::...</a></div>
</div>
</body>
</html>