admin_itemsloadsbooks.asp

小说站源代码文件

	Elseif  ShowType=1 then
		sqlb="select id,vip_bookid,list_pic,list_lei,list_class,list_tai,list_id,list_Url,list_name,list_user,list_size,ItemId from list_book where list_Url='"&bl_id&"' and ItemId="&ItemId&""
	Else
		if IsNumeric(str)=true then
			sqlb="select id,vip_bookid,list_pic,list_lei,list_class,list_tai,list_id,list_Url,list_name,list_user,list_size,ItemId from list_book where list_id="&bl_id&" and ItemId="&ItemId&""
		Else
			sqlb="select id,vip_bookid,list_pic,list_lei,list_class,list_tai,list_id,list_Url,list_name,list_user,list_size,ItemId from list_book where list_Url='"&bl_id&"' and ItemId="&ItemId&""
		end if
	end if
	rsb.open sqlb,conn,1,1
	if rsb.eof then
		response.Write "源采集站的作品没有采集到本地→操作已跳过"
	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")
			zhangtai=rsb("list_tai")
			rsb.close
			Set Rsb=Nothing
			if zhangtai="1" then
				b_tai="转载中..."
			elseif zhangtai="2" then
				b_tai="连载中..."
			elseif zhangtai="3" then
				b_tai="出版中..."
			elseif zhangtai="4" then
				b_tai="已暂停..."
			elseif zhangtai="5" then
				b_tai="已停止..."
			elseif zhangtai="6" then
				b_tai="已完成..."
			else
				b_tai="连载中..."
			end if
	if zhangtai="6" then
		response.Write "作品 "&B_Name&" 为已完成作品→操作已跳过"
	Else
'-----------------------------------------------------------------------------------------
'作品信息读取结束
'输出作品信息页面采集信息
'-----------------------------------------------------------------------------------------
		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
						response.Write "<br><br>"&chr(13)

'-----------------------------------------------------------------------------------------
'章节内容页面获取结束
'-----------------------------------------------------------------------------------------
					End If		
					End If
'				End If
			end if
		end if
'-----------------------------------------------------------------------------------------
'作品目录页面获取结束
'-----------------------------------------------------------------------------------------
	End If
'-----------------------------------------------------------------------------------------
'作品内容页面获取结束
'-----------------------------------------------------------------------------------------
end if
next
End If
If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
End If
If loadtype=1 Then
	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_ItemsDownsbooks.asp?ItemID="&ItemID&"'><font color=#FF0000>继续采集</font></a></td></tr></table><br><Br>"&chr(13)
	response.End
elseIf loadtype=2 Then
    if ListPaingend="" Then
		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_ItemsDownsBooks.asp?act=getbook&makebookHTML="&makebookHTML&"&flushbook="&flushbook&"&lostbook="&lostbook&"&Fastbook="&Fastbook&"&ItemID="&ItemID&"&loadtype="&loadtype&"&listedUrl="&listedUrl&"&ListPaing="&ListPaing&"&ListPaings="&ListPaings&"'><font color=#FF0000>点此</font></a>　进行下一页采集</td></tr></table><br><br>"&chr(13)
		response.Write "<meta http-equiv='refresh' content='5;URL=Admin_ItemsDownsBooks.asp?act=getbook&makebookHTML="&makebookHTML&"&flushbook="&flushbook&"&lostbook="&lostbook&"&Fastbook="&Fastbook&"&ItemID="&ItemID&"&loadtype="&loadtype&"&listedUrl="&listedUrl&"&ListPaing="&ListPaing&"&ListPaings="&ListPaings&"'>"
	elseif ListPaingend="end" Then
		if makeJS=1 then
			makeshowhots()
			makeshowhits()
		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_ItemsDownsbooks.asp?ItemID="&ItemID&"'><font color=#FF0000>继续采集</font></a></td></tr></table><br><Br>"&chr(13)
		response.End
	end if
end if
conn.close
set conn=nothing
connItem.close
set connItem=nothing
%>