📄 admin_itemdownnovel.asp
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<link href="css.css" rel="stylesheet" type="text/css">
<%
act = Request("act")
if act = "getbook" 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
ItemID = Request("ItemID")
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
ItemID=Clng(ItemID)
End If
startid = request("startid")
endid = request("endid")
If startid="" or endid="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请填写完整信息</li>"
else
CheckSqlnum(makebookHTML)
CheckSqlnum(Fastbook)
CheckSqlnum(startid)
CheckSqlnum(endid)
CheckSqlnum(ItemID)
if endid-startid<0 then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>未指定有效的作品编号!</li>"
else
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_Itemloadnovel.asp?startid="&startid&"&endid="&endid&"&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;}
}
</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 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% class=alt2 height="26" align="right">当前采集站：</td>
<td width="70%" class=alt1>
<select name="ItemID" class="form"><%Set Rs=server.createobject("adodb.recordset")
Sql="select ItemID,WebUrl,WebName 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>
<a href="admin_ItemDownbook.asp?ItemID=<%=rs("ItemID")%>">
点此进入按照ID范围采集<font color="#FF0000" style="font-size: 11pt" face="楷体_GB2312">可停止</font>版进行采集</a>
<%rs.close
set rs=nothing%>
</td>
</tr>
<tr>
<td width=30% class=alt2 height="26" align="right">可选采集方式：</td>
<td width="70%" class=alt1>按照ID范围 <%set rsend=connItem.execute("select loadendId from loadend where ItemID="&request.querystring("ItemID")&"")
if rsend.eof then%> <font color="#FF0000">（从未保留采集结束点）</font> <%else%>
<font color="#FF0000">（上次采集保留到ID：<%=rsend("loadendId")%>）</font> <%end if%>
</td>
</tr>
<tr>
<td width=30% class=alt2 height="26" align="right">作品起始编号：</td>
<td width="70%" class=alt1>
<input type="text" name="startid" size="17" class="form"></td>
</tr>
<tr>
<td width=30% class=alt2 height="26" align="right">作品结束编号：</td>
<td width="70%" class=alt1>
<input type="text" name="endid" size="17" class="form"></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" valign="top" align="right">自动生成静态页面：</td>
<td width="70%" class=alt1>
<input type="checkbox" name="makelookhtml" value="1" class="form" checked>资料页
<input type="checkbox" name="makereadhtml" value="1" class="form" checked>目录页
<input type="checkbox" name="makeviewhtml" value="1" class="form" checked>章节页
<input type="checkbox" name="makecookhtml" value="1" class="form">分卷页
<input type="checkbox" name="makeallphtml" value="1" class="form">全文页<br>
选择本功能将在采集的同时生成HTML静态页面，但会占用更多的系统资源</td>
</tr>
<tr>
<td width="100%" 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">
<input type="reset" value="重置设定" name="B2" class="button"> </td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -