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

📄 admin_itemsloadbook.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!-- #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="load.css" rel="stylesheet" type="text/css">
<body marginwidth="30">
<%
makebookHTML = Request("makebookHTML")
Fastbook = Request("Fastbook")
lostbook = Request("lostbook")
flushbook = Request("flushbook")
getstartid = request("startid")
getendid = request("endid")
Lastloading = Request.querystring("Lastloading")
CheckSqlnum(makebookHTML)
CheckSqlnum(Fastbook)
CheckSqlnum(lostbook)
CheckSqlnum(flushbook)
CheckSqlnum(getstartid)
CheckSqlnum(getendid)

if getendid-getstartid<0 then
	response.write "<script language=javascript>alert('未指定有效的作品编号!');history.back(-1);</script>"
	response.End
end if
If Lastloading<>"" Then
CheckSqlnum(Lastloading)
	If getendid-Lastloading<=0 Then
		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_ItemsDownBook.asp'><font color=#FF0000>继续更新</font></a></td></tr></table><br><Br>"&chr(13)
		response.End
	end if
end if
Server.ScriptTimeOut=99999
If Lastloading<>"" Or Lastloading=Null Then
	blid = Lastloading+1
Else
	blid = getstartid
End If
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-getstartid+1&"</b> 部作品等待更新采集　　正在进行第 <b>"&blid-getstartid+1&"</b> 部作品的采集操作</font></td></tr>"
response.write "<tr><td height=20 align=right>在进行下一部作品更新前您可以选择 <b><a href=Admin_ItemsDownbook.asp>停止更新 </a></b>（系统需要一定时间结束现有更新采集操作）</td></tr></table>"


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="&blid
rsb.open sqlb,conn,1,1
if rsb.eof then
	response.Write "本地作品ID 为 "&blid&" 的作品不存在→操作已跳过"
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
'-----------------------------------------------------------------------------------------
'作品信息内容入库结束
'输出作品信息页面采集信息
'-----------------------------------------------------------------------------------------
			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)
12

⌨️ 快捷键说明

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