</tr>
</table>
<table width="98%" height="23" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#E0E0E0"> 图书更新列表 >>></td>
</tr>
</table>
<table width="462" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="462"><table width="100%" align="center" cellspacing=0>
<tbody>
<%
'调用最新图书列表
set rsgx=server.createobject("adodb.recordset")
sqlgx="select top 25 * from list_book order by list_gxdate desc"
rsgx.open sqlgx,conn,1,1
if rsgx.eof and rsgx.bof then
%>
<tr align="center" valign="middle">
<td height=24 colspan="2" class="style1">暂无任何图书列表</td>
</tr>
<%else%>
<%
do while not rsgx.eof
dim classid2
classid2=rsgx("list_class")
set rsgx1=server.createobject("adodb.recordset")
sqlgx1="select * from list_type where typeid="&classid2
rsgx1.open sqlgx1,conn,1,1
gx_name=replace(rsgx("gx_name"),rsgx("list_name"),"")
gx_name=replace(gx_name,"·","")
gx_name=left(gx_name,15)
%>
<tr align="left" valign="middle">
<td width="457" height=24 valign="middle">[<a href="<%=rsgx1("lianjie")%>" target="_blank"><%=rsgx1("list_tpye")%></a>] <a href="book.asp?id=<%=rsgx("id")%>" target="_blank"> <span class=bookname><font color=#000000><%=rsgx("list_name")%></font></span></a> <a href="book_jie_new.asp?id=<%=rsgx("gx_id")%>" target="_blank"> <%=rsgx("gx_zj")%> <%=gx_name%></a> </td>
<td width= 92 nowrap><a href="search.asp?word=<%=rsgx("list_user")%>&xz=zuozhe" target="_blank"><font color="#FF0000"><%=month(rsgx("list_gxdate"))%>-<%=day(rsgx("list_gxdate"))%></font> <%=left(rsgx("list_user"),5)%></a> </td>
</tr>
<%
rsgx.movenext
loop
rsgx.close
set rsgx=nothing
rsgx1.close
set rsgx1=nothing
%>
<%end if%>
</tbody>
</table></td>
</tr>
</table>
</td>
<td width="193" align="center" valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="009999">
<tr>
<td><img src="images/space.gif" width="1" height="1"></td>
</tr>
</table>
<TABLE
width=95% height=113 border=5 align="center" cellPadding=0 cellSpacing=0 borderColor=#ffffff>
<TBODY>
<TR>
<TD><DIV align=center>
<table height=100 cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody>
<tr>
<td height=26 align="center" bordercolor=#cfe1c4 bgcolor=99CCCC>周书友点击榜</td>
</tr>
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
'点击排行开始
set rstjz=server.createobject("adodb.recordset")
sqltj="select top 12 * from list_book order by zhouhits desc"
rstjz.open sqltj,conn,1,1
if rstjz.eof and rstjz.bof then
%>
<tr>
<td align="center">暂无任何排行</td>
</tr>
<%else%>
<%do while not rstjz.eof%>
<tr align="center">
<td height="25"><a href="book.asp?id=<%=rstjz("id")%>"><%=rstjz("list_name")%></a>(<%=rstjz("list_hit")%>)</td>
</tr>
<%rstjz.movenext
loop
rstjz.close
set rstjz=nothing
'点击排行结束
%>
<%end if%>
</table></td>
</tr>
</tbody>
</table>
</DIV></TD>
