📄 admin_bookloadview.asp
字号:
<!-- #include file="../conn.asp" -->
<%Response.buffer=False %>
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<link href="css.css" rel="stylesheet" type="text/css">
<%
act = Request("act")
if act = "makebook" then
getstartid=request("start")
getendid=request("end")
Server.ScriptTimeOut=12000000 '设定操作超时的时间
set rs=server.createobject("ADODB.recordset")
rs.open "select id,view_id,view_ok,view_SaveToTXT,view_get from [list_view] where view_id>="&getstartid&" and view_id<="&getendid&" and view_get=0 ORDER BY id",conn,1,3
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('错误! \n\n 指定范围内没有作品存在\n\n或指定范围内的作品章节内容已经采集成功!');history.back(-1);</script>"
response.end
else
do while not rs.eof
b_viewpath=rs("view_ok")
if b_viewpath<>""and Instr(b_viewpath,"http://")>0 then
BookViewPath="HTML/"&rs("view_id")&"/"
If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&BookViewPath&"<br>"
else
strFileName = ""& rs("id") & ".TXT"
response.Write "开始保存章节,本地地址:"&BookViewPath & strFileName
If SaveRemoteFile(SiteSystemPath & BookViewPath & strFileName,b_viewpath)=True Then
rs("view_ok")="/"&BookViewPath&strFileName
rs("view_get")=1
rs("view_SaveToTXT")=1
rs.update
response.Write "→<font color=blue>成功</font><br>"
Else
response.Write "→<font color=red>失败</font><br>"
End If
End If
End If
rs.movenext
loop
end if
rs.close
set rs=Nothing
response.write "<p align='center'>作品章节内容单独采集操作全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b><font color="#FFFFFF">作品章节内容单独采集<br>(请慎重操作,此操作大量占用系统资源每次填写范围请不要过大)</font></b></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="">
<tr height="26">
<td width="50%">
<p align="right">采集作品起始ID(本地ID)：</td>
<td width="50%"> <input class='form' type="Number" name="start" id="start" size="20"></td>
</tr>
<tr height="26">
<td width="50%">
<p align="right">采集作品结束ID(本地ID)：</td>
<td width="50%"> <input class='form' type="text" name="end" Id="end" size="20"></td>
</tr>
<tr>
<td height="30" align="center" colspan="2">
<input type="hidden" name="act" value="makebook" id="act" size="20">
<input class="button" type="submit" value="开始采集" name="B1"> <input class="button" type="reset" value="重置设定" name="B2">
</td>
</tr>
</form>
</table>
</body>
</html>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -