admin_itemsloadsbook.asp

小说站源代码文件

'-----------------------------------------------------------------------------------------
'作品信息读取开始
'-----------------------------------------------------------------------------------------
	set rsb=server.createobject("adodb.recordset")
	sqlb="select id,vip_bookid,list_pic,list_lei,list_class,list_tai,list_id,list_name,list_user,list_size,ItemId from list_book where list_id="&bl_id&" and ItemId="&ItemId&""
	rsb.open sqlb,conn,1,1
	if rsb.eof then
		response.Write "目标站作品ID 为 "&bl_id&" 的作品没有采集到本地→操作已跳过"
	else
		book_id=rsb("id")
		b_pic=rsb("list_pic")
		last_viewid=rsb("vip_bookid")
		b_Name=rsb("list_Name")
		b_lei=rsb("list_lei")
		classid=rsb("list_class")
		b_Author=rsb("list_user")
		b_size=rsb("list_size")
		ItemId=rsb("ItemId")
		if rsb("list_tai")="1" then
			b_tai="转载中..."
		elseif rsb("list_tai")="2" then
			b_tai="连载中..."
		elseif rsb("list_tai")="3" then
			b_tai="出版中..."
		elseif rsb("list_tai")="4" then
			b_tai="已暂停..."
		elseif rsb("list_tai")="5" then
			b_tai="已停止..."
		elseif rsb("list_tai")="6" then
			b_tai="已完成..."
		else
			b_tai="连载中..."
		end if
		rsb.close
		Set Rsb=Nothing
	
'-----------------------------------------------------------------------------------------
'作品信息读取结束
'输出作品信息页面采集信息
'-----------------------------------------------------------------------------------------
		ListUrl=Replace(ShowStr,"{$Bl_id$}",bl_id)

		response.Write "<table>"
		response.Write "<tr><td width='50%'>本地作品ID：<a href="&SiteSystemPath&"look_book.asp?id="&book_id&" target=_blank>"&book_id&"</a></td>"
		response.Write "<td width='50%'>"&WebName&"站作品ID：<a href="&ListUrl&" target=_blank>"&bl_id&"</a></td>"
		response.Write "<tr><td width='50%'>作品名称："&B_Name&"</td>"
		response.Write "<td width='50%'>作品作者："&B_Author&"</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)


'-----------------------------------------------------------------------------------------
'输出作品信息页面采集信息结束
'-----------------------------------------------------------------------------------------
'读取作品信息页获取开始
'-----------------------------------------------------------------------------------------
		ListinfoCode=GetHttpPage(ListUrl,EquivType)
		If ListinfoCode="$False$" Then
			response.Write  "<br><li>在获取:<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a>网页源码时发生错误</li><br>"
		Else
			ListlookCode=GetBody(ListinfoCode,SBsString,SBoString,True,True)
			If ListlookCode="$False$" Then
				response.Write		"<br><li>在截取:<a href=" & ListUrl & " target=_blank><font color='red'>" & ListUrl & "</font></a>作品信息页时发生错误</li><br>"
			Else
'----------------------------------------------------------------------------------------
				If FolderType=0 Then
					If B_readsType="" or B_readoType="" or B_readsString="" or B_readoString="" or FolderType1="" Then
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>" 
					Else
						if B_readsType=1 then
							B_readsType=true
						elseif B_readsType=0 then
							B_readsType=False
						end if
						if B_readoType=1 then
							B_readoType=true
						elseif B_readoType=0 then
							B_readoType=False
						end if
						ListsUrl=GetBody(ListlookCode,B_readsString,B_readoString,B_readsType,B_readoType)
						if FolderType1=1 then
						 	if B_readsType1=1 then
						 		B_readsType1=true
						 	elseif B_readsType1=0 then
						 		B_readsType1=False
						 	end if
						 	if B_readoType1=1 then
						 		B_readoType1=true
						 	elseif B_readoType1=0 then
						 		B_readoType1=False
						 	end if
							ListsUrl=GetBody(ListsUrl,B_readsString1,B_readoString1,B_readsType1,B_readoType1)
						End If
						ListsUrl=DefiniteUrl(ListsUrl,ListUrl)
					End If
				ElseIf FolderType=1 then
					ListsUrl=Replace(ListStr,"{$Bl_id$}",bl_id)
				ElseIf FolderType=2 Then
					ListsUrl=ListUrl
				Else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>" 
				End If
'----------------------------------------------------------------------------------------
'作品目录页面获取开始
'-----------------------------------------------------------------------------------------
				newcook=""
				newview=""
				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_Loade_ViewId.asp" -->
<%
'-----------------------------------------------------------------------------------------
'目录页面截取到的是章节ID结束
'-----------------------------------------------------------------------------------------
							Elseif readType=1 then
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷ID开始
'-----------------------------------------------------------------------------------------
%>
<!--#include file="Admin_Loade_CookId.asp" -->
<%
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷ID结束
'-----------------------------------------------------------------------------------------
							Elseif readType=2 then
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷区块开始
'-----------------------------------------------------------------------------------------
%>
<!--#include file="Admin_Loade_CookCode.asp" -->
<%
'-----------------------------------------------------------------------------------------
'目录页面截取到的是分卷区块结束
'-----------------------------------------------------------------------------------------
							End If
							if Instr(makebookHTML,"1")>0 then
								response.write "<br><Br><table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
								response.write "<tr><td height=25 align=center>您选择了自动生成静态页面,下面开始执行...</td></tr></table><br><Br>"
								arrmake=split(makebookHTML,",")
								if flushbook=1 then
									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 "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
									response.write "<tr><td height=25 align=center>	完成所选静态页面生成!</td></tr></table>"
								else
									if newcook<>"" or newview<>"" then
										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
											if newview<>"" then
												response.Write "生成作品章节页...<br>"
												arrnewview=split(newview,"||")
												MakeviewHtml(arrnewview(0))
												for Mnviewj=1 to ubound(arrnewview)
													if arrnewview(Mnviewj)<>"" then
														MakeviewpageHtml(arrnewview(Mnviewj))
													end if
												next
												arrnewview=""
												newview=""
												response.Write "<br>完成<br><br>"
											end if
										end if
										if arrmake(3)=1 then
											if newcook<>"" then
												response.Write "生成作品分卷页...<br>"
												arrnewcook=split(newcook,"||")
												for Mncookj=0 to ubound(arrnewcook)
													if arrnewcook(Mncookj)<>"" then
														MakecookHtml(arrnewcook(Mncookj))
													end if
												next
												arrnewcook=""
												newcook=""
												response.Write "<br>完成<br><br>"
											end if
										end if
										if arrmake(4)=1 then
											response.Write "生成作品全文页...<br>"
											MakeallHtml(book_id)
											response.Write "<br>完成<br><br>"
										end if
										response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
										response.write "<tr><td height=25 align=center>	完成所选静态页面生成!</td></tr></table>"
									else
										response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
										response.write "<tr><td height=25 align=center>	无更新 跳过静态页面生成!</td></tr></table>"
									end if
								end if
							end if

'-----------------------------------------------------------------------------------------
'章节内容页面获取结束
'-----------------------------------------------------------------------------------------
					End If		
					End If
'				End If
			end if
		end if
'-----------------------------------------------------------------------------------------
'作品目录页面获取结束
'-----------------------------------------------------------------------------------------
'	End If
'-----------------------------------------------------------------------------------------
'作品内容页面获取结束
'-----------------------------------------------------------------------------------------
end if
End If
If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
End If
response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
response.Write "<tr><td height=25 align=center>本作品采集完毕,正在准备采下一部,请稍候...如果长时间没有反应请　"
response.Write "<a href='Admin_ItemsloadsBook.asp?startid="&getstartid&"&endid="&getendid&"&makebookHTML="&makebookHTML&"&lostbook="&lostbook&"&Fastbook="&Fastbook&"&flushbook="&flushbook&"&ItemID="&ItemID&"&Lastloading="&Bl_id&"'><font color=#FF0000>点此</font></a>　进行下一部采集</td></tr></table><br><br>"&chr(13)
response.Write "<meta http-equiv='refresh' content='1;URL=Admin_ItemsloadsBook.asp?startid="&getstartid&"&endid="&getendid&"&makebookHTML="&makebookHTML&"&lostbook="&lostbook&"&Fastbook="&Fastbook&"&flushbook="&flushbook&"&ItemID="&ItemID&"&Lastloading="&Bl_id&"'>"
conn.close
set conn=nothing
connItem.close
set connItem=nothing
%>