📄 index.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->
<%
Response.Expires = 120
%>
<HTML><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=WebTitle%>-首页</title>
<!--<%=WebTitle%>|文学名著|言情小说|玄幻小说|电子书免费下载-->
<meta name="keywords" content="<%=WebTitle%>,电子书,电子书免费下载,言情小说,玄幻小说,古典诗文,中外散文,诗歌戏剧,古典小说,现代小说,外国小说,传记纪实,文学理论,综合类别,推荐阅读>
<meta name="description" content="<%=WebTitle%>,提供言情小说,玄幻小说,古典诗文,中外散文,诗歌戏剧,古典小说,现代小说,外国小说,传记纪实,文学理论,综合类别在线阅读,专业文学书库类站点.">
<Script LANGUAGE="javascript">
if(self!=top){top.location=self.location;}
</script>
<!--#include file="head.asp"-->
<table width="760" border="1" bgcolor=#7BD676 align="center" cellpadding="0" cellspacing="3">
<tr><td valign="top" background="image/bg.jpg" bgcolor=#FFF8F0>
<table width="100%" border="0" align="center" bgcolor=#7BD676>
<tr><td align="center">
<font color=#FFFFFF><b><i>□□□</i> 寻 梦 新 书 <i>□□□</i></b></font></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr><td><%
set Rs=conn.execute("select top 8 bookid,zuozhe,bookname,tuijian,adv from book where shenhe=1 order by bookid desc")
dim i
i=1
do while not rs.eof
%>
<%=Rs("zuozhe")%><b>[<a href="bookread.asp?bookid=<%=Rs("bookid")%>" target="_blank"><%=Rs("bookname")%></a>]</b><br>
推荐度：<%=encode1(rs("tuijian"))%><br>
<%=Rs("adv")%><br>
<%
i=i+1
rs.movenext
if i>8 then exit do
loop
rs.close
%>
</td></tr></table>
</td><td style="word-break:break-all" valign="top" width="300" bgcolor=#F0F7FF>
<table width="100%" border="0" align="center" bgcolor=#7BD676>
<tr><td align="center">
<font color=#FFFFFF><b><i>□□□</i> 最新推荐好书 <i>□□□</i></b></font></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr bgcolor=#F0F7FF><td style="word-break:break-all"><%
set Rs_t=conn.execute("select top 15 bookid,bookname,zuozhe from book where tuijian>3 and shenhe=1 order by bookid desc")
dim k
k=1
do while not rs_t.eof
%>
○<%=Rs_t("zuozhe")%>：<b><a href="bookread.asp?bookid=<%=Rs_t("bookid")%>" target="_blank">[<%=Rs_t("bookname")%>]</a></b></br>
<%
k=k+1
rs_t.movenext
if k>15 then exit do
loop
rs_t.close
%></td></tr></table>
<table width="100%" border="0" align="center" bgcolor=#7BD676>
<tr><td align="center">
<font color=#FFFFFF><b><i>□□□</i> 最近更新书籍 <i>□□□</i></b></font></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr bgcolor=#F0F7FF><td style="word-break:break-all"><%
set Rs_ed=conn.execute("select top 15 bookid,bookname,zuozhe from book where shenhe=1 order by edtime desc")
dim ed
ed=1
do while not rs_ed.eof
%>
○<%=Rs_ed("zuozhe")%>：<b><a href="bookread.asp?bookid=<%=Rs_ed("bookid")%>" target="_blank">[<%=Rs_ed("bookname")%>]</a></b></br>
<%
ed=ed+1
rs_ed.movenext
if ed>15 then exit do
loop
rs_ed.close
%></td></tr></table>
</td></tr></table>
<table width="760" border="0" align="center" bgcolor=#E1F8D8 cellpadding="0" cellspacing="0">
<tr><td align="center">
<script src=http://www.4a.ads99.net/banner760x60_1b.php?userid=xmsk></script>
</td></tr></table>
<table width="760" border="1" align="center" bgcolor=#7BD676 cellpadding="0" cellspacing="3">
<tr><td background="image/bg.jpg" valign="top" width="50%" >
<table width="100%" border="0" align="center" bgcolor=#7BD676>
<tr><td align="center">
<font color=#FFFFFF><b><i>□□□</i> 寻梦新书点击排行 <i>□□□</i></b></font></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr bgcolor=#FFF8F0><td style="word-break:break-all"><%
set Rs_bz=conn.execute("select top 20 bookid,bookname,hit from book where addtim>#"&date()-60&"# and shenhe=1 order by hit desc")
dim bz
bz=1
do while not rs_bz.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
●<b><a href="bookread.asp?bookid=<%=Rs_bz("bookid")%>" target="_blank">[<%=Rs_bz("bookname")%>]</a></b>
</td><td align="right">
点击<b><%=Rs_bz("hit")%></b>人次
</td></tr></table>
<%
bz=bz+1
rs_bz.movenext
if bz>20 then exit do
loop
rs_bz.close
%></td></tr></table>
</td><td style="word-break:break-all" valign="top" bgcolor=#FFF8F0>
<table align="center" width="100%" border="0" bgcolor=#7BD676>
<tr><td align="center">
<font color=#FFFFFF><b><i>□□□</i> 寻梦热点书籍排行榜 <i>□□□</i></b></font></td></tr>
</table>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr bgcolor=#FFF8F0><td style="word-break:break-all"><%
set Rs_h=conn.execute("select top 20 bookid,bookname,hit from book where tuijian>2 and shenhe=1 order by hit desc")
dim j
j=1
do while not rs_h.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
●<b><a href="bookread.asp?bookid=<%=Rs_h("bookid")%>" target="_blank">[<%=Rs_h("bookname")%>]</a></b>
</td><td align="right">
点击<b><%=Rs_h("hit")%></b>人次
</td></tr></table>
<%
j=j+1
rs_h.movenext
if j>20 then exit do
loop
rs_h.close
%></td></tr></table>
</td></tr></table>
<table width="760" border="0" bgcolor=#FFEBCD align="center" cellpadding="5" cellspacing="0">
<tr><td>
<b>友情链接</b>
<a href="http://article.xmsk.net" target="blank">寻梦文摘</a>
<a href="http://www.xxsy.net" target=_blank>潇湘书院</a>
<a href="http://www.yntcs.com" target=_blank>腾冲信息港</a>
<a href="http://bbs.teawu.cn" target=_blank>醉茗轩论坛</a>
<a href="http://www.nwell.net" target="_blank">Ｎ维空间</a>
<a href="http://www.52hlpm.com" target="_blank">红楼品茗</a>
<a href="http://www.haocool.cn" target="_blank">好酷中国</a>
<a href="http://www.guokanb2b.com" target="_blank">过刊交易网</a>
<a href="http://www.9iebook.com" target="_blank">就爱e书网</a>
<a href="http://www.yeguai.com" target="_blank">野怪基地</a><br>
<a href="http://www.ranhan.cn" target="_blank">染翰堂艺术网</a>
<a href="http://www.lugou.com" target="_blank">路狗网</a>
→ <a href=about.asp#6 target=_blank>申请友情链接</a>
<table width=100% border=0 align=center><tr>
<td width=11%><a href=http://www.xmsk.net/index.asp>
<img border=0 src=logo.gif></a>
</td>
<td width=11%><a href="http://www.4a.ads99.net/dl.php?dl_user=xmsk" target="blank">
<img border=0 src=logo/0.gif></a>
</td>
<td width=11%><a href="http://vip.ads8.com/index.php?Referer=9172" target="blank">
<img border=0 src=logo/1.gif></a>
</td>
<td width=11%>
</td>
<td width=11%>
</td>
<td width=11%>
</td>
<td width=11%>
</td>
<td width=11%>
</td>
<td width=11%>
</td>
</tr></table>
</td></tr></table>
<%set conn=nothing
conn.close%>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -