📄 admin_loade_cookid.asp
字号:
JDTH3oStr=Rs("JDTH3oStr")
GJTHType1=Rs("GJTHType1")
GJTHType2=Rs("GJTHType2")
GJTHType3=Rs("GJTHType3")
GJTH1sStr=Rs("GJTH1sStr")
GJTH1oStr=Rs("GJTH1oStr")
GJTH1cStr=Rs("GJTH1cStr")
GJTH2sStr=Rs("GJTH2sStr")
GJTH2oStr=Rs("GJTH2oStr")
GJTH2cStr=Rs("GJTH2cStr")
GJTH3sStr=Rs("GJTH3sStr")
GJTH3oStr=Rs("GJTH3oStr")
GJTH3cStr=Rs("GJTH3cStr")
If JDTHType1=1 Then
ContentArray(Testi)=Replace(ContentArray(Testi),JDTH1sStr,JDTH1oStr)
End If
If JDTHType2=1 Then
ContentArray(Testi)=Replace(ContentArray(Testi),JDTH2sStr,JDTH2oStr)
End If
If JDTHType3=1 Then
ContentArray(Testi)=Replace(ContentArray(Testi),JDTH3sStr,JDTH3oStr)
End If
If GJTHType1=1 Then
ContentCode1=GetArray(Content,GJTH1sStr,GJTH1oStr,true,true)
ContentArray1=Split(ContentCode1,"$Array$")
For i1=0 To Ubound(ContentArray1)
ContentArray(Testi)=Replace(ContentArray(Testi),ContentArray1(i1),GJTH1cStr)
Next
End If
If GJTHType2=1 Then
ContentCode2=GetArray(Content,GJTH2sStr,GJTH2oStr,true,true)
ContentArray2=Split(ContentCode2,"$Array$")
For i2=0 To Ubound(ContentArray2)
ContentArray(Testi)=Replace(ContentArray(Testi),ContentArray2(i2),GJTH2cStr)
Next
End If
If GJTHType3=1 Then
ContentCode3=GetArray(Content,GJTH3sStr,GJTH3oStr,true,true)
ContentArray3=Split(ContentCode3,"$Array$")
For i3=0 To Ubound(ContentArray3)
ContentArray(Testi)=Replace(ContentArray(Testi),ContentArray3(i3),GJTH3cStr)
Next
End If
End If
Rs.close
Set Rs=Nothing
End If
End If
Next
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
FoundErr=False
ErrMsg=""
Else
ReadBook_PathArray=Split(ReadBook_PathCode,"|")
response.Write "<p>本分卷共有 <font color='red'>"&Ubound(TitleTest)+1&"</font> 个章节</p>"
if lostbook = 1 Then
if last_viewids="" or last_viewids = Null Then
last_viewids=0
end if
if last_viewids <> 0 and last_viewids-2 < Ubound(NewsArray) then
If flushbook = 1 Then
response.write "<div id=topmomos>本分卷保留有章节最后采集参数但你选择了强制更新章节内容，故从头开始采集章节．</div>"
last=0
Else
response.write "<div id=topmomos>本分卷保留有章节最后采集参数且你并没有选择强制更新章节内容，故从本参数开始向后采集更新后的章节．</div>"
last=last_viewid+1
end if
else
response.write "<div id=topmomos>本分卷没有保留章节最后采集参数或参数丢失，故从头开始采集章节．</div>"
last=0
end if
else
last=0
end if
For Viewi=last To Ubound(TitleTest)
if ContType2=2 then
ReadBook_Path=ReadBook_PathArray(Viewi+1)
else
ReadBook_Path=CookPageUrl
end if
Title=GetTextFromHtml(TitleTest(Viewi))
'-----------------------------------------------------------------------------------------
'章节内容入库开始
'-----------------------------------------------------------------------------------------
set rsv1=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlv1="select view_showid from list_view where list_cookid="&list_cookid&" order by view_showid desc limit 1"
else
sqlv1="select top 1 view_showid from [list_view] where list_cookid="&list_cookid&" order by view_showid desc"
end if
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
set rsv=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlv="select 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 limit 1"
else
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"
end if
rsv.open sqlv,conn,1,3
if rsv.bof and rsv.eof then
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(ContentArray(Viewi)))
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
rsv.close
rsv.open sqlv,conn,1,1
id1=rsv("id")
b_size=b_size+Len(trim(ContentArray(Viewi)))
rsv.close
set rsv=nothing
response.Write "<font color=blue>新章 "&Viewi+1&"：</font> "&Title&" →"
if newview<>"" then
newview=newview&"||"&id1
else
newview=id1
end if
If ContentArray(Viewi)<>"$False$" Then
picViewPath=SiteSystemPath&"Bookview/"&book_id&"/"
If IsSaveFiles=1 then
ContentArray(Viewi)=Getimages(ContentArray(Viewi),"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,True,ReadBook_Path)
Else
ContentArray(Viewi)=Getimages(ContentArray(Viewi),"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,False,ReadBook_Path)
End If
End If
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>"
conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(ContentArray(Viewi))&"' where id="&id1)
else
file=server.mappath( SiteSystemPath & BookViewPath & id1 & ".TXT" )
view_view_ok="document.write('"
view_view_ok=view_view_ok&""&unhtmllist(ContentArray(Viewi))&""
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
TXTfile="/" & BookViewPath & id1 & ".TXT"
conn.execute ("update list_view set view_get=1,view_SaveToTXT=1,view_ok='"&TXTfile&"',view_ok2='' where id="&id1)
end if
else
conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(ContentArray(Viewi))&"' where id="&id1)
end if
response.Write "<font color=blue>√</font><br>"
Else
id1=rsv("id")
if flushbook = 1 then
conn.execute ("update filetest set fileurl_fileID=0 where fileurl_class=1 and fileurl_fileID="&id1)
conn.execute ("update list_view set view_type='"&Title&"',view_get=0,view_SaveToTXT=0,view_ok='"&ReadBook_Path&"',ItemId="&ItemId&",view_size="&Len(trim(ContentArray(Viewi)))&" where id="&id1)
response.Write "<font color=blue>已有章节 "&viewi+1&"：</font> "&Title&" → 强制更新 "
If ContentArray(Viewi)<>"$False$" Then
picViewPath=SiteSystemPath&"Bookview/"&book_id&"/"
If IsSaveFiles=1 then
ContentArray(Viewi)=Getimages(ContentArray(Viewi),"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,True,ReadBook_Path)
Else
ContentArray(Viewi)=Getimages(ContentArray(Viewi),"管理员："&request.cookies("CnendWeb")("admininfo_loginname"),picViewPath,1,ID1,False,ReadBook_Path)
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>"
conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(ContentArray(Viewi))&"' where id="&id1)
else
file=server.mappath( SiteSystemPath & BookViewPath & id1 & ".TXT" )
view_view_ok="document.write('"
view_view_ok=view_view_ok&""&unhtmllist(ContentArray(Viewi))&""
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
TXTfile="/" & BookViewPath & id1 & ".TXT"
conn.execute ("update list_view set view_get=1,view_SaveToTXT=1,view_ok='"&TXTfile&"',view_ok2='' where id="&id1)
end if
else
conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(ContentArray(Viewi))&"' where id="&id1)
end if
else
conn.execute ("update list_view set view_get=0,view_SaveToTXT=0,view_ok2='' where id="&id1)
end if
response.Write "<font color=blue>√</font><br>"
else
response.Write ""&viewi+1&"、"&Title&" → <font color=blue>已采集</font> ↓<br>"
end if
End If
'-----------------------------------------------------------------------------------------------------------------------------------------
If TitleTest(viewi)=TitleTest(Ubound(TitleTest)) Then
newviewname=cook&" "&Title
if IsSqlDataBase = 0 or IsSqlDataBase = 2 then
conn.execute ("update list_book set newviewid="&id1&",newviewname='"&newviewname&"',vip_bookid="&Cooki&",list_gxdate=Now(),list_size="&b_size&" where id="&book_id)
conn.execute ("update list_cook set list_userid="&viewi&" where list_cookid="&list_cookid)
elseif IsSqlDataBase = 1 then
conn.execute ("update [list_book] set newviewid="&id1&",newviewname='"&newviewname&"',vip_bookid="&Cooki&",list_gxdate=getdate(),list_size="&b_size&" where id="&book_id)
conn.execute ("update [list_cook] set list_userid="&viewi&" where list_cookid="&list_cookid)
end if
End If
'-----------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'章节内容入库结束
'-----------------------------------------------------------------------------------------
Next
ContentArray=""
TitleTest=""
End If
'-----------------------------------------------------------------------------------------
'分卷页面截取到的是章节内容结束
'-----------------------------------------------------------------------------------------
End If
End If
End If
Next
CookArray=""
End If
End If
ListCode=""
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -