asp关于田字数据显示问题

一、显示样式

 

记录一	记录二
记录三	记录四

<!--#include file=conn.asp-->
<%
     dim k,j
     k=0 '计数器
     j=2'每行要显示的个数
     Set rs = Server.CreateObject("ADODB.Recordset")  
     sql="select * from products order by id desc"
%>

<%   
     Response.Write("<table border=1>")
     rs.Open sql,conn,1,1
  while not rs.eof
     response.Write("<tr>")
     for k=1 to j
        response.Write("<td>"&rs("storage_paths")&"</td>")
        rs.MoveNext
        If rs.Eof Or rs.Bof Then Exit For
     next
        response.Write("</tr>")
  wend
     rs.close
     set rs=nothing
     response.Write("</table>")
%>
二、结合分页显示

<%
dim strSort '保留所选的类的所有子类
dim page
dim maxPerPage '每页显示的产品数
dim num_row '每行显示的产品个数
dim rows '显示的产品行数
imagewidth=130 '小图的宽度
imageheight=96 '小图的高度
num_row=3 '每行放置的产品数
rows=4 '放置的产品行数
maxperpage=num_row*rows
page=Request("page")
if (page="" or isempty(page)) then page=1
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM product ORDER BY id desc"
rs.open sql,conn,1,1
if not rs.eof then
       %>
                  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="310" valign="top">
                        <%
rs.pagesize=MaxPerPage
%>
                        <script language=Javascript>
<!--
function jumpTo(i){
if(i==1){
 this.document.location="product.asp";}
if(i==2){
 this.document.location="product.asp?page=<%=page-1%>";}
if(i==3){
 this.document.location="product.asp?page=<%=page+1%>";}
if(i==4){
 this.document.location="product.asp?page=<%=rs.pageCount%>";}
}
file://-->
                                        </script>
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <%
   j=1
   if not (rs.eof or err) then rs.move (page-1)*maxPerPage
   do while not (rs.eof or err)
    if (j mod num_row)=1 then
%>
                          <tr>
                            <td colspan="<%=(num_row*2-1)%>">
                              <TABLE align=center background="images/global.gif" border=0 cellPadding=0 cellSpacing=0 width="100%">
                                <TBODY>
                                  <TR>
                                    <TD><IMG height=1 src="images/spacer.gif" width=1></TD>
                                  </TR>
                                </TBODY>
                            </TABLE></td>
                          </tr>
                          <%    
     response.write "<tr>"
    end if
%>
              <td width="<%=(100/num_row)%>%" align=center>
                  <table width="100%" border="0" cellspacing="0" cellpadding="3" align="center">
                    <tr>
                      <td align="center" valign="top">
                        <%'if rs("smallphoto")<>"" then%>
                        <table width="140" border="0" cellpadding="0" cellspacing="0" background="img/photo.gif">
                          <tr>
                            <td height="100" align="center">
                              <%if rs("smallph")<>"" then%>
                              <%if rs("bigph")<>"" then%>
                              <a href="prodetail.asp?id=<%=rs("id")%>&page=<%=page%>"><img src="admin/uploadfile/<%=rs("smallph")%>" width="130" height="96" border="0" class="border"></a>
                              <%else%>
                              <a href="prodetail.asp?id=<%=rs("id")%>&page=<%=page%>"><img src="admin/uploadfile/<%=rs("smallph")%>" width="130" height="96" border="0" class="border"></a>
                              <%end if%>
                              <%else%>
                              没有上传图片！
                              <%end if%></td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td align="center" class="0066cc"><%'if rs("content")<>"" then%>
                          <a href="prodetail.asp?id=<%=rs("id")%>&page=<%=page%>"><%=rs("title")%></a>
                          <%'else%>
                          <%'=rs("title")%>
                          <%'end if%></td>
                    </tr>
                </table></td>
                  <%
    if (j mod num_row)=0 then
     response.write "</tr>"
    else %>
                  <TD background="images/point.gif" width=1><IMG
            height=1 src="images/spacer.gif" width=1></TD>
                  <%
    end if
    j=j+1
    if j>maxperpage then exit do
    rs.moveNext
   loop
   dim k
   k=(j-1) mod num_row
'   response.write j
'   response.write "k="&k
   if not (k=0) then
    response.write "<td colspan="&(num_row-k)&" width="&(cint(100/num_row)*(num_row-k))&"> </td>"
    response.write "</tr>"
   end if
%>
              <tr>
                <td colspan="<%=(num_row*2-1)%>">
                  <TABLE align=center background="images/global.gif" border=0 cellPadding=0 cellSpacing=0 width="100%">
                    <TBODY>
                      <TR>
                        <TD><IMG height=1 src="images/spacer.gif" width=1></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td valign="bottom">
                        <table width="100%" border="0" align="center" cellpadding="6" cellspacing="1">
                          <tr>
                            <td align="right" valign="bottom"> <span class="style3">共<%=rs.recordCount%>项　第<%=page%>/<%=rs.pageCount%>页　
                                  <%if page>1 then%>
                                  <a href="Javascript:jumpTo(1)" class="white">首页</a> <a href="Javascript:jumpTo(2)" class="white">上页</a>
                                  <%else%>
                  首页　上页
                  <%end if
if rs.recordCount>page*maxPerPage then%>
                  <a href="Javascript:jumpTo(3)" class="white">下页</a> <a href="Javascript:jumpTo(4)" class="white">尾页</a>
                  <%else%>
                  下页　尾页
                  <%end if
%>
                            </span> </td>
                          </tr>
                      </table></td>
                    </tr>
                  </table>
                  <%else%>
      您还没有录入图片！
      <%end if%>