📄 admin_itemsloadbooks.asp

📁 功能强大首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!-- #include file="../conn.asp" --><%Response.buffer=False %>
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/GetFunction.asp"-->
<!--#include file="../inc/upfile.asp"-->
<link href="css.css" rel="stylesheet" type="text/css">
<%
makebookHTML = Request("makebookHTML")
lostbook = Request("lostbook")
flushbook = Request("flushbook")
Fastbook = Request("Fastbook")
listedID = Request("listedID")

DIM arrBookList
if listedID<>"" then
	arrBookList = Split(listedID,"|")
	getstartid = 0
	getendid = UBound(arrBookList)
else
	response.write "<script language=javascript>alert('ItemID参数错误，未填写有效的作品编号!');history.back(-1);</script>"
	response.End
end if
Server.ScriptTimeOut=99999

for i = getstartid  to getendid

response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
response.write "<tr align=center bgcolor=#1C3566><td height=25 align=center><font color=#FFFFFF>"
response.write "列表中共有 <b>"&getendid+1&"</b> 部作品等待更新采集　　正在进行第 <b>"&i+1&"</b> 部作品的更新采集操作</font></td></tr></table>"
if IsNumeric(arrBookList(i))<>false then
'-----------------------------------------------------------------------------------------
'读取作品信息内容
'-----------------------------------------------------------------------------------------
set rsb=server.createobject("adodb.recordset")
sqlb="select id,list_pic,vip_bookid,list_id,list_Url,list_name,list_lei,list_user,list_size,list_tai,ItemId from [list_book] where id="&arrBookList(i)
rsb.open sqlb,conn,1,1
if rsb.eof then
	response.Write "本地作品ID 为 "&arrBookList(i)&" 的作品不存在→操作已跳过"
else
	if rsb("list_tai")=6 then
		response.Write "本地作品 "&rsb("list_Name")&" 为已完成作品→操作已跳过"
	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")
		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
		if ItemId="" or ItemId=null or ItemId=0 then
			response.Write "作品《"&b_Name&"》不存在源采集站ID数据,可能非采集添加→操作已跳过"
		Else
			Set Rs=server.CreateObject("adodb.recordset")
			Sql="Select top 1 * from [Item] Where ItemID=" & ItemID
			Rs.Open Sql,ConnItem,1,1
			if rs.eof then
				response.Write "作品《"&b_Name&"》没有找到采集站点的项目数据,可能已被删除→操作已跳过"
				Rs.close
				Set Rs=Nothing
			else
				ShowType=Rs("ShowType")
				if ShowType=0 and rsb("list_id")<>0 then
					bl_id=rsb("list_id")
				elseif ShowType=1 and rsb("list_Url")<>"" then
					bl_id=rsb("list_Url")
				else
					bl_id=""
				end if
				If bl_id="" or bl_id=null then
				 	response.Write "作品《"&b_Name&"》不存在源采集站ID数据,可能是非采集添加→操作已跳过"
				Else
					WebName=Rs("WebName")
					EquivType=Rs("EquivType")
					IsSaveFiles=Rs("IsSaveFiles")
					ShowStr=Rs("ShowStr")
					SBsType=Rs("SBsType")
					SBoType=Rs("SBoType")
					SBsString=Rs("SBsString")
					SBoString=Rs("SBoString")
					FolderType=Rs("FolderType")
					B_readsType=Rs("B_readsType")
					B_readoType=Rs("B_readoType")
					B_readsString=Rs("B_readsString")
					B_readoString=Rs("B_readoString")
					FolderType1=Rs("FolderType1")
					B_readsType1=Rs("B_readsType1")
					B_readoType1=Rs("B_readoType1")
					B_readsString1=Rs("B_readsString1")
					B_readoString1=Rs("B_readoString1")
	
					ListStr=Rs("ListStr")
					LsString=Rs("LsString")
					LoString=Rs("LoString")
					readType=Rs("readType")
					HsType=Rs("HsType")
					HoType=Rs("HoType")
					HsString=Rs("HsString")
					HoString=Rs("HoString")
					HUrlType1=Rs("HUrlType1")
					HsType1=Rs("HsType1")
					HoType1=Rs("HoType1")
					HsString1=Rs("HsString1")
					HoString1=Rs("HoString1")
					HttpUrlType=Rs("HttpUrlType")
					HttpUrlStr=Rs("HttpUrlStr")
					rHsType=Rs("rHsType")
					rHoType=Rs("rHoType")
					rHsString=Rs("rHsString")
					rHoString=Rs("rHoString")
					rHUrlType1=Rs("rHUrlType1")
					rHsType1=Rs("rHsType1")
					rHoType1=Rs("rHoType1")
					rHsString1=Rs("rHsString1")
					rHoString1=Rs("rHoString1")
					rHttpUrlType=Rs("rHttpUrlType")
					rHttpUrlStr=Rs("rHttpUrlStr")
					readType1=Rs("readType1")

					VsString=Rs("VsString")
					VoString=Rs("VoString")

					TitleTypes=Rs("TitleTypes")
					TsType=Rs("TsType")
					ToType=Rs("ToType")
					TsString=Rs("TsString")
					ToString=Rs("ToString")
					TitleType1=Rs("TitleType1")
					TsType1=Rs("TsType1")
					ToType1=Rs("ToType1")
					TsString1=Rs("TsString1")
					ToString1=Rs("ToString1")

					CsType=Rs("CsType")
					CoType=Rs("CoType")
					CsString=Rs("CsString")
					CoString=Rs("CoString")
					ContType1=Rs("ContType1")
					CsType1=Rs("CsType1")
					CoType1=Rs("CoType1")
					CsString1=Rs("CsString1")
					CoString1=Rs("CoString1")
					ContType2=Rs("ContType2")
					CsType2=Rs("CsType2")
					CoType2=Rs("CoType2")
					CsString2=Rs("CsString2")
					CoString2=Rs("CoString2")

					cookTypes=Rs("cookTypes")
					cooksString=Rs("cooksString")
					cookoString=Rs("cookoString")
					cookType=Rs("cookType")
					cookStr=Rs("cookStr")
					cosType=Rs("cosType")
					cooType=Rs("cooType")
					cosString=Rs("cosString")
					cooString=Rs("cooString")
					cookType1=Rs("cookType1")
					cosType1=Rs("cosType1")
					cooType1=Rs("cooType1")
					cosString1=Rs("cosString1")
					cooString1=Rs("cooString1")

					LoginType=Rs("LoginType")
					LoginUrl=Rs("LoginUrl")
					LoginPostUrl=Rs("LoginPostUrl")
					LoginUser=Rs("LoginUser")
					LoginPass=Rs("LoginPass")
					LoginFalse=Rs("LoginFalse")
					Rs.close
					Set Rs=Nothing

				
'-----------------------------------------------------------------------------------------
'进行网站登陆操作
'-----------------------------------------------------------------------------------------

					If LoginType=1 then
						LoginData=UrlEncoding(LoginUser & "&" & LoginPass)
						LoginResult=PostHttpPage(LoginUrl,LoginPostUrl,LoginData)
						If Instr(LoginResult,LoginFalse)>0 Then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>网站登录失败，请检查登录参数！</li>"
		 				End If
					End If
					If FoundErr=True Then
					   Call WriteErrMsg(ErrMsg)
					Else
'-----------------------------------------------------------------------------------------
'作品信息内容入库结束
'输出作品信息页面采集信息
'-----------------------------------------------------------------------------------------

			response.Write "<table>"
			response.Write "<tr><td width='50%'>本地作品ID："&book_id&"（"&WebName&"站作品ID："&bl_id&"）</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_Tai&"</td></tr>"
			response.Write "<tr><td width='50%'>完成字数："&B_Size&"</td>"
			response.Write "<td width='50%'>作品封面："&B_Pic&"</td></tr>"
			response.Write "</table>"&chr(13)

'-----------------------------------------------------------------------------------------
'网站登陆操作结束
'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'作品信息页获取开始
'-----------------------------------------------------------------------------------------

			ListUrl=Replace(ShowStr,"{$Bl_id$}",bl_id)
			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
'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'输出作品信息页面采集信息结束
'作品目录页面获取开始
'-----------------------------------------------------------------------------------------

					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
12 3 4 5 下一页
⌨️ 快捷键说明

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