asp分页多行多列代码(DIV)

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

把li 的样式加上float，加入固定值的width，只要这个width加起来小于等于整个宽，他可以多列显示
<div style="width:500px">
<ul>
<%for i=0 to 10%>
<li style="width:100px;float:left"><%=i%></li>
<%next%>
</ul>
</div>



<!-- 以下是通用多列多行代码-->
<table>
<% '行循环判断 to后面是行数
for i=1 to 5
%>
<tr>
<% '列循环判断 to后面是列数
for j=1 to 2
if not rs.eof then
%>
<td>显示内空</td>
<%
rs.movenext
else
%>
<td> </td>
<%
end if
next
%>
</tr>
<%
next
%>
</table>


<!-- 以下是通用分页代码-->
<!-- ＃i nclude file="../conn.asp" -->     //路径按自己的设置好
<%
dim i,intPage,page,pre,last,filepath
   set rs = server.CreateObject("adodb.recordset")
    sql="select * from user order by user_ID desc"
       rs.PageSize = 20          //这里设定每页显示的记录数
       rs.CursorLocation = 3
       rs.Open sql,conn,0,2,1    //这里执行你查询SQL并获得结果记录集
       pre = true
       last = true
       page = trim(Request.QueryString("page"))
      
       if len(page) = 0 then
                   intpage = 1
                   pre = false
       else
           if cint(page) =< 1 then
                intpage = 1
                pre = false
           else
               if cint(page) >= rs.PageCount then
                   intpage = rs.PageCount
                   last = false
               else
                    intpage = cint(page)
              end if
          end if
       end if
     if not rs.eof then
          rs.AbsolutePage = intpage
     end if
%>
<!--循环开始-->
<%    
    for i=1 to rs.PageSize
      if rs.EOF or rs.BOF then exit for
   %>
       ..................
      //（以下是要循环显示的内容   ）..................
       ...................
    <%  
      rs.movenext
     next
    %>
<!--循环体结束
分页部分：-->
<table width="99%" border="1" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
    <tr>
      <%if rs.pagecount > 0 then%>
      <td width="13%" align="left">当前页<%=intpage%>/<%=rs.PageCount%></td>
      <%else%>
     <td width="41%" align="left">当前页0/0</td><%end if%>
     <td width="46%" align="right"> <a href="本页.asp?page=1">首页</a>| 
      <%if pre then%>
     <%if rs.pagecount =1 then '判断是否显示上页、下页
     Response.Write""
    else %>
      <a href="本页.asp?page=<%=intpage -1%>">上页</a>| <%end if%>
      <%if last then%>
       <a href="本页.asp?page=<%=intpage +1%>">下页</a> |
<%end if
end if%>
       <a href="本页.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
       <select name="sel_page" >
       <%
        for i = 1 to rs.PageCount
        if i = intpage then%>
        <option value="本页.asp?page=<%=i%>" selected><%=i%></option>
      <%else%>
        <option value="本页.asp?page=<%=i%>"><%=i%></option>
         <%
           end if
         next
         %>
      </select>页</font> 
     </td>
     </tr>
    </table>



下面是DIV的多行多列，试试

<style>
<!--
ul            { margin:0; padding:0; float: left }
li            { list-style-type: none;}
-->
</style>
<DIV>
<% 
for i=1 to 6 '行循环判断 to后面是列数
%>
<ul>
<% 
for j=1 to 4 '列循环判断 to后面是行数
if not rs.eof then
%>
<li>
<img border="1" height="131" src="http://iamh.cn/blog/images/cc.png" width="98">
</li>
<%
rs.movenext
else
%>
</li>
<%
end if
next
%>
</ul>
<%
next
%>
</DIV>
<%end if%>