📄 main.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="Gobor_CaChe.asp"--><!--#include file="Gobor_Config.asp"-->
<%
'网站名称
Const GoBor_sWebName = "e路书吧"
'网站地址
Const GoBor_sWebUrl = "http://book.new03.com" '不要以“/”结尾
'站长邮箱
Const GoBor_sWebMail = "ls535427@126.com"
'备案编号
Const GoBor_sWebBeiAn = "桂ICP备07500406号"
'目标网站
Const GoBor_sFileUrl = "http://www.freexs.cn" '目标站：免费小说网，不要修改，不要以“/”结尾 第2站：http://www.mfxhxs.com
'网站关键词
Const GoBor_sKeyWords = "玄幻魔法,武侠仙侠,浪漫言情,现代都市,历史,军事,游戏,竞技,科幻,灵异,美文,同人"
'公告代码
Const GoBor_sNotice = "欢迎小说爱好者访问《小说网》。本小说网每日更新大量原创小说，风格简洁，没有眩杂广告。希望带给您一个安静的读书空间，欢迎常来!"
'广告代码
'Const Ads_590_0 = "<div style='margin:8px auto;'><script type=""text/JavaScript"">alimama_pid=""mm_10601996_991217_2298612"";alimama_titlecolor=""0000FF"";alimama_descolor =""000000"";alimama_bgcolor=""FFFFFF"";alimama_bordercolor=""E6E6E6"";alimama_linkcolor=""008000"";alimama_bottomcolor=""FFFFFF"";alimama_anglesize=""0"";alimama_bgpic=""0"";alimama_icon=""0"";alimama_sizecode=""16"";alimama_width=658;alimama_height=60;alimama_type=2;</script><script src=""http://a.alimama.cn/inf.js"" type=text/javascript></script></div>"
'广告代码2
Const Ads_200_0 = "<script type=""text/JavaScript""> alimama_pid=""mm_10601996_991217_2529336""; alimama_titlecolor=""0000FF""; alimama_descolor =""000000""; alimama_bgcolor=""FFFFFF""; alimama_bordercolor=""E6E6E6""; alimama_linkcolor=""008000""; alimama_bottomcolor=""FFFFFF""; alimama_anglesize=""0""; alimama_bgpic=""0""; alimama_icon=""0""; alimama_sizecode=""35""; alimama_width=200; alimama_height=200; alimama_type=2; </script><script src=""http://a.alimama.cn/inf.js"" type=text/javascript> </script>"
'统计代码
Const TongJi = "<script language=javascript src=http://new03.com/js/count.js></script>"
'小说分类
Dim FenLeiArray : FenLeiArray = "魔法玄幻@1,武侠小说@2,现代都市@3,言情小说@4,历史军事@5,网游竞技@6,科幻灵异@7,散文诗词@8,青春校园@9,现代文学@10,古典文学@12,外国文学@13,其它作品@99"
Select Case Act
Case "read" GoBor_WebRead
Case "work" GoBor_WebWork
Case "show" GoBor_WebShow
Case Else GoBor_WebMain
End Select
Sub GoBor_WebHead(sTitle,sDescription)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="robots" content="All">
<meta name="googlebot" content="All">
<meta name="updatetime" content="<%=Now()-0.12%>">
<meta content="<%=myGoBor.Un(sTitle,0)%>" name="keywords" />
<meta content="<%=GoBor_sKeyWords%>" name="description" />
<link rel="stylesheet" type="text/css" href="images/style.css" />
<title><%=myGoBor.Un(sTitle,0)%> - <%=GoBor_sWebName%></title>
</head>
<body<%if Act = "show" and rID <> 0 then%> style="background:url(Images/bg1.gif)"<%end if%>>
<!--网站顶部代码开始-->
<div class="header">
</div>
<!--网站顶部代码结束-->
<div class="bodyer">
<%
End Sub
Sub GoBor_WebFoot()
%>
</div>
<!--网站顶部代码开始-->
<div class="footer">
<ul class="copyright">Copyright © 2007-2008 <a href="<%=GoBor_sWebUrl%>"><%=GoBor_sWebName%></a><a title="<%=myGobor.Version%>" href="http://down.chinaz.com/soft/22983.htm" target=_blank>v1.2.0815</a><br /><%=GoBor_sWebBeiAn%><br /><%=TongJi%></ul>
</div>
<!--网站顶部代码结束-->
</body></html>
<%
End Sub
Sub GoBor_WebMenu()
%>
<div class="bookmenu">
<ul><li><a href="./Main.asp">首页</a></li><%
FenLeiArray = Split(FenLeiArray,",")
For i = 0 to Ubound(FenLeiArray)
Response.Write "<li><a href=""?GoBor=Main&cID="& Split(FenLeiArray(i),"@")(1) &""">"& Split(FenLeiArray(i),"@")(0) &"</a></li>"
Next
%>
</ul>
</div>
<%
End Sub
Sub GoBor_WebLeft()
%>
<div class="bookleft">
<div class="nav">
<ul class="bg"><h2>站内公告</h2></ul>
<ul><%=GoBor_sNotice%></ul>
</div>
<div class="clear"></div>
<div class="nav">
<ul class="bg"><h2>小说搜索</h2></ul><form name="articlesearch" method="post" action="<%=Url%>?GoBor=Search">
<ul>按条件：<select name="searchtype" id="searchtype"><option value="articlename" selected>小说名称</option><option value="author">小说作者</option></select></ul>
<ul>关键字：<input name="searchkey" type="text" class="text" id="searchkey" size="11" onblur="if (value ==''){value='你想找什么书'}" onclick="if(this.value=='你想找什么书')this.value=''" onmouseover="this.focus()" value="你想找什么书" maxlength="10"></ul>
<ul><center><input type="submit" name="Submit" class="button" value=" 搜 索 "></center></ul></form>
</div>
<div class="clear"></div>
<div class="nav">
<ul class="bg"><h2>强档推荐</h2></ul>
<ul><%
Dim BestLeftList,BestLeftMain
BestLeftList = myGoBor.CaChe(GoBor_sFileUrl &"/index.php","GB2312","Best_List_0")
BestLeftMain = myGoBor.Key(BestLeftList,"书友推荐</div>"& vbCrlf &" <a href="""& GoBor_sFileUrl &"/modules/article/toplist.php?sort=weekvote"">更多...</a></div>"& vbCrlf &"<div class=""leikuangbottom"">","</div>",False,False)
BestLeftMain = myGoBor.Rep(BestLeftMain,GoBor_sFileUrl &"/modules/article/articleinfo.php","?GoBor=Read")
BestLeftMain = Replace(BestLeftMain,"?id=","&bID=")
myGoBor.GB BestLeftMain
%></ul>
</div>
<div class="clear"></div>
<div class="nav">
<ul class="bg"><h2>最新入库</h2></ul>
<ul><%
Dim NewLeftList,NewLeftMain
NewLeftList = myGoBor.CaChe(GoBor_sFileUrl &"/modules/article/index.php","GB2312","New_List_0")
NewLeftMain = myGoBor.Key(NewLeftList,"<div class=""blocktitle"">最新入库</div><div class=""blockcontent""><div class=""leikuangbottom"">","</div></div>",False,False)
NewLeftMain = myGoBor.Rep(NewLeftMain,GoBor_sFileUrl &"/modules/article/articleinfo.php","?GoBor=Read")
NewLeftMain = Replace(NewLeftMain,"?id=","&bID=")
myGoBor.GB NewLeftMain
%></ul>
</div>
</div>
<%
End Sub
Sub GoBor_WebMain()
With myGoBor
If Act = "search" Then
If LCase(SearchType) <> "articlename" and LCase(SearchType) <> "author" Then SearchType = "articlename"
If SearchKey = "" Then Response.Write("<script>alert('请输入关键词');window.history.go(-1);</script>") : Response.End()
LastHtml = .CaChe(GoBor_sFileUrl &"/modules/article/search.php?searchtype="& SearchType &"&searchkey="& Server.URLEncode(SearchKey) &"&page="& Page,"GB2312","Search_"& Server.URLEncode(SearchKey) &"_"& Page)
LastMain = .Key(LastHtml,"<div class=""gridtop"">搜索结果</div>","</div>",False,False)
Else
Query = Replace(Query,"cid","class")
LastHtml = .CaChe(GoBor_sFileUrl &"/modules/article/index.php?"& Query,"GB2312","Main_"& Query)
LastMain = .Key(LastHtml,"<table width=""100%"" cellpadding=""0"" cellspacing=""1"" class=""grid"">","</table>",False,False)
End If
LastMain = Replace(LastMain,"<td class=""odd""><a href=","<a href=")
LastMain = Replace(LastMain,"/modules/article/index.php","")
LastList = Split(LastMain,"</tr>"& vbCrlf &" <tr>")
'判断关键词是否匹配书名，如果是，自动跳到书页面
If Ubound(LastList) < 1 and Act = "search" Then
LastPage = .Key(LastHtml,"uservote.php?id=","'",False,False)
PageDown = "?GoBor=Read&bID="& LastPage
If LastPage = "$False$" Then
Response.Write("<script>alert('抱歉-_-!，系统没有找到关键词为“"& SearchKey &"”的相关书籍');window.history.go(-1);</script>") : Response.End()
Else
Response.Write("<script language=""javascript"">window.location.href='"& PageDown &"';</script>") : Response.End()
End If
LastTit = "搜索关键字《" & Request("searchkey") & "》结果"
Else
LastTit = .Key(LastHtml,"<div class=""gridtop"">","</div>",False,False)
LastTit = Replace(LastTit,"全部文章","首页")
End If
Tmp = "<div class=""bookmain"">"
Tmp = Tmp &"<h2>"& LastTit &"</h2>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -