?? admin_itemsloadnovel.asp
字號:
end if
cook=GetBody(NewsCode,cosString,cooString,cosType,cooType)
If cookType1=1 Then
if cosType1=1 then
cosType1=true
elseif cosType1=0 then
cosType1=False
end if
if cooType1=1 then
cooType1=true
elseif cooType1=0 then
cooType1=False
end if
cook=GetBody(cook,cosString1,cooString1,cosType1,cooType1)
end if
ElseIf cookType=2 Then
cook=cookStr
ElseIf cookType=0 Then
cook="正文"
End If
If cook="$False$" or cook="" Then
cook="正文"
else
cook=trim(cook)
End If
If TitleTypes=0 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
Title=GetBody(NewsCode,TsString,ToString,TsType,ToType)
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
Title=GetBody(Title,TsString1,ToString1,TsType1,ToType1)
end if
If Title="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取標題的時候發生錯誤：" & NewsArray(Viewi) & "</li>"
End If
Elseif TitleTypes=1 Then
Title=TitleTest(Viewi)
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>參數錯誤，請從有效鏈接進入</li>"
End If
'-----------------------------------------------------------------------------------------
'章節內容入庫開始
'-----------------------------------------------------------------------------------------
set rsc1=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlc1="select cook_viewid from list_cook where list_bookid="&book_id&" order by cook_viewid desc limit 1"
else
sqlc1="select top 1 cook_viewid from [list_cook] where list_bookid="&book_id&" order by cook_viewid desc"
end if
rsc1.open sqlc1,conn,1,1
if rsc1.bof and rsc1.eof then
c_viewid=1
else
c_viewid=rsc1("cook_viewid") + 1
end if
rsc1.close
set rsc1=nothing
set rsc=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqlc="select list_cookid,list_cookname,classid,list_bookid,cook_viewid from list_cook where list_bookid="&book_id&" and list_cookname='"&cook&"' limit 1"
else
sqlc="select top 1 list_cookid,list_cookname,classid,list_bookid,cook_viewid from [list_cook] where list_bookid="&book_id&" and list_cookname='"&cook&"'"
end if
rsc.open sqlc,conn,1,3
if rsc.bof and rsc.eof then
rsc.addnew
rsc("list_cookname")=cook
rsc("classid") = b_lei
rsc("list_bookid")=book_id
rsc("cook_viewid") = c_viewid
rsc.update
response.Write "<br><font color='blue'><B>新卷集：</B></font> "&cook&" → <font color='blue'>添加成功</font><br>"
rsc.close
rsc.open sqlc,conn,1,1
list_cookid=rsc("list_cookid")
rsc.close
else
list_cookid=rsc("list_cookid")
rsc.close
end if
set rsc=nothing
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(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
rsv.close
rsv.open sqlv,conn,1,1
id1=rsv("id")
b_size=b_size+Len(trim(content))
rsv.close
set rsv=nothing
response.Write "<font color=blue>新章 "&viewi+1&"：</font> "&Title&" →"
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>"
conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(content)&"' where id="&id1)
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
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(content)&"' 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
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
rsv.close
set rsv=nothing
response.Write "<font color=blue>已有章節 "&viewi+1&"：</font> "&Title&" → 強制更新 "
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>"
conn.execute ("update list_view set view_get=1,view_SaveToTXT=0,view_ok2='"&unhtmllist(content)&"' where id="&id1)
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
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(content)&"' 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 NewsArray(viewi)=NewsArray(Ubound(NewsArray)) Then
newviewname=cook&" "&Title
if IsSqlDataBase = 0 or IsSqlDataBase = 2 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 readType=1 then
'-----------------------------------------------------------------------------------------
'目錄頁面截取到的是分卷ID開始
'-----------------------------------------------------------------------------------------
if lostbook = 1 Then
response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
response.Write "<tr><td height=25 align=center>本作品不支持從最后采集參數向后采集，故從頭開始采集章節．</td></tr></table>"
end if
If CookTypes=1 then
if cosType=1 then
cosType=true
elseif cosType=0 then
cosType=False
end if
if cooType=1 then
cooType=true
elseif cooType=0 then
cooType=False
end if
CooknameCode=GetArray(ListCode,cosString,cooString,cosType,cooType)
if CookNameCode<>"$False$" Then
CookName=Split(CookNameCode,"$Array$")
For Testi=0 to Ubound(CookName)
If cookType1=1 Then
if cosType1=1 then
cosType1=true
elseif cosType1=0 then
cosType1=False
end if
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -