📄 main.asp
字号:
Tmp = Tmp &"<ul class=""bar"">"
Tmp = Tmp &"<li class='l1'>书名</li>"
Tmp = Tmp &"<li class='l2'>更新章节</li>"
Tmp = Tmp &"<li class='l3'>作者</li>"
Tmp = Tmp &"<li class='l4'>更新日期</li>"
Tmp = Tmp &"<li class='l5'>状态</li>"
Tmp = Tmp &"</ul>"
For i = 1 To Ubound(LastList)
'标题
BiaoTi = .Key(LastList(i),"<a href=","</td>",False,False)
BiaoTi = .Rep(BiaoTi,""""& GoBor_sFileUrl &"/modules/article/articleinfo.php","<a href=""?GoBor=Read")
BiaoTi = Replace(BiaoTi,"?id=","&bID=")
BiaoTi = Replace(BiaoTi,"《","")
BiaoTi = Replace(BiaoTi,"》","")
'If Act = "search" Then Biaoti = "《"& BiaoTi &"》"
'作者
ZuoZhe = .Key(LastList(i),"<td class=""odd"">","</td>",False,False)
If ZuoZhe = "$False$" Then ZuoZhe = "侠名"
'章节
ZhangJie = .Key(LastList(i),"<td class=""even"">","</td>",False,False)
ZhangJie = .Rep(ZhangJie,"<a href="""& GoBor_sFileUrl &"/noveltxt/([0-9]+)/([0-9]+)/index.html"" target=""_blank"">(.+?)</a>","<a href=""?GoBor=Work&cID=$1&bID=$2"" target=""_blank"">$3</a>")
'更新日期
GengXin = .Key(LastList(i),"<td class=""odd"" align=""center"">","</td>",False,False)
GengXin = Formatdatetime(GengXin)
'连载状态
ZhuangTai = .Key(LastList(i),"<td class=""even"" align=""center"">","</td>",False,False)
'If (Month(GengXin)+Day(GengXin)) = (Month(Date())+Day(Date())) Then GengXin = "<font color=#0000ff>"& GengXin &"</font>"
Tmp = Tmp &"<ul>"
Tmp = Tmp &"<li class='l1'>"& BiaoTi &"</li>"
Tmp = Tmp &"<li class='l2'>"& ZhangJie &"</li>"
Tmp = Tmp &"<li class='l3'>"& ZuoZhe &"</li>"
Tmp = Tmp &"<li class='l4'>"& Replace(GengXin,"-","/") &"</li>"
Tmp = Tmp &"<li class='l5'>"& ZhuangTai &"</li>"
Tmp = Tmp &"</ul>"
Next
'分页
LastPage = .Key(LastHtml,"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td align=""right"" valign=""middle"">","</td></tr></table>",False,False)
LastPage = .Rep(LastPage,"</td><td width=""66"" align=""right"">","")
LastPage = .Rep(LastPage,"<form(.+?)>([\s\S]*?)</form>","<form$1>转到：$2</form>")
LastPage = .Rep(LastPage,"/modules/article/index.php","")
LastPage = .Rep(LastPage,"&class=","&cID=")
LastPage = .Rep(LastPage,"/modules/article/search.php","")
LastPage = .Rep(LastPage,"searchtype","GoBor=Search&searchtype")
Tmp = Tmp & "<ul class=""page"">页次："& LastPage &"</ul>"
Tmp = Tmp &"</div>"
GoBor_WebHead LastTit,GoBor_sKeyWords : GoBor_WebMenu : GoBor_WebLeft : .GB Tmp : GoBor_WebFoot
End With
End Sub
Sub GoBor_WebRead()
With myGoBor
LastHtml = .CaChe(GoBor_sFileUrl &"/modules/article/articleinfo.php?id="& bID,"GB2312","Read_"& cID &"_"& bID)
LastMain = .Key(LastHtml,"<head>","</body>",False,False)
LastList = .Key(LastMain,"<!--书的参数-->","<!--结束书的参数-->",False,False)
cID = .Key(LastHtml,"<!--结束书的参数--><strong><a href="""& GoBor_sFileUrl &"/noveltxt/","/",False,False)
BiaoTi = .Key(LastHtml,"<h1>"& vbcrlf &"《","》</h1>",False,False)
BiaoTi = Replace(BiaoTi,vbCrlf,"")
MiaoShu = .Key(LastHtml,"<meta name=""description"" content=""",""" />",False,False)
MiaoShu = .Rep(MiaoShu,"免费小说网",GoBor_sWebName)
LastList = .Rep(LastList,GoBor_sFileUrl &"/themes/jieqidiv/","images/")
LastList = .Rep(LastList,GoBor_sFileUrl &"/noveltxt/([0-9]+)/([0-9]+)/index.html","?GoBor=Work&cID=$1&bID=$2")
LastList = .Rep(LastList,GoBor_sFileUrl &"/([0-9]+)/([0-9]+)/([0-9]+).html","?GoBor=Show&cID=$1&bID=$2&rID=$3")
LastList = .Rep(LastList,"border=""0"" /></a><br />([\s\S]*?)<div class=""xiangxi"">","border=""0"" /></a><br /><a href=""?GoBor=Work&cID="& cID &"&bID="& bID &"""><img style=""margin:8px auto;"" alt=""本书所有章节"" src=""images/mr.gif"" border=""0"" /></a></div><div class=""xiangxi"">")
LastList = .Rep(LastList,"border=""0"" /><br />([\s\S]*?)<div class=""xiangxi"">","border=""0"" /><br /><a href=""?GoBor=Work&cID="& cID &"&bID="& bID &"""><img style=""margin:8px auto;"" alt=""本书所有章节"" src=""images/mr.gif"" border=""0"" /></a></div><div class=""xiangxi"">")
LastList = .Rep(LastList,"<strong>书籍简介：</strong>","<strong>书籍简介：</strong><br />")
LastList = .Rep(LastList,"<strong>最新公告：</strong>([\s\S]*?)<br />","")
LastList = .Rep(LastList,BiaoTi &"最新章节","最新章节")
LastList = .Rep(LastList,"</ul>","</ul></div><div class=""jianjie"">")
LastList = .Rep(LastList,"免费小说网",GoBor_sWebName)
Tmp = "<div class=""bookread""><h1>《"& BiaoTi &"》</h1>"& Ads_590_0 & LastList &"</div>"
GoBor_WebHead BiaoTi,MiaoShu : GoBor_WebMenu : GoBor_WebLeft : .GB Tmp : GoBor_WebFoot
End With
End Sub
Sub GoBor_WebShow()
With myGoBor
LastHtml = .CaChe(GoBor_sFileUrl &"/noveltxt/"& cID &"/"& bID &"/"& rID &".html","GB2312","Show_"& cID &"_"& bID &"_"& rID)
LastMain = .Key(LastHtml,"<head>","</body>",False,False)
LastMain = .Rep(LastMain,"<a href="""& GoBor_sFileUrl &""">"& Replace(GoBor_sFileUrl,"http://","") &"</a>",Web)
BiaoTi = .Key(LastMain,"index.html"">","最新章节",False,False)
ZuoZhe = .Key(LastMain,"<div class=""xiangxi"">作者:","</div>",False,False)
NeiRong = .Key(LastMain,"</div><div class=""shuneirong"">","</div>",False,False)
If NeiRong = "$False$" Then NeiRong = .Key(LastMain," <div class=""shuneirong"">","</div>",False,False)
ZhangJie = .Key(LastMain,"<h2>","</h2>",False,False)
PageDown = .Key(LastMain,"<div id=""footlink"">","</div>",False,False)
If PageDown = "$False$" Then PageDown = .Key(LastMain,"<div id=""newfootlink"">","</div>",False,False)
PageDown = .Rep(PageDown,"index.html","?GoBor=Read&cID="& cID &"&bID="& bID &"")
PageDown = .Rep(PageDown,"<a href=""([0-9]+).html"">","<a href=""?GoBor=Show&cID="& cID &"&bID="& bID &"&rID=$1"">")
PageDown = .Rep(PageDown,"/themes/jieqidiv/","images/")
PageDown = Replace(PageDown,GoBor_sFileUrl &"/modules/article/lastchapter.php?aid="& bID &"&dynamic=0","?GoBor=Read&cID="& cID &"&bID="& bID)
If BiaoTi = "$False$" Then BiaoTi = "最新章节"
If ZuoZhe = "$False$" Then ZuoZhe = "侠名"
If PageDown = "$False$" Then PageDown = "<a href=""?GoBor=Read&cID="& cID &"&bID="& bID &""">返回书目</a>"
BackID = .Key(LastMain,"preview_page = """,".html"";",False,False)
NextID = .Key(LastMain,"next_page = """,".html"";",False,False)
If Len(BackID) = 0 Or Not IsNumeric(BackID) Then BackPage = "?GoBor=Work&cID="& cID &"&bID="& bID Else BackPage = "?GoBor=Show&cID="& cID &"&bID="& bID &"&rID="& BackID
If Len(NextID) = 0 Or Not IsNumeric(NextID) Then NextPage = "?GoBor=Work&cID="& cID &"&bID="& bID Else NextPage = "?GoBor=Show&cID="& cID &"&bID="& bID &"&rID="& NextID
Tmp = "<dl class=""bookshow"">"
Tmp = Tmp &"<h1>"& BiaoTi &" - "& ZhangJie &"</h1>"
Tmp = Tmp &"<span><input type=button title=返回小说首页 value=""首 页"" onClick=""javascript:location.href='./'""> <input type=button title=收藏本章节以便下次阅读 value=""收 藏"" onClick=""javascript:window.external.AddFavorite('"& GoBor_sWebUrl & Url &"?GoBor=Show&cID="& cID &"&bID="& bID &"&rID="& rID &"','"& myGoBor.Un(BiaoTi,0) &"("& myGoBor.Un(ZhangJie,0) &")')""> <input type=button title=下载本章节到电脑阅读 value=""下 载"" onclick=""document.execCommand('saveas','true','"& MyGoBor.Un(BiaoTi,0) &"("& MyGoBor.Un(ZhangJie,0) &").txt')""> "
Tmp = Tmp &"<select onChange=""document.getElementById('content').style.fontSize = this.options[this.selectedIndex].value+'px';"" class=""select""> "
Tmp = Tmp &"<OPTION VALUE=""12"" SELECTED> 小字"
Tmp = Tmp &"<OPTION VALUE=""14""> 中字"
Tmp = Tmp &"<OPTION VALUE=""16""> 大字"
Tmp = Tmp &"<OPTION VALUE=""18""> 特大"
Tmp = Tmp &"</select> "
Tmp = Tmp &"<select onChange=""document.body.style.background=this.options[this.selectedIndex].value"" class=""select""> "
Tmp = Tmp &"<OPTION VALUE=""url('images/bg1.gif')"" SELECTED> 清凉"
Tmp = Tmp &"<OPTION VALUE=""url('images/bg2.gif')""> 浪漫"
Tmp = Tmp &"<OPTION VALUE=""url('images/bg3.gif')""> 温暖"
Tmp = Tmp &"<OPTION VALUE=""url('images/bg4.gif')""> 清爽"
Tmp = Tmp &"</select></span>"
Tmp = Tmp &"<dt>作者："& ZuoZhe &"</dt>"
Tmp = Tmp &"<dd id=""content"">"& Replace(NeiRong,"免费小说网",GoBor_sWebName) &"</dd>"
Tmp = Tmp &"<dd><div class=""onpage"">"& PageDown &"</div></dd>"
Tmp = Tmp &"</dl>"
'换章
Tmp = Tmp &"<script type=""text/javascript"">"
Tmp = Tmp &"var preview_page="""& BackPage &""";var next_page="""& NextPage &""";var index_page=""?GoBor=Work&cID="& cID &"&bID="& bID &""";var article_id="""& bID &""";var chapter_id="""& rID &""";"
Tmp = Tmp &"function jumpPage() {if (event.keyCode==37) location=preview_page;if (event.keyCode==39) location=next_page;if (event.keyCode==13) location=index_page;}"
Tmp = Tmp &"document.onkeydown=jumpPage;"
Tmp = Tmp &"</script>"
GoBor_WebHead BiaoTi &" - "& ZhangJie,.Un(NeiRong,60) : .GB Tmp : GoBor_WebFoot
End With
End Sub
Sub GoBor_WebWork()
With myGoBor
LastHtml = .CaChe(GoBor_sFileUrl &"/noveltxt/"& cID &"/"& bID &"/index.html","GB2312","Work_"& cID &"_"& bID)
LastMain = .Key(LastHtml,"<!--结束书的参数-->","</table>",False,False)
LastMain = .Rep(LastMain,"<table width=""100%"">","<div class=""bookwork"">")
LastMain = .Rep(LastMain,"<tr>","<ul>")
LastMain = .Rep(LastMain,"</tr>","</ul>")
LastMain = .Rep(LastMain,"<td class=""ccss"">","<li>")
LastMain = .Rep(LastMain,"<td colspan=""2"" class=""vcss"">","<li class=""th"">")
LastMain = .Rep(LastMain,"</td>","</li>")
LastMain = .Rep(LastMain,"<a href=""([0-9]+).html"">","<a href=""?GoBor=Show&cID="& cID &"&bID="& bID &"&rID=$1"">")
LastMain = .Rep(LastMain,"www.freexs.cn",Web)
LastMain = .Rep(LastMain,"清风","雅虎")
LastMain = .Rep(LastMain,"key_type=list_name&key_keyword=(.+?)","p=site:"& Web &"+$1")
LastMain = .Rep(LastMain,"http://www.qingfo.com/search.asp?","http://one.cn.yahoo.com/s")
LastMain = .Rep(LastMain,"<ul> <li>"& vbcrlf &" "& vbcrlf &" </li>"& vbcrlf &" <li>"& vbcrlf &" "& vbcrlf &" </li></ul>","")
LastMain = .Rep(LastMain,"site:"& web &"",GoBor_sWebName)
BiaoTi = .Key(LastHtml,"<h1><a href=""index.html"">","</a></h1>",False,False)
If InStr(LastMain,"bookwork") = 0 Then Response.Write("<script>alert('您查看的小说因故已被删除！');location='" & GoBor_sFileName & "';</script>") : Response.End
GoBor_WebHead BiaoTi,GoBor_sKeyWords : GoBor_WebMenu : GoBor_WebLeft : .GB LastMain : GoBor_WebFoot
End With
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -