📄 admin_itemsloadsnovel.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">
<body marginwidth="30">
<%
makebookHTML = Request.querystring("makebookHTML")
flushbook = Request.querystring("flushbook")
Fastbook = Request.querystring("Fastbook")
lostbook = Request.querystring("lostbook")
ItemID = Request.querystring("ItemID")

If ItemID="" Then
	response.write "<script language=javascript>alert('ItemID参数错误，请从有效链接进入!');history.back(-2);</script>"
	response.End
Else
   ItemID=Clng(ItemID)
End If

listedID = Request("listedID")
If listedID="" Then
	response.write "<script language=javascript>alert('listedID参数错误，请从有效链接进入!');history.back(-2);</script>"
	response.End
end if
arrBookList = Split(listedID,"|")
getstartid = 0
getendid = UBound(arrBookList)
Server.ScriptTimeOut=99999

Set Rs=server.CreateObject("adodb.recordset")
Sql="Select * from [Item] Where ItemID=" & ItemID
Rs.Open Sql,ConnItem,1,1
If Rs.Eof And Rs.Bof  Then
	response.write "<script language=javascript>alert('参数错误，数据未找到！');history.back(-1);</script>"
	response.End
Else
	WebName=Rs("WebName")
	Islisted=Rs("Islisted")
	EquivType=Rs("EquivType")
	IsSaveFace=Rs("IsSaveFace")
	IsSaveFiles=Rs("IsSaveFiles")
	ShowType=Rs("ShowType")
	ShowStr=Rs("ShowStr")
	ListStr=Rs("ListStr")
	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")
	
	B_NameType=Rs("B_NameType")
	B_NameStr=Rs("B_NameStr")
	B_NsType=Rs("B_NsType")
	B_NoType=Rs("B_NoType")
	B_NsString=Rs("B_NsString")
	B_NoString=Rs("B_NoString")
	B_NameType1=Rs("B_NameType1")
	B_NsType1=Rs("B_NsType1")
	B_NoType1=Rs("B_NoType1")
	B_NsString1=Rs("B_NsString1")
	B_NoString1=Rs("B_NoString1")
	
	B_AuthorType=Rs("B_AuthorType")
	B_AuthorStr=Rs("B_AuthorStr")
	B_AsType=Rs("B_AsType")
	B_AoType=Rs("B_AoType")
	B_AsString=Rs("B_AsString")
	B_AoString=Rs("B_AoString")
	B_AuthorType1=Rs("B_AuthorType1")
	B_AsType1=Rs("B_AsType1")
	B_AoType1=Rs("B_AoType1")
	B_AsString1=Rs("B_AsString1")
	B_AoString1=Rs("B_AoString1")
	
	B_LeiType=Rs("B_LeiType")
	B_LeiStr=Rs("B_LeiStr")
	B_LsType=Rs("B_LsType")
	B_LoType=Rs("B_LoType")
	B_LsString=Rs("B_LsString")
	B_LoString=Rs("B_LoString")
	B_LeiType1=Rs("B_LeiType1")
	B_LsType1=Rs("B_LsType1")
	B_LoType1=Rs("B_LoType1")
	B_LsString1=Rs("B_LsString1")
	B_LoString1=Rs("B_LoString1")
	
	B_PicType=Rs("B_PicType")
	B_PicStr=Rs("B_PicStr")
	B_PsType=Rs("B_PsType")
	B_PoType=Rs("B_PoType")
	B_PsString=Rs("B_PsString")
	B_PoString=Rs("B_PoString")
	B_PicType1=Rs("B_PicType1")
	B_PicType2=Rs("B_PicType2")
	B_PicStr1=Rs("B_PicStr1")
	B_PicStr2=Rs("B_PicStr2")
	B_PsType1=Rs("B_PsType1")
	B_PoType1=Rs("B_PoType1")
	B_PsString1=Rs("B_PsString1")
	B_PoString1=Rs("B_PoString1")
	
	B_KeyType=Rs("B_KeyType")
	B_KeyStr=Rs("B_KeyStr")
	B_KsType=Rs("B_KsType")
	B_KoType=Rs("B_KoType")
	B_KsString=Rs("B_KsString")
	B_KoString=Rs("B_KoString")
	B_KeyType1=Rs("B_KeyType1")
	B_KsType1=Rs("B_KsType1")
	B_KoType1=Rs("B_KoType1")
	B_KsString1=Rs("B_KsString1")
	B_KoString1=Rs("B_KoString1")
	
	B_InfoType=Rs("B_InfoType")
	B_InfoStr=Rs("B_InfoStr")
	B_IsType=Rs("B_IsType")
	B_IoType=Rs("B_IoType")
	B_IsString=Rs("B_IsString")
	B_IoString=Rs("B_IoString")
	B_InfoType1=Rs("B_InfoType1")
	B_IsType1=Rs("B_IsType1")
	B_IoType1=Rs("B_IoType1")
	B_IsString1=Rs("B_IsString1")
	B_IoString1=Rs("B_IoString1")

	B_TaiType=Rs("B_TaiType")
	B_TaiStr=Rs("B_TaiStr")
	B_TsType=Rs("B_TsType")
	B_ToType=Rs("B_ToType")
	B_TsString=Rs("B_TsString")
	B_ToString=Rs("B_ToString")
	B_TaiType1=Rs("B_TaiType1")
	B_TsType1=Rs("B_TsType1")
	B_ToType1=Rs("B_ToType1")
	B_TsString1=Rs("B_TsString1")
	B_ToString1=Rs("B_ToString1")
	
	ListStr=Rs("ListStr")
	LsString=Rs("LsString")
	LoString=Rs("LoString")
	readType=Rs("readType")
	readType1=Rs("readType1")

	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")
	
	CooksString=Rs("CooksString")
	CookoString=Rs("CookoString")
	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")
	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")
End If
Rs.close
Set Rs=Nothing
'-----------------------------------------------------------------------------------------
'读取采集站标签数据结束
'-----------------------------------------------------------------------------------------

'-----------------------------------------------------------------------------------------
'目标网站登陆操作开始
'-----------------------------------------------------------------------------------------
If LoginType=1 then
	LoginData=UrlEncoding(LoginUser & "&" & LoginPass)
	LoginResult=PostHttpPage(LoginUrl,LoginPostUrl,LoginData)
	If Instr(LoginResult,LoginFalse)>0 Then
		response.write "<script language=javascript>alert('网站登录失败，请检查登录参数！');history.back(-1);</script>"
		response.End
	End If
End If
'-----------------------------------------------------------------------------------------
'目标网站登陆操作结束
'-----------------------------------------------------------------------------------------
if Islisted=0 or Islisted=1 Then
for i = getstartid  to getendid

bl_id = arrBookList(i)
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>"

  book_id = ""
  b_name = ""
  B_Author = ""
  B_Info = ""
  B_Size = ""
  b_pic = ""
'-----------------------------------------------------------------------------------------
'作品信息读取开始
'-----------------------------------------------------------------------------------------
	set rsb=server.createobject("adodb.recordset")
	sqlb="select top 1 id,vip_bookid,list_pic,list_lei,list_class,list_tai,list_id,list_name,list_user,list_size,ItemId from [list_book] where ItemId="&ItemId&" and list_id="&bl_id&""
	rsb.open sqlb,conn,1,1
	if rsb.eof then
		response.Write "目标站作品ID 为 "&bl_id&" 的作品没有采集到本地→操作已跳过"
	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")
		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
		rsb.close
		Set Rsb=Nothing
	
'-----------------------------------------------------------------------------------------
'作品信息读取结束
'输出作品信息页面采集信息
'-----------------------------------------------------------------------------------------

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

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