<% set rsEBook=server.CreateObject("adodb.recordset") ConnectDatabase ' 打开数据库 rsEBook.Open "select ec.classname,(select classname from ebook_class ec_root (nolock) where id=ec.parentid) as classname_root from ebook_class ec (nolock) where ec.id=" & cid, myconn, 0, 1 if not rsEBook.EOF then strClassName = rsEBook("classname") if not isnull(rsEBook("classname_root")) then '不是顶级分类 strClassName = rsEBook("classname_root") & " -> " & strClassName end if end if rsEBook.Close %>

首页 -> <%=strClassName%>

最热下载

<% rsEBook.Open "select top 5 id,cid,title,addtime,gourl from ebook (nolock) where cid=" & cid & " order by show desc,id desc", myconn, 0, 1 do while not rsEBook.EOF %>

·&id=<%=rsEBook("id")%>"><%=rsEBook("title")%>

<% rsEBook.movenext loop rsEBook.close %>

"" then %>

"<%if rsEBook("isbest") then%> class="hot"<%end if%>><%=rsEBook("title")%> (<%=formatdatetime(rsEBook("addtime"),2)%>)

<% else %>

&id=<%=rsEBook("id")%>"<%if rsEBook("isbest") then%> class="hot"<%end if%>><%=rsEBook("title")%> (<%=formatdatetime(rsEBook("addtime"),2)%>)

<% end if i = i + 1 rsEBook.movenext loop rsEBook.Close set rsEBook=nothing CloseDatabase ' 关闭数据库 if i<1 then %>

目前没有数据。

<% end if if i>0 then %>

第<%=pgNo%>页/共<%=Maxpage%>页 | <%if preNo>0 then%>第一页上一页<%else%>第一页上一页<%end if%> <%if postNo<=MaxPage then%>下一页最后页<%else%> 下一页最后页<%end if%> <% end if %>