📄 admin_pagesavetotxt.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")
if IsSqlDataBase = 2 then
rs.open "select id,view_id,view_ok,view_ok2,view_SaveToTXT,view_get from list_view where view_id>="&getstartid&" and view_id<="&getendid&" and view_SaveToTXT=0 ORDER BY id",conn,1,3
else
rs.open "select id,view_id,view_ok,view_ok2,view_SaveToTXT,view_get from [list_view] where view_id>="&getstartid&" and view_id<="&getendid&" and view_SaveToTXT=0 ORDER BY id",conn,1,3
end if
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('错误! \n\n 指定范围内没有作品存在\n\n或指定范围内的作品章节内容已经采用TXT格式存储!');history.back(-1);</script>"
response.end
else
do while not rs.eof
if rs("view_get")<>0 and rs("view_ok2")<>"" then
BookViewPath="HTML/"&rs("view_id")&"/"
If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&SiteSystemPath & BookViewPath&"<br>"
else
file=server.mappath( SiteSystemPath & BookViewPath&rs("id")&".TXT" )
view_view_ok=""
view_view_ok="document.write('"
if rs("view_ok2")<>"" then
view_view_ok=view_view_ok&""&htmlencode(rs("view_ok2"))&""
else
view_view_ok=view_view_ok&"内容丢失,请联系管理员!"
end if
view_view_ok=view_view_ok&"');"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline view_view_ok
fout.close
set fso=nothing
rs("view_ok")="/"&BookViewPath&rs("id")&".TXT"
rs("view_ok2")=" "
rs("view_SaveToTXT")=1
rs.update
response.write "<br> ID为<font color=#FF0000> "&rs("id")&" </font>转存到TXT成功"
end if
else
response.write "<br> ID为<font color=#FF0000> "&rs("id")&" </font>的作品章节内容尚未采集完成或为空<font color=#FF0000>无法生成TXT</font>"
end if
rs.movenext
loop
end if
rs.close
set rs=Nothing
response.write "<p align='center'>作品入库章节内容转存到TXT操作全部完成!!【<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">作品入库章节内容转存到TXT<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：</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：</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 + -