admin_itemdownbooks.asp

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

									Else
										FoundErr=True
										ErrMsg=ErrMsg & "<br><li>在获取测试作品ID/Url时出错。</li>"
									End If
									ListPaingNext=listedUrl
									if ListPaings<>1 then
										if ListPaings-ListPaing<=0 then
											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
				else
					ListCode=GetHttpPage(listedUrl,EquivType)
					If ListCode<>"$False$" Then
						ListCode=GetBody(ListCode,ListPaingsString,ListPaingoString,True,True)
						If ListCode<>"$False$" Then
							if listedsType=1 then
								listedsType=true
							elseif listedsType=0 then
								listedsType=False
							end if
							if ListedoType=1 then
								ListedoType=true
							elseif ListedoType=0 then
								ListedoType=False
							end if
							listedID=GetArray(ListCode,listedsString,listedoString,listedsType,ListedoType)
							If listedID<>"$False$" Then
								listedIDArray=Split(listedID,"$Array$")
								For Testi=0 To Ubound(listedIDArray)
									If listedType1=1 Then
										if listedsType1=1 then
											listedsType1=true
										elseif listedsType1=0 then
											listedsType1=False
										end if
										if ListedoType1=1 then
											ListedoType1=true
										elseif ListedoType1=0 then
											ListedoType1=False
										end if
										listedIDArray(Testi)=GetBody(listedIDArray(Testi),listedsString1,listedoString1,listedsType1,ListedoType1)
										If listedIDArray(Testi)="$False$" Then
											FoundErr=True
											ErrMsg=ErrMsg & "<br><li>在修正测试作品ID/Url时出错。</li>"
										End if
									End if
									if ShowType=0 then
										if IsNumeric(listedIDArray(Testi))=false then
											FoundErr=True
											ErrMsg=ErrMsg & "<br><li>截取到的作品ID不是标准数字格式,请检查.</li>"
										End If
									End If
								Next
								listedID=replace(listedID,"$Array$","|")
								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
	end if
End If
If FoundErr=True Then
	call WriteErrMsg(ErrMsg)
Else
	response.write "<SCRIPT language=JavaScript>if(!confirm('"
	if loadtype=1 then
		response.write "\n你选择的是手工输入ID列表采集　　　 \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
	elseif loadtype=2 or loadtype=3 then
		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
	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_ItemloadBooks.asp?listedID="&listedID&"&loadtype="&loadtype&"&ListPaingNext="&ListPaingNext&"&ListPaings="&ListPaings&"&ListPaing="&ListPaing&"&ListPaingend="&ListPaingend&"&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"&ItemID="&ItemID&"'>"
	response.End
end if
else
%>
<html>

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

<script language="javascript">
function checkstatus(frm)
	{
		if (frm.Fastbook.checked == true)
        	if (!confirm("快速批量采集作品，不采集章节内容直接调用采集站内容。\n\n请慎重考虑此操作将没有章节内容的入库。\n\n需要选择批量采集作品章节内容完整采集作品\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>
<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">
<%Set Rs=server.createobject("adodb.recordset")         
Sql="select ItemID,WebUrl,WebName,Islisted,Islisted1,listedUrl,ListPaingType from [Item] where ItemID="&request.querystring("ItemID")
Rs.open Sql,ConnItem,1,1
if Rs.Eof then%>
			<option value="0">暂无可用站点以供采集</option>

<%else%>
			<option value="<%=rs("ItemID")%>"><%=rs("WebName")%>　<%=rs("WebUrl")%></option>
<%end if%>
</select><br>
			</td>
		</tr>
		<tr>
			<td width="30%" height="26" align="right" class=alt2>采集方式：</td>
			<td width="70%" class=alt1>
			<%if rs("Islisted")=0 then%>
				<input type="radio" value="1" name="loadtype" checked onclick="loadtype2.style.display='';loadtype3.style.display='none'" class="form">按照ID列表(手工输入)
				<%if rs("Islisted1")=1 then%>
					<input type="radio" value="2" name="loadtype" onclick="loadtype2.style.display='none';loadtype3.style.display=''" class="form">按照ID列表(从页面获取)
				<%End If
			elseif rs("Islisted")=2 then%>
					<input type="radio" value="3" name="loadtype" checked onclick="loadtype2.style.display='none';loadtype3.style.display=''" class="form">按照URL列表(从页面获取)
			<%Else%><font color="#FF0000">当前采集方式不可用</font>
			<%End If%>
			</td>
		</tr>
		<%if rs("Islisted")<>2 then%>
		<tr id="loadtype2" style="display:">
			<td width="30%" height="26" align="right" valign="top" class=alt2>请输入作品ID：<br>（多个以[Enter]回车键隔开）</td>
			<td width="70%" class=alt1><textarea name="listedID" cols="30" rows="15" class="form"></textarea></td>
		</tr><%Else%><tr id="loadtype2" style="display:none"></tr>
		<%End If%>
		<tr id="loadtype3" style="display:<%if rs("Islisted")<>2 then response.write "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>
		<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 class=alt1 align="center" colspan="2"><a href="admin_Itemloadview.asp"><font color="#FF0000">批量采集作品章节内容</font></a>（完成快速批量采集作品的章节内容采集操作）</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>
<%rs.close
set rs=nothing
%><%end if%>
</body>

</html>