?? admin_itemsloadnovel.asp

?? 本人僅業余學習一些基礎的ASP知識以供系統設計之用,并非專業人員,相關服務器設置、MSSQL/MySQL數據庫方面的專業問題請自行解決。本人僅提供本系統相關的一些技術問題的解釋、解答。
?? 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("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('listedID參數錯誤，未填寫有效的作品編號!');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
'-----------------------------------------------------------------------------------------
'作品信息內容入庫結束
'輸出作品信息頁面采集信息
'-----------------------------------------------------------------------------------------
			ListUrl=Replace(ShowStr,"{$Bl_id$}",bl_id)

			response.Write "<table>"
			response.Write "<tr><td width='50%'>本地作品ID：<a href="&Siteurl&SiteSystemPath&"look_book.asp?id="&book_id&" target=_blank>"&book_id&"</a><br>"
			response.Write ""&WebName&"站作品ID：<a href="&ListUrl&" target=_blank>"&bl_id&"</a></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)

'-----------------------------------------------------------------------------------------
'網站登陸操作結束
'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'作品信息頁獲取開始
'-----------------------------------------------------------------------------------------

			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
12 3 4 5 下一頁
?? 文件大小 542 K
?? 上傳用戶 foreverlovely
?? 所屬分類 Internet/網絡編程
??? 相關標簽

#MSSQL #MySQL #ASP #系統設計
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? admin_itemsloadnovel.asp

?? 快捷鍵說明
