一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

简单的浮点论坛[简单的做了一个,扫描一次数据库可得一棵树]

时间:2008-01-18 编辑:简简单单 来源:一聚教程网

-----index.asp------


浮点论坛


    
    
        
        
    
    
 发新贴

    
    

    
    <% set dbr = server.createobject("adodb.recordset")%>
    <% dbr.pagesize = 50 %>
    <% dbr.CacheSize = dbr.pagesize %>
    <% dbr.open "select * from forum where (isdel = 'n') order by id desc",application("oledb") ,1,1%>
    <% msgcount=dbr.recordcount %>
    <% msgpcount=dbr.pagecount %>
    <% pagelist=request("pagelist") %>
    <% if CINT(pagelist) > dbr.pagecount then pagelist = dbr.pagecount %>
    <% if CINT(pagelist) < 1 then pagelist=1 %>
    <% dbr.AbsolutePage=pagelist %>
    <% for i= 1 to dbr.pagesize %>