📄 admin_itemsloadbook.asp
字号:
Next
End If
End If
Rs.close
Set Rs=Nothing
End If
Else
If ContType2=2 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
ReadBook_Path=DefiniteUrl(Content,NewsArray(Viewi))
End If
End If
'-----------------------------------------------------------------------------------------
'章节内容入库开始
'-----------------------------------------------------------------------------------------
set rsv=server.createobject("adodb.recordset")
sqlv="select top 1 id,list_cookid,view_id,view_type,view_ok,view_ok2,view_size,view_get,view_SaveToTXT,view_lock,view_userid,view_date,view_showid,view_isvip,view_vips,ItemId from [list_view] where view_type='"&Title&"' and list_cookid="&list_cookid&" and view_id="&book_id&" order by id desc"
rsv.open sqlv,conn,1,3
if rsv.bof and rsv.eof then
set rsv1=server.createobject("adodb.recordset")
sqlv1="select top 1 view_showid from [list_view] where list_cookid="&list_cookid&" order by view_showid desc"
rsv1.open sqlv1,conn,1,1
if rsv1.bof and rsv1.eof then
a_viewid=1
else
a_viewid=rsv1("view_showid") + 1
end if
rsv1.close
set rsv1=nothing
rsv.addnew
rsv("list_cookid") = list_cookid
rsv("view_id") = book_id
rsv("view_type") = Title
rsv("view_ok") = ReadBook_Path
rsv("view_size") = Len(trim(content))
rsv("view_get") = 0
rsv("view_date") = now()
rsv("view_showid") = a_viewid
rsv("ItemId") = ItemId
rsv("view_SaveToTXT")=0
rsv("view_isvip")=0
rsv("view_vips")=0
rsv("view_userid")=0
rsv("view_lock")=0
rsv.update
if IsSqlDataBase = 0 then
id1=rsv("id")
b_size=b_size+Len(trim(content))
end if
response.Write "<font color=blue>新章 "&Viewi+1&"：</font> "&Title&" →"
rsv.close
if IsSqlDataBase = 1 then
rsv.open sqlv,conn,1,1
id1=rsv("id")
b_size=b_size+Len(trim(content))
rsv.close
end if
set rsv=nothing
set rsv=server.createobject("adodb.recordset")
sqlv="select top 1 id,view_ok,view_ok2,view_get,view_SaveToTXT from [list_view] Where id="&id1
rsv.open sqlv,conn,1,3
If Content<>"$False$" Then
picViewPath=SiteSystemPath&"Bookview/"&book_id&"/"
NewviewUrl=NewsArray(Viewi)
If IsSaveFiles=1 then
Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,True,NewviewUrl)
Else
Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,False,NewviewUrl)
End If
End If
If Fastbook<>1 then
if SaveToTXT=1 then
BookViewPath="HTML/"&book_id&"/"
If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&SiteSystemPath & BookViewPath&"<br>"
rsv("view_SaveToTXT") = 0
rsv("view_ok2")=unhtmllist(content)
rsv.update
else
file=server.mappath( SiteSystemPath & BookViewPath & id1 & ".TXT" )
view_view_ok="document.write('"
view_view_ok=view_view_ok&""&unhtmllist(content)&""
view_view_ok=view_view_ok&"');"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline view_view_ok
fout.close
set fso=nothing
rsv("view_get") = 1
rsv("view_SaveToTXT") = 1
rsv("view_ok")="/" & BookViewPath & id1 & ".TXT"
rsv("view_ok2")=""
rsv.update
end if
else
rsv("view_get") = 1
rsv("view_SaveToTXT")= 0
rsv("view_ok2")=unhtmllist(content)
rsv.update
end if
else
rsv("view_get") = 0
rsv("view_SaveToTXT")= 0
rsv("view_ok2")=""
rsv.update
end if
rsv.close
response.Write "<font color=blue>√</font><br>"
if makebookHTML=1 then
MakeViewHtml(id1)
end if
Else
id1=rsv("id")
if flushbook = 1 then
conn.execute ("update [filetest] set fileurl_fileID=0 where fileurl_class=1 and fileurl_fileID="&id1)
rsv("view_type") = Title
rsv("view_ok") = ReadBook_Path
rsv("view_size") = Len(trim(content))
rsv("view_get") = 0
rsv("ItemId") = ItemId
rsv("view_SaveToTXT")=0
rsv.update
response.Write "<font color=blue>已有章节：</font> "&Title&" → 强制更新 "
rsv.close
set rsv=nothing
set rsv=server.createobject("adodb.recordset")
sqlv="select top 1 id,view_ok,view_ok2,view_get,view_SaveToTXT from [list_view] Where id="&id1
rsv.open sqlv,conn,1,3
If Content<>"$False$" Then
picViewPath=SiteSystemPath&"Bookview/"&book_id&"/"
NewviewUrl=NewsArray(Viewi)
If IsSaveFiles=1 then
Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,True,NewviewUrl)
Else
Content=Getimages(Content,"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,False,NewviewUrl)
End If
End If
If Fastbook<>1 then
if SaveToTXT=1 then
BookViewPath="HTML/"&book_id&"/"
If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&SiteSystemPath & BookViewPath&"<br>"
rsv("view_SaveToTXT") = 0
rsv("view_ok2")=unhtmllist(content)
rsv.update
else
file=server.mappath( SiteSystemPath & BookViewPath & id1 & ".TXT" )
view_view_ok="document.write('"
view_view_ok=view_view_ok&""&unhtmllist(content)&""
view_view_ok=view_view_ok&"');"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline view_view_ok
fout.close
set fso=nothing
rsv("view_get") = 1
rsv("view_SaveToTXT") = 1
rsv("view_ok")="/" & BookViewPath & id1 & ".TXT"
rsv("view_ok2")=""
rsv.update
end if
else
rsv("view_get") = 1
rsv("view_SaveToTXT")= 0
rsv("view_ok2")=unhtmllist(content)
rsv.update
end if
else
rsv("view_get") = 0
rsv("view_SaveToTXT")= 0
rsv("view_ok2")=""
rsv.update
end if
rsv.close
response.Write "<font color=blue>√</font><br>"
if makebookHTML=1 then
MakeViewHtml(id1)
end if
else
response.Write ""&Title&" → <font color=blue>已采集</font> ↓<br>"
end if
End If
set rsv=nothing
'-----------------------------------------------------------------------------------------------------------------------------------------
If NewsArray(viewi)=NewsArray(Ubound(NewsArray)) Then
newviewname=cook&" "&Title
if IsSqlDataBase = 0 then
conn.execute ("update [list_book] set newviewid="&id1&",newviewname='"&newviewname&"',vip_bookid="&viewi&",list_gxdate=Now(),list_size="&b_size&" where id="&book_id)
elseif IsSqlDataBase = 1 then
conn.execute ("update [list_book] set newviewid="&id1&",newviewname='"&newviewname&"',vip_bookid="&viewi&",list_gxdate=getdate(),list_size="&b_size&" where id="&book_id)
end if
End If
'-----------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'章节内容入库结束
'-----------------------------------------------------------------------------------------
End If
End If
Next
'-----------------------------------------------------------------------------------------
'章节内容页面获取结束
'-----------------------------------------------------------------------------------------
End If
End If
'-----------------------------------------------------------------------------------------
'分卷页面截取到的是章节ID结束
'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'分卷页面截取到的是章节内容开始
'-----------------------------------------------------------------------------------------
ElseIf readType1=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(CookCode,TsString,ToString,TsType,ToType)
if TitleCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取章节标题时出错。</li>"
Else
TitleTest=Split(TitleCode,"$Array$")
TitleCode=""
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
end if
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
ContentCode=GetArray(CookCode,CsString,CoString,CsType,CoType)
If ContentCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取章节正文的时候发生错误：" & CookPageUrl & "</li>"
Else
ContentArray=Split(ContentCode,"$Array$")
ContentCode=""
For Testi=0 To Ubound(ContentArray)
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -