📄 admin_itemloadbooks.asp
字号:
end if
B_Tai=GetBody(ListlookCode,B_TsString,B_ToString,B_TsType,B_ToType)
If B_TaiType1=1 Then
if B_TsType1=1 then
B_TsType1=true
elseif B_TsType1=0 then
B_TsType1=False
end if
if B_ToType1=1 then
B_ToType1=true
elseif B_ToType1=0 then
B_ToType1=False
end if
B_Tai=GetBody(B_Tai,B_TsString1,B_ToString1,B_TsType1,B_ToType1)
end if
if Instr(B_Tai,"转载")> 0 then
book_stateID = 1
elseif Instr(B_Tai,"连载")> 0 then
book_stateID = 2
elseif Instr(B_Tai,"出版")> 0 then
book_stateID = 3
elseif Instr(B_Tai,"暂")> 0 then
book_stateID = 4
elseif Instr(B_Tai,"止")> 0 then
book_stateID = 5
elseif Instr(B_Tai,"封")> 0 then
book_stateID = 5
elseif Instr(B_Tai,"完成")> 0 then
book_stateID = 6
elseif Instr(B_Tai,"完")> 0 then
book_stateID = 6
else
B_Tai="连载中"
book_stateID = 2
end if
ElseIf B_TaiType=2 Then
B_Tai="指定状态"
book_stateID=B_TaiStr
End If
'-----------------------------------------------------------------------------------------
'作品信息内容入库开始
'-----------------------------------------------------------------------------------------
set rsIt=server.createobject("adodb.recordset")
sqlIt="select ItemID,loadendId from [loadend] where ItemID="&ItemID
rsIt.open sqlIt,connItem,1,3
if rsIt.eof and rsIt.bof then
rsIt.addnew
rsIt("loadendId")=0
rsIt("ItemID")=ItemID
rsIt.update
End If
rsIt.close
Set RsIt=Nothing
set rsb=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlb="select id,list_news,list_hit,list_jian,list_cang,list_sftai,list_qianyue,list_gxdate,list_date,Isvip,Isgovip,IsgoVipAnswer,IsGood,Islist_good,Isweb_good,Lock_book,Lock_lun,list_userid,list_Adminid,list_abc,listvv_good,vip_bookid,yearhitstime,monthhitstime,weekdayhitstime,dayhitstime,list_yhit,list_mhit,list_zhit,list_dhit,yearjiantime,monthjiantime,weekdayjiantime,dayjiantime,list_yjian,list_mjian,list_zjian,list_djian,isuserread,list_class,list_pic,list_lei,list_tai,laiyuan,list_id,list_Url,list_name,list_key,list_user,list_all,list_size,ItemId from list_book where list_name='"&B_Name&"' limit 1"
else
sqlb="select top 1 id,list_news,list_hit,list_jian,list_cang,list_sftai,list_qianyue,list_gxdate,list_date,Isvip,Isgovip,IsgoVipAnswer,IsGood,Islist_good,Isweb_good,Lock_book,Lock_lun,list_userid,list_Adminid,list_abc,listvv_good,vip_bookid,yearhitstime,monthhitstime,weekdayhitstime,dayhitstime,list_yhit,list_mhit,list_zhit,list_dhit,yearjiantime,monthjiantime,weekdayjiantime,dayjiantime,list_yjian,list_mjian,list_zjian,list_djian,isuserread,list_class,list_pic,list_lei,list_tai,laiyuan,list_id,list_Url,list_name,list_key,list_user,list_all,list_size,ItemId from [list_book] where list_name='"&B_Name&"'"
end if
rsb.open sqlb,conn,1,3
if not(rsb.eof) then
response.Write "<br><li><font color='red'>作品《 "&b_name&" 》已经存在....跳过</font> ↓</li><br>"
else
rsb.addnew
rsb("list_news")="尚未添加．．．"
rsb("list_hit")=0
rsb("list_jian")=0
rsb("list_cang")=0
rsb("list_sftai")=0
rsb("list_qianyue")="尚未获取授权"
rsb("list_gxdate")=now()
rsb("list_date")=now()
rsb("Isvip")=0
rsb("Isgovip")=0
rsb("IsgoVipAnswer")=""
rsb("IsGood")=0
rsb("Islist_good")=0
rsb("Isweb_good") =0
rsb("Lock_book")=0
rsb("Lock_lun")=0
rsb("list_userid")=0
rsb("list_Adminid")=0
rsb("list_abc")= 0
rsb("listvv_good")=0
rsb("vip_bookid")=0
rsb("yearhitstime")=now()
rsb("monthhitstime")=now()
rsb("weekdayhitstime")=now()
rsb("dayhitstime")=now()
rsb("list_yhit")=0
rsb("list_mhit")=0
rsb("list_zhit")=0
rsb("list_dhit")=0
rsb("yearjiantime")=now()
rsb("monthjiantime")=now()
rsb("weekdayjiantime")=now()
rsb("dayjiantime")=now()
rsb("list_yjian")=0
rsb("list_mjian")=0
rsb("list_zjian")=0
rsb("list_djian")=0
rsb("isuserread")=0
rsb("list_class")=pclassid
rsb("list_pic")=B_Pic
rsb("list_lei")=classid
rsb("list_tai")=book_stateID
rsb("laiyuan")=WebName
rsb("list_name")=B_Name
rsb("list_key")=B_Key
rsb("list_user")=B_Author
rsb("list_all")=B_Info
rsb("list_size")=0
rsb("ItemId")=ItemId
if loadtype=1 or loadtype=2 Then
rsb("list_id")=bl_id
elseif loadtype=3 Then
rsb("list_Url")=bl_id
end if
rsb.update
rsb.close
rsb.open sqlb,conn,1,1
book_id=rsb("id")
b_pic=rsb("list_pic")
B_Size=rsb("list_size")
rsb.close
Set Rsb=Nothing
if Instr(b_pic,"BookFace/")>0 then
else
if B_Pic<>"images/0.jpg" and Instr(b_pic,"http://")>0 then
If IsSaveFace=1 then
fileExt=split(b_pic,".")
imgsExt=fileExt(ubound(fileExt)) '获取图片后缀
strFileName = book_id & "."&imgsExt
response.Write "开始保存封面图片本地地址:"&SiteSystemPath&"BookFace/"&strFileName
If SaveRemoteFile(SiteSystemPath &"BookFace/"&strFileName,B_Pic,B_Pic)=True Then
If not CheckFileType(Server.mappath(SiteSystemPath &"BookFace/"& strFileName)) then
file1=SiteSystemPath &"BookFace/"& strFileName
FSOFiledel(file1)
response.Write "<font color=red>失败</font> 目标图片类型与标称后缀不符。"
else
set rsfile=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types,fileurl_fileID from filetest order by id desc limit 1"
else
strSQL ="select top 1 id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types,fileurl_fileID from [filetest] order by id desc"
end if
rsfile.open strSQL,conn,1,3
rsfile.addnew
rsfile("fileurl_name")=strFileName
rsfile("fileurl_info")=B_Pic
rsfile("fileurl_user")="管理员："&request.cookies("CnendWeb")("admininfo_loginname")
rsfile("fileurl_size")=Getfilesize(SiteSystemPath &"BookFace/"& strFileName)
rsfile("fileurl_path")=SiteSystemPath &"BookFace/"
rsfile("fileurl_class")=3
rsfile("fileurl_fileID")=book_id
rsfile("fileurl_Types")=imgsExt
rsfile.update
rsfile.close
set rsfile=nothing
response.Write "<font color=blue>成功</font>"
B_Pic=SiteSystemPath &"BookFace/"& strFileName
conn.execute ("update list_book set list_pic='"&B_Pic&"' where id="&book_id)
End If
Else
response.Write "<font color=red>失败</font> 文无法写入，请检查<font color=red>"& SiteSystemPath &"BookFace/</font>目录权限。"
End If
End If
End If
End If
'-----------------------------------------------------------------------------------------
'作品信息内容入库结束
'输出作品信息页面采集信息
'-----------------------------------------------------------------------------------------
response.Write "<table>"
response.Write "<tr><td width='50%'>本地作品ID：<a href="&SiteSystemPath&"look_book.asp?id="&book_id&" target=_blank>"&book_id&"</a><br>"
response.Write ""&WebName&"站作品ID：<a href="&ListUrl&" target=_blank>"&bl_id&"</a></td>"
response.Write "<td width='50%'>作品名称："&B_Name&"</td></tr>"
response.Write "<tr><td width='50%'>作品作者："&B_Author&"</td>"
response.Write "<td width='50%'>作品类别："&B_Lei&"</td></tr>"
response.Write "<tr><td width='50%'>作品进程："&B_Tai&"</td>"
response.Write "<td width='50%' colspan='2'>作品封面："&B_Pic&"</td></tr>"
response.Write "</table>"&chr(13)
'-----------------------------------------------------------------------------------------
'输出作品信息页面采集信息结束
'作品目录页面获取开始
'-----------------------------------------------------------------------------------------
ListlookCode=""
ListUrl=ListsUrl
if FolderType=2 then
ListCode=ListinfoCode
ListinfoCode=""
else
ListCode=GetHttpPage(ListUrl,EquivType)
ListinfoCode=""
end if
If ListCode="$False$" Then
response.Write "<br><li>在获取：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a>网页源码时发生错误。</li><br>"
Else
ListCode=GetBody(ListCode,LsString,LoString,True,True)
If ListCode="$False$" Then
response.Write "<br><li><font color='red'>在截取目录页面内容时发生错误：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a></font></li><br>"
Else
If readType=0 then
'-----------------------------------------------------------------------------------------
'目录页面截取到的是章节ID开始
'-----------------------------------------------------------------------------------------
%>
<!--#include file="Admin_Load_ViewId.asp" -->
<%
'-----------------------------------------------------------------------------------------
'目录页面截取到的是章节ID结束
'-----------------------------------------------------------------------------------------
Elseif readType=1 then
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷ID开始
'-----------------------------------------------------------------------------------------
%>
<!--#include file="Admin_Load_CookId.asp" -->
<%
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷ID结束
'-----------------------------------------------------------------------------------------
Elseif readType=2 then
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷区块开始
'-----------------------------------------------------------------------------------------
%>
<!--#include file="Admin_Load_CookCode.asp" -->
<%
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷区块结束
'-----------------------------------------------------------------------------------------
End If
if Instr(makebookHTML,"1")>0 then
response.write "<br><Br><div id=topmomos>您选择了自动生成静态页面,下面开始执行...</div><br><Br>"
arrmake=split(makebookHTML,",")
if arrmake(0)=1 then
response.Write "生成作品资料页...<br>"
MakelookHtml(book_id)
response.Write "<br>完成<br><br>"
end if
if arrmake(1)=1 then
response.Write "生成作品目录页...<br>"
MakeindexHtml(book_id)
response.Write "<br>完成<br><br>"
end if
if arrmake(2)=1 then
response.Write "生成作品章节页...<br>"
MakepageHtml(book_id)
response.Write "<br>完成<br><br>"
end if
if arrmake(3)=1 then
response.Write "生成作品分卷页...<br>"
MakezhangHtml(book_id)
response.Write "<br>完成<br><br>"
end if
if arrmake(4)=1 then
response.Write "生成作品全文页...<br>"
MakeallHtml(book_id)
response.Write "<br>完成<br><br>"
end if
response.write "<div id=topmomos>完成所选静态页面生成!</div>"
end if
response.Write "<br><br>"&chr(13)
'-----------------------------------------------------------------------------------------
'章节内容页面获取结束
'-----------------------------------------------------------------------------------------
End If
End If
End If
end if
end if
'-----------------------------------------------------------------------------------------
'作品目录页面获取结束
'-----------------------------------------------------------------------------------------
End If
'-----------------------------------------------------------------------------------------
'作品内容页面获取结束
'-----------------------------------------------------------------------------------------
next
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
End If
If loadtype=1 Then
response.write "<div id=topmomos>指定范围内的作品已经采集完毕!您可以选择返回<a href='Admin_ItemDownBooks.asp?ItemID="&ItemID&"'><font color=#FF0000>继续采集</font></a></div><br><Br>"&chr(13)
response.End
elseIf loadtype=2 or loadtype=3 Then
if ListPaingend="" Then
response.write "<div id=topmomos>本列表作品采集完毕,正在准备采下一页列表,请稍候...如果长时间没有反应请 "
response.Write "<a href='Admin_ItemDownBooks.asp?act =getbook&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"&ItemID="&ItemID&"&loadtype="&loadtype&"&listedUrl="&ListPaingNext&"&ListPaing="&ListPaing&"&ListPaings="&ListPaings&"'><font color=#FF0000>点此</font></a> 进行下一页采集</div><br><br>"&chr(13)
response.Write "<meta http-equiv='refresh' content='5;URL=Admin_ItemDownBooks.asp?act =getbook&makebookHTML="&makebookHTML&"&Fastbook="&Fastbook&"&ItemID="&ItemID&"&loadtype="&loadtype&"&listedUrl="&ListPaingNext&"&ListPaing="&ListPaing&"&ListPaings="&ListPaings&"'>"
elseif ListPaingend="end" Then
if makeJS=1 then
makeshowhots()
makeshowhits()
end if
response.write "<div id=topmomos>指定范围内的作品已经采集完毕!您可以选择返回<a href='Admin_ItemDownBooks.asp?ItemID="&ItemID&"'><font color=#FF0000>继续采集</font></a></div><br><Br>"&chr(13)
response.End
end if
end if
conn.close
set conn=nothing
connItem.close
set connItem=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -