📄 admin_loade_viewid.asp
字号:
FoundErr=True
ErrMsg=ErrMsg & "<br><li>从章节页获取章节标题 - 在修正章节标题的时候发生错误：<a href=" & NewsArray(Viewi) & " target=_blank><font color='red'>" & NewsArray(Viewi) & "</font></a></li>"
Title1=""
Else
Title=Title1
Title1=""
end if
end if
end if
If Title<>"$False$" and Title<>"" Then
Title=GetTextFromHtml(Title)
End If
Elseif TitleTypes=1 Then
Title=GetTextFromHtml(TitleTest(Viewi))
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>章节标题获取参数错误，请重新设计采集规则！</li>"
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
Content=GetBody(NewsCode,CsString,CoString,CsType,CoType)
If Content="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取章节正文的时候发生错误：<a href=" & NewsArray(Viewi) & " target=_blank><font color='red'>" & NewsArray(Viewi) & "</font></a><br>"
Else
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
Content1=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
If Content1="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在修正章节正文的时候发生错误：<a href=" & NewsArray(Viewi) & " target=_blank><font color='red'>" & NewsArray(Viewi) & "</font></a><br>"
Content1=""
Else
Content=Content1
Content1=""
End If
End If
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
FoundErr=False
ErrMsg=""
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
Conn.Execute("InSert Into list_view (list_cookid,view_id,view_type,view_ok,view_size,view_get,view_SaveToTXT,view_lock,view_userid,view_showid,view_isvip,view_vips,ItemId) Values ('"&list_cookid&"','"&book_id&"','"&Title&"','"&ReadBook_Path&"','0','-1','0','0','0','0','0','0','"&ItemId&"')")
Else
'-----------------------------------------------------------------------------------------
'章节内容入库开始
'-----------------------------------------------------------------------------------------
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
If Fastbook<>1 then
If ContType2=2 Then
Content=DefiniteUrl(Content,NewsArray(Viewi))
ReadBook_Path=Content
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=Content
ContentCode=GetHttpPage(ViewUrl,EquivType)
Content=GetBody(ContentCode,CsString2,CoString2,CsType2,CoType2)
ContentCode=""
If Content="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：<a href=" & ViewUrl & " target=_blank><font color='red'>" & ViewUrl & "</font></a><br>"
End If
End If
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
Content=Replace(Content,JDTH1sStr,JDTH1oStr)
End If
If JDTHType2=1 Then
Content=Replace(Content,JDTH2sStr,JDTH2oStr)
End If
If JDTHType3=1 Then
Content=Replace(Content,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)
Content=Replace(Content,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)
Content=Replace(Content,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)
Content=Replace(Content,ContentArray3(i3),GJTH3cStr)
Next
End If
End If
Rs.close
Set Rs=Nothing
If ContType2=3 Then
Content="<IMG src="&Content&">"
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
If ContType2=3 Then
Content="<IMG src="&Content&">"
End If
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
FoundErr=False
ErrMsg=""
rsv.addnew
rsv("list_cookid") = list_cookid
rsv("view_id") = book_id
rsv("view_type") = Title
rsv("view_ok") = ReadBook_Path
rsv("view_size") = 0
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
set rsv=nothing
Else
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -