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

📄 admin_itemsdownsnovel.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
字号:
🔍 
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<%
act = Request("act")

if act = "getbook" 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
flushbook = Request("flushbook")
If flushbook="" or flushbook=null Then
	flushbook=0
end if
lostbook = Request("lostbook")
If lostbook="" or lostbook=null Then
	lostbook=0
end if

ItemID = Request("ItemID")
If ItemID="" Then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If

If FoundErr=True Then
	call WriteErrMsg(ErrMsg)
Else
	startid = request("startid")
	endid = request("endid")
	If startid="" or endid="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请填写完整信息</li>"
	else
		if endid-startid<0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>未指定有效的作品编号!</li>"
		else
			for i = startid  to endid
				if listedID<>"" then
					listedID=listedID&"|"&i
				else
					listedID=i
				end if
			Next
			idTotal=endid-startid+1
		end if
	end if
	If FoundErr=True Then
		call WriteErrMsg(ErrMsg)
	Else
		response.write "<SCRIPT language=JavaScript>if(!confirm('"
		response.write "\n你选择的是按照ID范围采集　　　 \n"
		response.write "\n根据填写范围，接下来将要采集"&idTotal&"部作品　　　 \n"
		if idTotal>99 and idTotal<500 then
			response.write "\n你填写的范围大，采集"&idTotal&"部作品需要的时间比较长　　　 \n"
			response.write "\n且容易造成采集系统停止响应，你确定继续吗？　　　 \n"
		elseif idTotal>500 and idTotal<1000 then
			response.write "\n你填写的范围稍大，采集"&idTotal&"部作品需要的时间很长　　　 \n"
			response.write "\n且很易造成采集系统停止响应，建议返回重新设置，你确定继续吗？　　　 \n"
		elseif idTotal>1000 and idTotal<10000 then
			response.write "\n你填写的范围很大，采集"&idTotal&"部作品需要的时间非常长　　　 \n"
			response.write "\n且极易造成采集系统停止响应，建议返回重新设置，你确定继续吗？　　　 \n"
		elseif idTotal>10000 then
			response.write "\n你填写的范围过大，采集"&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_Itemsloadsnovel.asp?listedID="&listedID&"&makebookHTML="&makebookHTML&"&lostbook="&lostbook&"&Fastbook="&Fastbook&"&flushbook="&flushbook&"&ItemID="&ItemID&"'>"
		response.End
	end if
End If

else
%>
<html>

<title>终点小说连载系统_定制批量采集系统</title>
<link href="css.css" rel="stylesheet" type="text/css">
<body>

<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 checkstatuss(frm)
	{
		if (frm.Fastbook.checked == true)
        	if (!confirm("快速批量采集作品，不采集章节内容直接调用采集站内容，请慎重考虑。\n\n"))
        	{frm.Fastbook.checked=false;}
	}
function checkstatuse(frm)
	{
		if (frm.makebookHTML.checked == true)
        	if (!confirm("自动生成HTML页面，在采集的同时生成HTML静态页面\n\n请慎重考虑此操作将占用更多的系统资源。\n\n"))
        	{frm.makebookHTML.checked=false;}
	}
</script>
<div id="topmomo">
	长篇采集系统项目管理</div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center">
		<td height="30"><a href=Admin_ItemManage.asp>管理首页</a> | <a href="Admin_ItemAddNew.asp">添加新项目</a> | <a href="Admin_ItemManages.asp">批量更新作品</a></td>
  </tr>
</table>
<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">全自动批量更新作品(按照ID范围<u><font color="#FFE1FF" style="font-size: 11pt" face="楷体_GB2312">不可停止</font></u>版)</td>
	</tr>
	<tr>
		<td height="26" align="center" valign="middle" class="tcat" colspan="2">
		此操作将自动更新指定范围内的作品如果作品不存在则自动跳过,
		此操作大量占用系统资源每次填写范围请不要过大</td>
	</tr>
	<form method="post" action="">
		<tr>
			<td width="30%" height="26" align=right class=alt2>请选择服务器：</td>
			<td width="70%" class=alt1>
			<select name="ItemID" class="form" onchange="window.open('Admin_ItemsDownsnovel.asp?ItemID='+this.options[this.selectedIndex].value,'_self')">
<%Set Rs=server.createobject("adodb.recordset")         
Sql="select ItemID,WebUrl,WebName from [Item] where Islisted<>2 order by ItemID"         
Rs.open Sql,ConnItem,1,1

if Rs.Eof then%>
			<option value="0">暂无可用站点以供采集</option>

<%else
Do While Not Rs.Eof%>
			<option value="<%=rs("ItemID")%>"<%if Request.QueryString("ItemID")=cstr(rs("ItemID")) then response.write(" selected") end if%>><%=rs("WebName")%>　<%=rs("WebUrl")%></option>
<%rs.MoveNext
Loop
end if
rs.close
set rs=nothing
%></select><br>
			</td>
		</tr>
<%Set Rs=server.createobject("adodb.recordset")         
if Request.QueryString("ItemID")<>"" then
	Sql="select Islisted,Islisted1,listedUrl,ListPaingType from [Item] where Islisted<>2 and ItemID="&request.querystring("ItemID")         
Else
	Sql="select Islisted,Islisted1,listedUrl,ListPaingType from [Item] where Islisted<>2 order by ItemID"
End If
Rs.open Sql,ConnItem,1,1

if not(Rs.Eof) then
	if rs("Islisted")=0 then%>
		<tr>
			<td width="30%" height="26" align=right class=alt2>采集方式：</td>
			<td width="70%" class=alt1>按照ID范围<br>
			<a href="admin_ItemsDownsbook.asp?ItemID=<%=Request.QueryString("ItemID")%>">点此进入按照ID范围更新<font color="#FF0000" style="font-size: 11pt" face="楷体_GB2312">可停止</font>版进行更新采集</a> 
			</td>
		</tr>
		<tr>
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="30%" height="26" align=right class=alt2>目标站作品起始编号：</td>
					<td width="70%" class=alt1>
					<input type="text" name="startid" size="17" class="form"><br>
					</td>
				</tr>
				<tr>
					<td width="30%" height="26" align=right class=alt2>目标站作品结束编号：</td>
					<td width="70%" class=alt1>
					<input type="text" name="endid" size="17" class="form"><br>
					</td>
				</tr>
			</table>
			</td>
		</tr>
	<%elseif rs("Islisted")=1 then%>
		<tr>
			<td width="30%" height="26" align=right class=alt2>采集方式：</td>
			<td width="70%" class=alt1>按照ID范围<br>
			<a href="admin_ItemsDownsbook.asp?ItemID=<%=Request.QueryString("ItemID")%>">点此进入按照ID范围更新<font color="#FF0000" style="font-size: 11pt" face="楷体_GB2312">可停止</font>版进行更新采集</a> 
			</td>
		</tr>
		<tr id="loadtype1" style="display:">
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="30%" height="26" align=right class=alt2>目标站作品起始编号：</td>
					<td width="70%" class=alt1>
					<input type="text" id="startid" size="17" class="form"><br>
					</td>
				</tr>
				<tr>
					<td width="30%" height="26" align=right class=alt2>目标站作品结束编号：</td>
					<td width="70%" class=alt1>
					<input type="text" id="endid" size="17" class="form"><br>
					</td>
				</tr>
			</table>
			</td>
		</tr>
	<%elseif rs("Islisted")=2 then%>
		<tr>
			<td width="30%" height="26" align=right class=alt2>采集方式：</td>
			<td width="70%" class=alt1>按照Url列表(从页面获取)</td>
		</tr>
		<tr id="loadtype3">
			<td height="26" align="center" colspan="2" class=alt1>
			<font color="#FF0000">当前采集方式不可用</font></td>
		</tr>
<%End If
End If
rs.close
set rs=nothing
%>
		<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% class=alt2 height="26" align="right">快速批量采集作品：</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="Fastbook" onclick="checkstatus(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="act" value="getbook" id="act" size="20">
			<input type="submit" value="开始采集" name="B1" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
			<input type="reset" value="重置设定" name="B2" class="button"> </td>
		</tr>
	</form>
</table>

</body>

</html>
<%end if%>

⌨️ 快捷键说明

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