📄 admin_itemgxbook.asp
字号:
elseif Instr(B_Tai,"完成")> 0 then
book_stateID = 6
elseif Instr(B_Tai,"完")> 0 then
book_stateID = 6
else
B_Tai="连载中"
book_stateID = 2
end if
ElseIf B_TaiType=2 Then
B_Tai="指定状态"
book_stateID=B_TaiStr
End If
'-----------------------------------------------------------------------------------------
'作品信息内容入库开始
'-----------------------------------------------------------------------------------------
set rsIt=server.createobject("adodb.recordset")
sqlIt="select ItemID,loadendId from [loadend] where ItemID="&ItemID
rsIt.open sqlIt,connItem,1,3
if rsIt.eof and rsIt.bof then
rsIt.addnew
rsIt("loadendId")=0
rsIt("ItemID")=ItemID
rsIt.update
End If
rsIt.close
Set RsIt=Nothing
set rsb=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlb="select id,list_news,list_hit,list_jian,list_cang,list_sftai,list_qianyue,list_gxdate,list_date,Isvip,Isgovip,IsgoVipAnswer,IsGood,Islist_good,Isweb_good,Lock_book,Lock_lun,list_userid,list_Adminid,list_abc,listvv_good,vip_bookid,yearhitstime,monthhitstime,weekdayhitstime,dayhitstime,list_yhit,list_mhit,list_zhit,list_dhit,yearjiantime,monthjiantime,weekdayjiantime,dayjiantime,list_yjian,list_mjian,list_zjian,list_djian,isuserread,list_class,list_pic,list_lei,list_tai,laiyuan,list_id,list_Url,list_name,list_key,list_user,list_all,list_size,ItemId from list_book where list_name='"&B_Name&"' limit 1"
else
sqlb="select top 1 id,list_news,list_hit,list_jian,list_cang,list_sftai,list_qianyue,list_gxdate,list_date,Isvip,Isgovip,IsgoVipAnswer,IsGood,Islist_good,Isweb_good,Lock_book,Lock_lun,list_userid,list_Adminid,list_abc,listvv_good,vip_bookid,yearhitstime,monthhitstime,weekdayhitstime,dayhitstime,list_yhit,list_mhit,list_zhit,list_dhit,yearjiantime,monthjiantime,weekdayjiantime,dayjiantime,list_yjian,list_mjian,list_zjian,list_djian,isuserread,list_class,list_pic,list_lei,list_tai,laiyuan,list_id,list_Url,list_name,list_key,list_user,list_all,list_size,ItemId from [list_book] where list_name='"&B_Name&"'"
end if
rsb.open sqlb,conn,1,3
if not(rsb.eof) then
lastItemId=rsb("ItemId")
book_id=rsb("id")
b_pic=rsb("list_pic")
B_Size=rsb("list_size")
if ShowType=1 then
conn.execute ("update list_book set list_pic='"&B_Pic&"',list_lei="&classid&",list_tai='"&book_stateID&"',laiyuan='"&WebName&"',list_name='"&B_Name&"',list_key='"&B_Key&"',list_user='"&B_Author&"',list_all='"&B_Info&"',ItemId="&ItemId&",list_Url='"&bl_id&"' where id="&book_id)
elseif ShowType=0 then
conn.execute ("update list_book set list_pic='"&B_Pic&"',list_lei="&classid&",list_tai='"&book_stateID&"',laiyuan='"&WebName&"',list_name='"&B_Name&"',list_key='"&B_Key&"',list_user='"&B_Author&"',list_all='"&B_Info&"',ItemId="&ItemId&",list_id="&bl_id&" where id="&book_id)
end if
rsb.close
Set Rsb=Nothing
else
rsb.addnew
rsb("list_news")="尚未添加．．．"
rsb("list_hit")=0
rsb("list_jian")=0
rsb("list_cang")=0
rsb("list_sftai")=0
rsb("list_qianyue")="尚未获取授权"
rsb("list_gxdate")=now()
rsb("list_date")=now()
rsb("Isvip")=0
rsb("Isgovip")=0
rsb("IsgoVipAnswer")=""
rsb("IsGood")=0
rsb("Islist_good")=0
rsb("Isweb_good") =0
rsb("Lock_book")=0
rsb("Lock_lun")=0
rsb("list_userid")=0
rsb("list_Adminid")=0
rsb("list_abc")= 0
rsb("listvv_good")=0
rsb("vip_bookid")=0
rsb("yearhitstime")=now()
rsb("monthhitstime")=now()
rsb("weekdayhitstime")=now()
rsb("dayhitstime")=now()
rsb("list_yhit")=0
rsb("list_mhit")=0
rsb("list_zhit")=0
rsb("list_dhit")=0
rsb("yearjiantime")=now()
rsb("monthjiantime")=now()
rsb("weekdayjiantime")=now()
rsb("dayjiantime")=now()
rsb("list_yjian")=0
rsb("list_mjian")=0
rsb("list_zjian")=0
rsb("list_djian")=0
rsb("isuserread")=0
rsb("list_class")=pclassid
rsb("list_pic")=B_Pic
rsb("list_lei")=classid
rsb("list_tai")=book_stateID
rsb("laiyuan")=WebName
rsb("list_name")=B_Name
rsb("list_key")=B_Key
rsb("list_user")=B_Author
rsb("list_all")=B_Info
rsb("list_size")=0
rsb("ItemId")=ItemId
if Islisted=2 then
rsb("list_Url")=bl_id
else
rsb("list_id")=bl_id
end if
rsb.update
rsb.close
rsb.open sqlb,conn,1,1
book_id=rsb("id")
b_pic=rsb("list_pic")
B_Size=rsb("list_size")
rsb.close
Set Rsb=Nothing
end if
if Instr(b_pic,"BookFace/")>0 then
else
if B_Pic<>"images/0.jpg" and Instr(b_pic,"http://")>0 then
If IsSaveFace=1 then
fileExt=split(B_Pic,".")
imgsExt=fileExt(ubound(fileExt)) '获取图片后缀
strFileName = book_id & "."&imgsExt
response.Write "开始保存封面图片本地地址:"&SiteSystemPath&"BookFace/"&strFileName
If SaveRemoteFile(SiteSystemPath &"BookFace/"&strFileName,B_Pic,B_Pic)=True Then
If not CheckFileType(Server.mappath(SiteSystemPath &"BookFace/"& strFileName)) then
file1=SiteSystemPath &"BookFace/"& strFileName
FSOFiledel(file1)
response.Write "<font color=red>失败</font> 目标图片类型与标称后缀不符。"
else
conn.execute ("update filetest set fileurl_fileID=0 where fileurl_class=3 and fileurl_fileID="&book_id)
set rsfile=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
strSQL ="select id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types,fileurl_fileID from filetest order by id desc limit 1"
else
strSQL ="select top 1 id,fileurl_info,fileurl_name,fileurl_user,fileurl_size,fileurl_path,fileurl_class,fileurl_Types,fileurl_fileID from [filetest] order by id desc"
end if
rsfile.open strSQL,conn,1,3
rsfile.addnew
rsfile("fileurl_name")=strFileName
rsfile("fileurl_info")=B_Pic
rsfile("fileurl_user")="管理员："&request.cookies("CnendWeb")("admininfo_loginname")
rsfile("fileurl_size")=Getfilesize(SiteSystemPath &"BookFace/"& strFileName)
rsfile("fileurl_path")=SiteSystemPath &"BookFace/"
rsfile("fileurl_class")=3
rsfile("fileurl_fileID")=book_id
rsfile("fileurl_Types")=imgsExt
rsfile.update
rsfile.close
set rsfile=nothing
response.Write "<font color=blue>成功</font>"
B_Pic=SiteSystemPath &"BookFace/"& strFileName
conn.execute ("update list_book set list_pic='"&B_Pic&"' where id="&book_id)
End If
Else
response.Write "<font color=red>失败</font> 文无法写入，请检查<font color=red>"& SiteSystemPath &"BookFace/</font>目录权限。"
End If
End If
End If
End If
'-----------------------------------------------------------------------------------------
'作品信息内容入库结束
'输出作品信息页面采集信息
'-----------------------------------------------------------------------------------------
response.Write "<table>"
response.Write "<tr><td width='50%'>本地作品ID：<a href="&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_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)
'-----------------------------------------------------------------------------------------
'输出作品信息页面采集信息结束
'作品目录页面获取开始
'-----------------------------------------------------------------------------------------
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
'-----------------------------------------------------------------------------------------
'目录页面截取到的是章节ID开始
'-----------------------------------------------------------------------------------------
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
ToType=true
elseif ToType=0 then
ToType=False
end if
TitleCode=GetArray(ListCode,TsString,ToString,TsType,ToType)
if TitleCode<>"$False$" Then
TitleTest=Split(TitleCode,"$Array$")
For Testi=0 To Ubound(TitleTest)
If TitleType1=1 Then
if TsType1=1 then
TsType1=true
elseif TsType1=0 then
TsType1=False
end if
if ToType1=1 then
ToType1=true
elseif ToType1=0 then
ToType1=False
end if
TitleTest(Testi)=GetBody(TitleTest(Testi),TsString1,ToString1,TsType1,ToType1)
If TitleTest(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在修正章节标题时出错。</li>"
End if
End if
Next
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取章节标题时出错。</li>"
end if
End If
if HsType=1 then
HsType=true
elseif HsType=0 then
HsType=False
end if
if HoType=1 then
HoType=true
elseif HoType=0 then
HoType=False
end if
NewsArrayCode=GetArray(ListCode,HsString,HoString,HsType,HoType)
If NewsArrayCode="$False$" Then
response.Write "<br><li><font color='red'>在获取目录页面连接时出错：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a></font></li><br>"
Else
NewsArray=Split(NewsArrayCode,"$Array$")
NewsArrayCode=""
For Testi=0 To Ubound(NewsArray)
If HUrlType1=1 Then
if HsType1=1 then
HsType1=true
elseif HsType1=0 then
HsType1=False
end if
if HoType1=1 then
HoType1=true
elseif HoType1=0 then
HoType1=False
end if
NewsArray(Testi)=GetBody(NewsArray(Testi),HsString1,HoString1,HsType1,HoType1)
If NewsArray(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在修正章节连接/章节ID时出错。</li>"
End if
End if
If HttpUrlType=1 Then
NewsArray(Testi)=Replace(HttpUrlStr,"{$ID$}",NewsArray(Testi))
NewsArray(Testi)=Replace(NewsArray(Testi),"{$Bl_id$}",bl_id)
Else
NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),ListUrl)
End If
Next
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
Else
'-----------------------------------------------------------------------------------------
'章节内容页面获取开始
'-----------------------------------------------------------------------------------------
response.Write "共有 <font color='red'>"&Ubound(NewsArray)+1&"</font> 个章节<br>"
For Viewi=0 To Ubound(NewsArray)
ReadBook_Path=NewsArray(Viewi)
NewsCode=GetHttpPage(NewsArray(Viewi),EquivType)
If NewsCode="$False$" Then
response.Write "<br><li><font color='red'>在获取源码时发生错误：</font><a target=_blank href="& NewsArray(Viewi) &"><font color='red'>"& NewsArray(Viewi) &"</font></a></li><br>"
Else
NewsCode=GetBody(NewsCode,VsString,VoString,True,True)
If NewsCode="$False$" Then
response.Write "<br><li>在截取：<a target=_blank href=" & NewsArray(Viewi) & "><font color='red'>"& NewsArray(Viewi) &"</font></a>章节内容页时发生错误</li><br>"
Else
If Fastbook<>1 then
if CsType=1 then
CsType=true
elseif CsType=0 then
CsType=False
end if
if CoType=1 then
CoType=true
elseif CoType=0 then
CoType=False
end if
Content=GetBody(NewsCode,CsString,CoString,CsType,CoType)
If ContType1=1 Then
if CsType1=1 then
CsType1=true
elseif CsType1=0 then
CsType1=False
end if
if CoType1=1 then
CoType1=true
elseif CoType1=0 then
CoType1=False
end if
Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
End If
If Content="$False$" Then
response.Write "<br><li>在截取正文的时候发生错误：<a href=" & NewsArray(Viewi) & " target=_blank><font color='red'>" & NewsArray(Viewi) & "</font></a><br>"
Else
If ContType2=2 Then
Content=DefiniteUrl(Content,NewsArray(Viewi))
ReadBook_Path=Content
if CsType2=1 then
CsType2=true
elseif CsType2=0 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -