?? admin_itemsloadnovel.asp
字號(hào):
if FolderType=2 then
ListCode=ListinfoCode
ListinfoCode=""
else
ListCode=GetHttpPage(ListUrl,EquivType)
ListinfoCode=""
end if
If ListCode="$False$" Then
response.Write "<br><li>在獲取：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a>網(wǎng)頁(yè)源碼時(shí)發(fā)生錯(cuò)誤。</li><br>"
Else
ListCode=GetBody(ListCode,LsString,LoString,True,True)
If ListCode="$False$" Then
response.Write "<br><li><font color='red'>在截取目錄頁(yè)面內(nèi)容時(shí)發(fā)生錯(cuò)誤：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a></font></li><br>"
Else
If readType=0 then
if TitleTypes=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(ListCode,TsString,ToString,TsType,ToType)
if TitleCode<>"$False$" Then
TitleTest=Split(TitleCode,"$Array$")
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>在修正章節(jié)標(biāo)題時(shí)出錯(cuò)。</li>"
End if
End if
Next
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在獲取章節(jié)標(biāo)題時(shí)出錯(cuò)。</li>"
end if
End If
if HsType=1 then
HsType=true
elseif HsType=0 then
HsType=False
end if
if HoType=1 then
HoType=true
elseif HoType=0 then
HoType=False
end if
NewsArrayCode=GetArray(ListCode,HsString,HoString,HsType,HoType)
If NewsArrayCode="$False$" Then
response.Write "<br><li><font color='red'>在獲取目錄頁(yè)面連接時(shí)出錯(cuò)：<a target=_blank href=" & ListUrl & "><font color='red'>" & ListUrl & "</font></a></font></li><br>"
Else
NewsArray=Split(NewsArrayCode,"$Array$")
For Testi=0 To Ubound(NewsArray)
If HUrlType1=1 Then
if HsType1=1 then
HsType1=true
elseif HsType1=0 then
HsType1=False
end if
if HoType1=1 then
HoType1=true
elseif HoType1=0 then
HoType1=False
end if
NewsArray(Testi)=GetBody(NewsArray(Testi),HsString1,HoString1,HsType1,HoType1)
If NewsArray(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在修正章節(jié)連接/章節(jié)ID時(shí)出錯(cuò)。</li>"
End if
End if
If HttpUrlType=1 Then
NewsArray(Testi)=Replace(HttpUrlStr,"{$ID$}",NewsArray(Testi))
NewsArray(Testi)=Replace(NewsArray(Testi),"{$Bl_id$}",bl_id)
Else
NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),ListUrl)
End If
Next
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
Else
'-----------------------------------------------------------------------------------------
'章節(jié)內(nèi)容頁(yè)面獲取開(kāi)始
'-----------------------------------------------------------------------------------------
response.Write "共有 <font color='red'>"&Ubound(NewsArray)+1&"</font> 個(gè)章節(jié)<br>"
if lostbook = 1 Then
if last_viewid="" or last_viewid = Null Then
last_viewid=0
end if
if last_viewid <> 0 and last_viewid-2 < Ubound(NewsArray) then
If flushbook = 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>本作品保留有最后采集參數(shù)但你選擇了強(qiáng)制更新章節(jié)內(nèi)容，故從頭開(kāi)始采集章節(jié)．</td></tr></table>"
last=0
Else
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>本作品保留有最后采集參數(shù)且你并沒(méi)有選擇強(qiáng)制更新章節(jié)內(nèi)容，故從本參數(shù)開(kāi)始向后采集更新后的章節(jié)．</td></tr></table>"
last=last_viewid+1
end if
else
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>本作品沒(méi)有保留有最后采集參數(shù)或參數(shù)丟失，故從頭開(kāi)始采集章節(jié)．</td></tr></table>"
last=0
end if
else
last=0
end if
For Viewi=last To Ubound(NewsArray)
ReadBook_Path=NewsArray(Viewi)
NewsCode=GetHttpPage(NewsArray(Viewi),EquivType)
If NewsCode="$False$" Then
response.Write "<br><li><font color='red'>在獲取源碼時(shí)發(fā)生錯(cuò)誤：<a target=_blank href="& NewsArray(Viewi) &"><font color='red'>"& NewsArray(Viewi) &"</font></a></li><br>"
Else
NewsCode=GetBody(NewsCode,VsString,VoString,True,True)
If NewsCode="$False$" Then
response.Write "<br><li>在截?。?lt;a target=_blank href=" & NewsArray(Viewi) & "><font color='red'>"& NewsArray(Viewi) &"</font></a>章節(jié)內(nèi)容頁(yè)時(shí)發(fā)生錯(cuò)誤</li><br>"
Else
If Fastbook<>1 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
If Content="$False$" Then
response.Write "<br><li>在截取正文的時(shí)候發(fā)生錯(cuò)誤：<a href=" & NewsArray(Viewi) & " target=_blank><font color='red'>" & NewsArray(Viewi) & "</font></a><br>"
Else
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)
If Content="$False$" Then
response.Write "<br><li>在截取正文的時(shí)候發(fā)生錯(cuò)誤：<a href=" & ViewUrl & " target=_blank><font color='red'>" & ViewUrl & "</font></a><br>"
End If
End If
If ContType2=3 Then
Content="<IMG src="&Content&">"
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
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
If cookType=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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -