📄 admin_itemloadnovel.asp
字号:
<!-- #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")
Fastbook = Request("Fastbook")
ItemID = Request("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 top 1 * 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")
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
'-----------------------------------------------------------------------------------------
'目标网站登陆操作结束
'-----------------------------------------------------------------------------------------
for laodnoveli = getstartid to getendid
if IsNumeric(arrBookList(laodnoveli))<>false then
bl_id = arrBookList(laodnoveli)
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>"&laodnoveli+1&"</b> 部作品的采集操作</font></td></tr></table>"
book_id = ""
b_name = ""
b_id = ""
book_stateID=""
B_CopyFrom = ""
B_Key = ""
B_Author = ""
B_Info = ""
B_Size = ""
b_pic = ""
c_id = ""
'-----------------------------------------------------------------------------------------
'读取作品信息页获取开始
'-----------------------------------------------------------------------------------------
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 B_NameType=0 Then
if B_NsType=1 then
B_NsType=true
elseif B_NsType=0 then
B_NsType=False
end if
if B_NoType=1 then
B_NoType=true
elseif B_NoType=0 then
B_NoType=False
end if
B_Name=GetBody(ListlookCode,B_NsString,B_NoString,B_NsType,B_NoType)
If B_NameType1=1 Then
if B_NsType1=1 then
B_NsType1=true
elseif B_NsType1=0 then
B_NsType1=False
end if
if B_NoType1=1 then
B_NoType1=true
elseif B_NoType1=0 then
B_NoType1=False
end if
B_Name=GetBody(B_Name,B_NsString1,B_NoString1,B_NsType1,B_NoType1)
end if
B_Name=GetTextFromHtml(B_Name)
ElseIf B_NameType=2 Then
B_Name=B_NameStr
End If
if B_Name = "" or B_Name="$False$" then
response.Write "<br><li><font color='red'>作品名称截取错误，采集已停止！~</font></li><br>"
Response.end
End If
set rsbx=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlbx="select list_name from list_book where list_name='"&B_Name&"' limit 1"
else
sqlbx="select top 1 list_name from [list_book] where list_name='"&B_Name&"'"
end if
rsbx.open sqlbx,conn,1,3
if not(rsbx.eof) then
ListlookCode=""
response.Write "<br><li><font color='red'>作品《 "&b_name&" 》已经存在....跳过</font> ↓</li><br>"
rsbx.close
Set Rsbx=Nothing
else
rsbx.close
Set Rsbx=Nothing
'----------------------------------------------------------------------------------------
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -