⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_itemsloadnovel.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
'-----------------------------------------------------------------------------------------
'网站登陆操作结束
'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'作品信息页获取开始
'-----------------------------------------------------------------------------------------

			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
	End If
End If
End If
rsb.close
Set Rsb=Nothing
end if
next
If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
End If 

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 align=center><td height=22 colspan=2 height=25 align=center>"
response.Write "指定范围内的作品已经更新采集完毕!您可以选择返回<a href='Admin_ItemsDownnovel.asp'><font color=#FF0000>继续更新</font></a></td></tr></table><br><Br>"&chr(13)
conn.close
set conn=nothing
connItem.close
set connItem=nothing
%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -