📄 admin_loade_cookid.asp
字号:
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>"
End If
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="&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
'-----------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
'章节内容入库结束
'-----------------------------------------------------------------------------------------
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>从分卷页获取章节标题 - 在获取章节标题时出错：<a target=_blank href=" & CookPageUrl & "><font color='red'>" & CookPageUrl & "</font></a></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>从分卷页获取章节标题 - 在修正章节标题时出错：<a target=_blank href=" & CookPageUrl & "><font color='red'>" & CookPageUrl & "</font></a></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>从分卷页获取章节正文 - 在截取章节正文的时候发生错误：<a target=_blank href=" & CookPageUrl & "><font color='red'>" & CookPageUrl & "</font></a></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
end if
ContentArray(Testi)=GetBody(ContentArray(Testi),CsString1,CoString1,CsType1,CoType1)
If ContentArray(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>从分卷页获取章节正文 - 在修正章节正文时出错：<a target=_blank href=" & CookPageUrl & "><font color='red'>" & CookPageUrl & "</font></a></li>"
End if
End If
If ContType2=2 Then
ContentArray(Testi)=DefiniteUrl(ContentArray(Testi),CookArray(Cooki))
ReadBook_PathCode=ReadBook_PathCode&"|"&DefiniteUrl(ContentArray(Testi),CookArray(Cooki))
if CsType2=1 then
CsType2=true
elseif CsType2=0 then
CsType2=False
end if
if CoType2=1 then
CoType2=true
elseif CoType2=0 then
CoType2=False
end if
ViewUrl=ContentArray(Testi)
ContentArray(Testi)=GetHttpPage(ViewUrl,EquivType)
ContentArray(Testi)=GetBody(ContentArray(Testi),CsString2,CoString2,CsType2,CoType2)
If ContentArray(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取章节正文的时候发生错误：<a href=" & ViewUrl & " target=_blank><font color='red'>" & ViewUrl & "</font></a></li>"
Else
Set Rs=server.CreateObject("adodb.recordset")
Sql="Select JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH2sStr,JDTH3sStr,JDTH1oStr,JDTH2oStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr from [Item] Where ItemID=" & ItemID
Rs.Open Sql,ConnItem,1,1
If Rs.Eof And Rs.Bof Then
Else
JDTHType1=Rs("JDTHType1")
JDTHType2=Rs("JDTHType2")
JDTHType3=Rs("JDTHType3")
JDTH1sStr=Rs("JDTH1sStr")
JDTH1oStr=Rs("JDTH1oStr")
JDTH2sStr=Rs("JDTH2sStr")
JDTH2oStr=Rs("JDTH2oStr")
JDTH3sStr=Rs("JDTH3sStr")
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
ElseIf ContType2=3 Then
ContentArray(Testi)="<IMG src="&ContentArray(Testi)&">"
ElseIf ContType2=0 or ContType2=1 Then
If ContentArray(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取章节正文的时候发生错误：<a href=" & ViewUrl & " target=_blank><font color='red'>" & ViewUrl & "</font></a></li>"
Else
Set Rs=server.CreateObject("adodb.recordset")
Sql="Select JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH2sStr,JDTH3sStr,JDTH1oStr,JDTH2oStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr from [Item] Where ItemID=" & ItemID
Rs.Open Sql,ConnItem,1,1
If Rs.Eof And Rs.Bof Then
Else
JDTHType1=Rs("JDTHType1")
JDTHType2=Rs("JDTHType2")
JDTHType3=Rs("JDTHType3")
JDTH1sStr=Rs("JDTH1sStr")
JDTH1oStr=Rs("JDTH1oStr")
JDTH2sStr=Rs("JDTH2sStr")
JDTH2oStr=Rs("JDTH2oStr")
JDTH3sStr=Rs("JDTH3sStr")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -