admin_itemsloadbook.asp

来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 1,416 行 · 第 1/5 页

						ListsUrl=ListUrl
					Else
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>" 
					End If
'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'输出作品信息页面采集信息结束
'作品目录页面获取开始
'-----------------------------------------------------------------------------------------

					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
								if TitleTypes=1 then
									if TsType=1 then
							     		TsType=true
							     	elseif TsType=0 then
							     		TsType=False
							     	end if
							    	if ToType=1 then
							     		ToType=true
							      	elseif ToType=0 then
							      		ToType=False
							      	end if
									TitleCode=GetArray(ListCode,TsString,ToString,TsType,ToType)
									if TitleCode<>"$False$" Then
										TitleTest=Split(TitleCode,"$Array$")
										For Testi=0 To Ubound(TitleTest)
											If TitleType1=1 Then
										      if TsType1=1 then
										    	TsType1=true
										      elseif TsType1=0 then
										    	TsType1=False
										      end if
										      if ToType1=1 then
										    	ToType1=true
										      elseif ToType1=0 then
										    	ToType1=False
										      end if
												TitleTest(Testi)=GetBody(TitleTest(Testi),TsString1,ToString1,TsType1,ToType1)
												If TitleTest(Testi)="$False$" Then
													FoundErr=True
													ErrMsg=ErrMsg & "<br><li>在修正章节标题时出错。</li>"
												End if
											End if
										Next
									Else
										FoundErr=True
										ErrMsg=ErrMsg & "<br><li>在获取章节标题时出错。</li>"
									end if
								End If
								if HsType=1 then
									HsType=true
								elseif HsType=0 then
									HsType=False
								end if
								if HoType=1 then
									HoType=true
								elseif HoType=0 then
									HoType=False
								end if
								NewsArrayCode=GetArray(ListCode,HsString,HoString,HsType,HoType)
								If NewsArrayCode="$False$" Then
									response.Write "<br><li><font color='red'>在获取目录页面连接时出错：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a></font></li><br>"
								Else
									NewsArray=Split(NewsArrayCode,"$Array$")
									For Testi=0 To Ubound(NewsArray)
										If HUrlType1=1 Then
											if HsType1=1 then
												HsType1=true
											elseif HsType1=0 then
												HsType1=False
											end if
											if HoType1=1 then
												HoType1=true
											elseif HoType1=0 then
												HoType1=False
											end if
											NewsArray(Testi)=GetBody(NewsArray(Testi),HsString1,HoString1,HsType1,HoType1)
											If NewsArray(Testi)="$False$" Then
												FoundErr=True
												ErrMsg=ErrMsg & "<br><li>在修正章节连接/章节ID时出错。</li>"
											End if
										End if
										If HttpUrlType=1 Then
											NewsArray(Testi)=Replace(HttpUrlStr,"{$ID$}",NewsArray(Testi))
											NewsArray(Testi)=Replace(NewsArray(Testi),"{$Bl_id$}",bl_id)
										Else
											NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),ListUrl)
										End If
									Next
									If FoundErr=True Then
										Call WriteErrMsg(ErrMsg)
									Else
'-----------------------------------------------------------------------------------------
'章节内容页面获取开始
'-----------------------------------------------------------------------------------------
	 								response.Write "共有 <font color='red'>"&Ubound(NewsArray)+1&"</font> 个章节<br>"
									if lostbook = 1 Then
										if last_viewid="" or last_viewid = Null Then
											last_viewid=0
										end if
										if last_viewid <> 0 and last_viewid-2 < Ubound(NewsArray) then
											If flushbook = 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>本作品保留有最后采集参数但你选择了强制更新章节内容，故从头开始采集章节．</td></tr></table>"
												last=0
											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>"
												last=last_viewid+1
											end if
										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>"
											last=0
										end if
									else
										last=0
									end if
	 								For Viewi=last To Ubound(NewsArray)
	 								ReadBook_Path=NewsArray(Viewi)
	 								NewsCode=GetHttpPage(NewsArray(Viewi),EquivType)
	 								If NewsCode="$False$" Then
	 									response.Write "<br><li><font color='red'>在获取源码时发生错误：<a target=_blank href="& NewsArray(Viewi) &"><font color='red'>"& NewsArray(Viewi) &"</font></a></li><br>"
	 								Else
	 									NewsCode=GetBody(NewsCode,VsString,VoString,True,True)
	 									If NewsCode="$False$" Then
	 										response.Write "<br><li>在截取：<a target=_blank href=" & NewsArray(Viewi) & "><font color='red'>"& NewsArray(Viewi) &"</font></a>章节内容页时发生错误</li><br>"
	 									Else
	 										If Fastbook<>1 then
	 											if CsType=1 then
	 											 	CsType=true
	 											elseif CsType=0 then
	 												CsType=False
	 											end if
	 											if CoType=1 then
	 												CoType=true
	 											elseif CoType=0 then
	 												CoType=False
	 											end if
	 											Content=GetBody(NewsCode,CsString,CoString,CsType,CoType)
	 											If ContType1=1 Then
	 												if CsType1=1 then
	 													CsType1=true
	 												elseif CsType1=0 then
	 													CsType1=False
	 												end if
	 											  	if CoType1=1 then
	 													CoType1=true
	 												elseif CoType1=0 then
	 													CoType1=False
	 												end if
	 												Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
	 											End If
	 											If Content="$False$" Then
	 												response.Write		"<br><li>在截取正文的时候发生错误：<a href=" & NewsArray(Viewi) & " target=_blank><font color='red'>" & NewsArray(Viewi) & "</font></a><br>"
	 											Else
	 												If ContType2=2 Then
	 													Content=DefiniteUrl(Content,NewsArray(Viewi))
	 													ReadBook_Path=Content
	 													if CsType2=1 then
	 														CsType2=true
	 													elseif CsType2=0 then
	 														CsType2=False
	 													end if
	 													if CoType2=1 then
	 														CoType2=true
	 													elseif CoType2=0 then
	 														CoType2=False
	 													end if
	 													ViewUrl=Content
	 													ContentCode=GetHttpPage(ViewUrl,EquivType)
	 													Content=GetBody(ContentCode,CsString2,CoString2,CsType2,CoType2)
	 													If Content="$False$" Then
	 														response.Write		"<br><li>在截取正文的时候发生错误：<a href=" & ViewUrl & " target=_blank><font color='red'>" & ViewUrl & "</font></a><br>"
	 													End If
	 												End If
												    If ContType2=3 Then
												    	Content="<IMG src="&Content&">"
												    End If
	 												Set Rs=server.CreateObject("adodb.recordset")
	 												Sql="Select JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH2sStr,JDTH3sStr,JDTH1oStr,JDTH2oStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr from [Item] Where ItemID=" & ItemID
	 												Rs.Open Sql,ConnItem,1,1
	 												If Rs.Eof And Rs.Bof  Then
	 												Else
	 													JDTHType1=Rs("JDTHType1")
	 													JDTHType2=Rs("JDTHType2")
	 													JDTHType3=Rs("JDTHType3")
	 													JDTH1sStr=Rs("JDTH1sStr")
	 													JDTH1oStr=Rs("JDTH1oStr")
	 													JDTH2sStr=Rs("JDTH2sStr")
	 													JDTH2oStr=Rs("JDTH2oStr")
	 													JDTH3sStr=Rs("JDTH3sStr")
	 													JDTH3oStr=Rs("JDTH3oStr")

	 													GJTHType1=Rs("GJTHType1")
	 													GJTHType2=Rs("GJTHType2")
	 													GJTHType3=Rs("GJTHType3")
	 													GJTH1sStr=Rs("GJTH1sStr")
	 													GJTH1oStr=Rs("GJTH1oStr")
	 													GJTH1cStr=Rs("GJTH1cStr")
	 													GJTH2sStr=Rs("GJTH2sStr")
	 													GJTH2oStr=Rs("GJTH2oStr")
	 													GJTH2cStr=Rs("GJTH2cStr")
	 													GJTH3sStr=Rs("GJTH3sStr")
	 													GJTH3oStr=Rs("GJTH3oStr")
	 													GJTH3cStr=Rs("GJTH3cStr")
	 													If JDTHType1=1 Then
	 														Content=Replace(Content,JDTH1sStr,JDTH1oStr)
	 													End If
	 													If JDTHType2=1 Then
	 														Content=Replace(Content,JDTH2sStr,JDTH2oStr)
	 													End If
	 													If JDTHType3=1 Then
	 														Content=Replace(Content,JDTH3sStr,JDTH3oStr)
	 													End If
	 													If GJTHType1=1 Then
	 														ContentCode1=GetArray(Content,GJTH1sStr,GJTH1oStr,true,true)
	 														ContentArray1=Split(ContentCode1,"$Array$")
	 														For i1=0 To Ubound(ContentArray1)
	 															Content=Replace(Content,ContentArray1(i1),GJTH1cStr)
	 														Next
	 													End If
	 													If GJTHType2=1 Then
	 														ContentCode2=GetArray(Content,GJTH2sStr,GJTH2oStr,true,true)
	 														ContentArray2=Split(ContentCode2,"$Array$")
	 														For i2=0 To Ubound(ContentArray2)
	 															Content=Replace(Content,ContentArray2(i2),GJTH2cStr)
	 														Next
	 													End If
	 													If GJTHType3=1 Then
	 														ContentCode3=GetArray(Content,GJTH3sStr,GJTH3oStr,true,true)
	 														ContentArray3=Split(ContentCode3,"$Array$")
	 														For i3=0 To Ubound(ContentArray3)
	 															Content=Replace(Content,ContentArray3(i3),GJTH3cStr)
	 														Next
	 													End If
	 												End If
	 												Rs.close
	 												Set Rs=Nothing
	 											End If
											Else
	 											If ContType2=2 Then
	 												if CsType=1 then
	 													CsType=true
	 												elseif CsType=0 then
	 													CsType=False
	 												end if
	 												if CoType=1 then
	 													CoType=true
	 												elseif CoType=0 then
	 													CoType=False
	 												end if
	 												Content=GetBody(NewsCode,CsString,CoString,CsType,CoType)
	 												If ContType1=1 Then
	 													if CsType1=1 then
	 														CsType1=true
	 													elseif CsType1=0 then
	 														CsType1=False
	 													end if
	 													if CoType1=1 then
	 														CoType1=true
	 													elseif CoType1=0 then
	 														CoType1=False
	 													end if
	 													Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
	 												End If