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

📄 admin_itemgxnovel.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
								arrBookList = Split(listedID,"|")
								idTotal=UBound(arrBookList)
							Else
								FoundErr=True
								ErrMsg=ErrMsg & "<br><li>在获取测试作品ID/Url时出错。</li>"
							End If
							If ListPaingType=1  Then
								if ListPaings<>"" then
									if ListPaings<>1 then
										if ListPaing<>"" then
											if ListPaings-ListPaing<=1 then
												ListPaingend="end"
											else
												if LPsType=1 then
													LPsType=true
												elseif LPsType=0 then
													LPsType=False
												end if
												if LPoType=1 then
													LPoType=true
												elseif LPoType=0 then
													LPoType=False
												end if
												ListPaingNext=GetPaing(ListCode,LPsString,LPoString,LPsType,LPoType)
												If ListPaingNext<>"$False$"  Then
													If LPUrlType=1  Then  
														ListPaingNext=replace(Replace(ListPaingStr,"{$ID$}",ListPaingNext),"&","|＆|")
													ElseIf LPUrlType=0  Then
														ListPaingNext=replace(DefiniteUrl(ListPaingNext,listedUrl),"&","|＆|")
													End  If
												Else
													FoundErr=True
													ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面下一页时出错。</li>"
												End  If
											end if
										else
											if LPsType=1 then
												LPsType=true
											elseif LPsType=0 then
												LPsType=False
											end if
											if LPoType=1 then
												LPoType=true
											elseif LPoType=0 then
												LPoType=False
											end if
											ListPaingNext=GetPaing(ListCode,LPsString,LPoString,LPsType,LPoType)
											If ListPaingNext<>"$False$"  Then
												If LPUrlType=1  Then  
													ListPaingNext=replace(Replace(ListPaingStr,"{$ID$}",ListPaingNext),"&","|＆|")
												ElseIf LPUrlType=0  Then
													ListPaingNext=replace(DefiniteUrl(ListPaingNext,listedUrl),"&","|＆|")
												End  If
											Else
												FoundErr=True
												ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面下一页时出错。</li>"
											End  If
										End  If
									Else
										ListPaings=1
										ListPaingend="end"
									End If
								Else
									ListPaings=1
									ListPaingend="end"
								End If
							Else
								ListPaings=1
								ListPaingend="end"
							End If
						Else
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>在截取测试作品列表页面时出错。</li>"
						End If
					Else
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面时出错。</li>"
					End If
				end if
			end if
		end if
		If FoundErr=True Then
			call WriteErrMsg(ErrMsg)
		Else
			response.write "<SCRIPT language=JavaScript>if(!confirm('"
			response.write "\n你选择的是按照页面获取作品列表采集　　　 \n"
			if ListPaingType=1 and ListPaings<>"" then
				response.write "\n你填写采集深度是采集 "&ListPaings&" 页"
				if ListPaing<>"" then
				response.write "当前采集第 "&ListPaing+1&" 页　　　 \n"
				else
				response.write "当前采集第 1 页　　　 \n"
				end if
			elseif ListPaingType=2 and ListPaing<>"" and ListPaings<>"" then
				response.write "\n你填写从第"&ListPaing&"页开始采集到 "&ListPaings&" 页"
				response.write "当前采集第 "&ListPaing&" 页　　　 \n"
			else
				response.write "\n单一列表页面仅从当前页获取作品列表　　　 \n"
			end if
			response.write "\n根据填写内容，接下来将要采集"&idTotal&"部作品　　　 \n"
			response.write "\n点击 [ 确定 ] 继续,点击 [ 取消 ] 返回　　　 \n"
			response.write "')){history.back(-1);}else{}</SCRIPT>"
			response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemGXBook.asp?listedID="&listedID&"&loadtype="&loadtype&"&ListPaingNext="&ListPaingNext&"&ListPaings="&ListPaings&"&ListPaing="&ListPaing&"&ListPaingend="&ListPaingend&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"&flushbook="&flushbook&"&ItemID="&ItemID&"'>"
			response.End
		end if
	end if
	End Sub
End If
else
%>
<html>

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

<script language="javascript">
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">全自动批量更新作品</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_ItemGXnovel.asp?ItemID='+this.options[this.selectedIndex].value,'_self')">
<%Set Rs=server.createobject("adodb.recordset")         
Sql="select ItemID,WebUrl,WebName from [Item]"         
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 ItemID="&request.querystring("ItemID")         
Else
	Sql="select Islisted,Islisted1,listedUrl,ListPaingType from [Item]"
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>
			<input type="radio" value="0" name="loadtype" checked onclick="loadtype1.style.display='';loadtype2.style.display='none';loadtype3.style.display='none'" class="form">按照ID范围&nbsp; 
			<input type="radio" value="1" name="loadtype" onclick="loadtype1.style.display='none';loadtype2.style.display='';loadtype3.style.display='none'" class="form">按照ID列表（手工输入）
			<%if rs("Islisted1")=1 then%>
			<input type="radio" value="2" name="loadtype" onclick="loadtype1.style.display='none';loadtype2.style.display='none';loadtype3.style.display=''" class="form">按照ID列表（从页面获取）
			<%end if%></td>
		</tr>
		<tr id="loadtype2" style="display:none" bgcolor="#D9D9D9">
			<td width="30%" height="26" align=right class=alt2 valign="top">请输入作品ID：<br>（多个以[Enter]回车键隔开）</td>
			<td width="70%" class=alt1><textarea name="listedID" cols="30" rows="15" class="form"></textarea></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" 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>
		<tr id="loadtype3" style="display:none">
			<td width="30%" height="26" align="right" class=alt2>请输入作品列表页面地址：<br>
			<%If Rs("ListPaingType")=1 then%>从本页向后采集：<br><%End If%>
			<%If Rs("ListPaingType")=2 then%>从起始页码第<br>向后采集到第<%End If%></td>
			<td width="70%" class=alt1><input type="text" name="listedUrl" size="50" class="form" value="<%=Rs("listedUrl")%>"><br>
			<%If Rs("ListPaingType")=1 then%><input type="text" name="ListPaings" size="5" class="form">页<br><%End If%>
			<%If Rs("ListPaingType")=2 then%><input type="text" name="ListPaing" size="5" class="form">页<br>
			<input type="text" name="ListPaings" size="5" class="form">页
			<input type="hidden" name="zidingyi" value="1"><%End If%></td>
		</tr>
	<%elseif rs("Islisted")=1 then%>
		<tr>
			<td width="30%" height="26" align=right class=alt2>采集方式：</td>
			<td width="70%" class=alt1>
			<input type="radio" value="0" name="loadtype" checked class="form">按照ID范围</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" name="start" 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" name="end" 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>
			<input type="radio" value="2" name="loadtype" checked class="form">按照Url列表(从页面获取)</td>
		</tr>
		<tr id="loadtype3">
			<%if rs("Islisted1")=1 then%>
			<td width="30%" height="26" align="right" class=alt2>请输入作品列表页面地址：<br>
			<%If Rs("ListPaingType")=1 then%>从本页向后采集：<br><%End If%>
			<%If Rs("ListPaingType")=2 then%>从起始页码第<br>向后采集到第<%End If%></td>
			<td width="70%" class=alt1><input type="text" name="listedUrl" size="50" class="form" value="<%=Rs("listedUrl")%>"><br>
			<%If Rs("ListPaingType")=1 then%><input type="text" name="ListPaings" size="5" class="form">页<br><%End If%>
			<%If Rs("ListPaingType")=2 then%><input type="text" name="ListPaing" size="5" class="form">页<br>
			<input type="text" name="ListPaings" size="5" class="form">页
			<input type="hidden" name="zidingyi" value="1"><%End If%>
			<%Else%><font color="#FF0000">当前采集方式不可用</font>
			<%End If%></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="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%>
12

⌨️ 快捷键说明

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