<% '右框程序 if Request.QueryString("class")<>"" then Set rs = Server.CreateObject("ADODB.Recordset") SQL1 = "Select classname from BookClass where class=" & Request.QueryString("class") rs.Open SQL1,cn,1,1 Session.Contents("classname")=rs("classname") set rs = nothing Set rs = Server.CreateObject("ADODB.Recordset") SQL = "Select * from Book where Title<>'' and class="&request.QueryString("class")&" order by id DESC" rs.Open SQL,cn,1,1 rs.PageSize=10 pagecount=rs.PageCount page=int(request.QueryString ("page")) if page<=0 then page=1 if request.QueryString("page")="" then page=1 end if rs.AbsolutePage=page for i=1 to rs.pagesize if rs.EOF then exit for %>

<% if rs("click") > 10 then '■2 %> <% end if '■2 %> <% if rs("Pic")<>"" then '■1 %> <% end if '■1 %> <% if rs("best")=true then '■2 %> <% end if '■2 %>

文章标题：

热

图

荐

文章提要：<%=rs("as")%>
发布日期：<%=rs("date")%>	本文来自： <% if rs("writer")="" then '■4 %> <%=Sitename%> <% end if '■4 %> <%=rs("writer")%>	点击次数：<%=rs("click")%>

<% rs.movenext next%> <%if page=1 and not page=pagecount then%>

第<%=page%>页 <%for i=1 to pagecount%> &page=<%=i%>"><%=i%> <%next%>&page=<%=page+1%>">下一页

<%elseif page=pagecount and not page=1 then%>

第<%=page%>页 <%for i=1 to pagecount%> &page=<%=i%>"><%=i%> <%next%>&page=<%=page-1%>">上一页

<%elseif page<1 then%>

没有任何记录！

<%elseif page>pagecount then%>

没有任何记录！

<%elseif page=1 and page=pagecount then%> <%else%>

第<%=page%>页 <%for i=1 to pagecount%> &page=<%=i%>"><%=i%> <%next%>&page=<%=page-1%>">上一页 &page=<%=page+1%>">下一页

<% end if rs.close set rs=nothing else dim rs,sql set rs=server.CreateObject("Adodb.recordSet") sql="select * from Book order by date desc" rs.open sql,cn,1,1 rs.PageSize=10 pagecount=rs.PageCount page=int(request.QueryString ("page")) if page<=0 then page=1 if request.QueryString("page")="" then page=1 end if rs.AbsolutePage=page for i=1 to rs.pagesize if rs.EOF then exit for %>

<% if rs("click") > 10 then '■2 %> <% end if '■2 %> <% if rs("Pic")<>"" then '■1 %> <% end if '■1 %> <% if rs("best")=true then '■2 %> <% end if '■2 %>

『 <% response.write ""&getMemberDePict(cint(rs("class")))&"" %> 』

><%=rs("title")%>

热

图

荐

文章提要：<%=rs("as")%>
发布日期：<%=rs("date")%>	本文来自： <% if rs("writer")="" then '■4 %> <%=Sitename%> <% end if '■4 %> <%=rs("writer")%>	点击次数：<%=rs("click")%>

<% rs.movenext next %> <%if page=1 and not page=pagecount then%>

第<%=page%>页 <%for i=1 to pagecount%> <%=i%> <%next%>下一页

<%elseif page=pagecount and not page=1 then%>

第<%=page%>页 <%for i=1 to pagecount%> <%=i%> <%next%>上一页

<%elseif page<1 then%>

没有任何记录！

<%elseif page>pagecount then%>

没有任何记录！

<%elseif page=1 and page=pagecount then%> <%else%>

第<%=page%>页 <%for i=1 to pagecount%> <%=i%> <%next%>上一页下一页

<%end if end if rs.close set rs=nothing %>