如这里是坚排显示:
如何改成像这样的横排显示呀:

还有如何把酷购主页新品展示由两行四列变为三行四列呀
 
										
					
	具体应该怎么操作下呢?能说的详细一些吗,谢谢高手了
就是竖排的代码?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim catid,i,strcat
catid=SafeRequest("catid",1)
CatList =catid
PID = catid
         if catid="" or catid = 0 then
             conn.close
            set conn = Nothing
             response.Redirect "procat.asp"
            response.end
         end if
    
         set rs=server.CreateObject("adodb.recordset")
        do while not PID = 0
         rs.open "Select categoryid,category,ParentID From category Where categoryid="&PID,conn,1,1
         
         if rs.eof and rs.bof then
        response.Write "<script LANGUAGE='javascript'>alert('您输入的参数非法,请正确操作!');history.go(-1);</script>"
        rs.close
        set rs = Nothing
        conn.Close
        set conn=nothing
        response.end
        end if
         lstcat = "-><a href=cat.asp?catid="&rs("categoryid")&">"&rs("category")&"</a>"&lstcat
         catstr = ""&rs("category")&"->"&catstr
         CaID = PID
         CatN = rs("category")
         PID = rs("ParentID")
         rs.close 
         loop
         
         rs.open "Select category,meta From category Where categoryid="&catid,conn,1,1
          strcat = rs("category")
          strmeta = rs("meta")
          strintro = rs("intro")
          strpredate=rs("predate")
          strproductdate=rs("productdate")
          strother=rs("other")
          strgrade=rs("grade")
          strpretype=rs("pretype")
          strtype=rs("type")
          rs.close 
         set rs = Nothing        
         %>
<title><%=catstr %><%=webname%>--</title>
<meta name="description" content="虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 互联在线,全新体验:网站建设,国际域名,虚拟主机,企业邮箱,短信网址,国外空间,网站推广,电子商务,www.szze.com等....">
<meta name="keywords" content="互联在线,全新体验:虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 网站建设,国际域名,虚拟主机,企业邮箱,短信网址,电子商务,国外空间,网站推广。">
<META content=<%=strmeta %>,name=keywords>
<META content=<%=strintro %>,name=description>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/koogou.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<!--#include file="include/header.asp"-->
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
    <td rowspan="3" width="212" height="446" valign="top"> 
      <table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
        </tr>
        <tr> 
          <td background="image/images/left_02.gif" width="212" height="127"> 
            <!-- #include file="login.asp"-->
          </td>
        </tr>
        <tr> 
          <td width="212"  valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="4"></td>
              </tr>
            </table>
            <% if left1<>"" then %>
            <a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a> 
            <% end if %>
            <!--左侧-->
            <br>
            <% if left2<>"" then %>
            <a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a> 
            <% end if %>
            <!--左侧-->
          </td>
        </tr>
      </table>
      <table height=43 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/contact.gif 
border=0>
        <tbody> 
        <tr> 
          <td  valign=top> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table cellspacing=0 cellpadding=0 width="100%" 
                              border=0 height="35">
              <tbody> 
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top><img 
                                src="img/left_customer_01.gif" 
                                align=absMiddle width="21" height="14"><b><%= tel %></b></td>
              </tr>
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top height=10><img 
                                src="img/left_customer_02.gif" 
                                align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
        <tbody></tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
    </td>
    <td rowspan="3" width="747" valign="top"> 
      <table width="747" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> 
            <!-- #include file="ad.asp"-->
          </td>
        </tr>
        <tr> 
          <td height="57" background="image/CATAGORY.gif"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="44%"> </td>
                <td width="56%"><a href="index.asp"><b> <font  
                    face=Arial><font color="#3399CC"><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b>-><a href="textlink.asp?catid=<% = catid %>"><b><font color="FF6600">文字显示商品</font></b></a></font></font> </b></a> 
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table width="50%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="3"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="right"> 
            <!--#include file="include/catnews.asp"-->
          </td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="747" border=0 height="590">
        <tbody> 
        <tr> 
          <td class=ml width="11"></td>
          <td class=ml width="1" background="image/line.gif"></td>
          <td class=ml width="10"></td>
          <td align=left width="716" valign="top"> 
            <TABLE width="716" align=center>
              <TBODY> 
              <TR> 
                <TD class=mm> 
                  <TABLE WIDTH="710" BORDER="0" ALIGN="center"  CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
                    <tr> 
                      <td width="580" valign="top" align="center"> 
                        <table border="0" cellpadding="0" cellspacing="0" width="710">
                          <tr> 
                            <td width="380" valign="top" class=table-youxia align="left">  
                            </td>
                            <td width="200" valign="top" class=table-xia align="center">  
                            </td>
                          </tr>
                          <tr> 
                            <td width="580" valign="top" align="center" colspan="2"> 
                              <%
                Const MaxPerPage=10
                   dim totalPut   
                   dim CurrentPage
                   dim TotalPages
                   dim j
                   dim sql
                    if Not isempty(SafeRequest("page",1)) then
                      currentPage=Cint(SafeRequest("page",1))
                   else
                      currentPage=1
                   end if 
         set rs=server.CreateObject("adodb.recordset")
           rs.open "select prename,company,mark,other,grade,pretype,type,predate,productdate,intro,name,id,introduce,price1,price2,discount,pic,stock from product where categoryid in ("& CatList&") and stock >= 0 order by adddate desc",conn,1,1 
                    
                  if rs.eof And rs.bof then
                       Response.Write "<p align='center' class='contents'> 对不起,此分类暂时还没有商品!</p>"
                   else
                      totalPut=rs.recordcount
                      if currentpage<1 then
                          currentpage=1
                      end if
                      if (currentpage-1)*MaxPerPage>totalput then
                           if (totalPut mod MaxPerPage)=0 then
                             currentpage= totalPut \ MaxPerPage
                           else
                              currentpage= totalPut \ MaxPerPage + 1
                           end if
                      end if
                       if currentPage=1 then
                        showContent
                        showpage totalput,MaxPerPage,"cat.asp"
                       else
                          if (currentPage-1)*MaxPerPage<totalPut then
                            rs.move  (currentPage-1)*MaxPerPage
                            dim bookmark
                            bookmark=rs.bookmark
                            showContent
                             showpage totalput,MaxPerPage,"cat.asp"
                        else
                            currentPage=1
                               showContent
                               showpage totalput,MaxPerPage,"cat.asp"
                          end if
                       end if
                                      end if
                   sub showContent
                   dim i
                   i=0
            %>
                              <table width="716" border="0" align="center" cellpadding="0" cellspacing="0" height="195">
                                <%
            do while not rs.eof%>
                                <tr valign="top"> 
                                  <td width="20%" align="center" class=table-xia> 
                                    <TABLE WIDTH="140" HEIGHT="140" BORDER="0" CELLPADDING="0" CELLSPACING="0">
                                      <TR> 
                                        <TD height="140" width="140" colspan="2" align="center"> 
                                          <a href=product.asp?id=<% = rs("id") %> target="_blank"> 
                                          <% if trim(rs("pic"))<>"" then %>
                                          </a> 
                                          <table class="kuang" border="0" cellspacing="1" cellpadding="1">
                                            <tr> 
                                              <td> 
                                                <table border="0" cellspacing="5" cellpadding="5">
                                                  <tr> 
                                                    <td><a href=product.asp?id=<% = rs("id") %> target="_blank"><img src=<% = trim(rs("pic"))%>  border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a></td>
                                                  </tr>
                                                </table>
                                              </td>
                                            </tr>
                                          </table>
                                          
                                          <%  else %>
                                          <img src=images/emptybook.jpg  border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a> 
                                          <% end if %>
                                        </TD>
                                      </TR>
                                    </TABLE>
                                  </td>
                                  <td width="80%" class=table-xia> 
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="6%"> </td>
                                        <td width="94%" valign="top"> 
                                          <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" height="222">
                                            <tr> 
                                              <td colspan="3"> <a href=product.asp?id=<%=rs("id")%>><font color="#227776"><b><%=trim(rs("name"))%></b></font></a> 
                                                <hr size="1" class="h2">
                                              </td>
                                            </tr>
                                            <tr> 
                                              <td colspan="3"> <%=trim(rs("company"))%><a href=timesmark.asp?MarkName=<% = rs("mark") %>><font color="#FF6600"> 
                                                <% = rs("mark") %>
                                                </font></a></td>
                                            </tr>
                                            <tr> 
                                              <td colspan="3"><%=trim(rs("intro"))%><%=trim(rs("introduce"))%></td>
                                            </tr>
                                            <tr> 
                                              <td> 
                                                <% = rs("predate") %>
                                                <%=trim(rs("productdate"))%></td>
                                              <td> 
                                                <% = rs("other") %>
                                                <%=trim(rs("grade"))%></td>
                                              <td> 
                                                <% = rs("pretype") %>
                                                <%=trim(rs("type"))%></td>
                                            </tr>
                                            <tr> 
                                              <td width="37%"> </td>
                                              <td width="32%">会 员 价:<FONT COLOR="#FF6600">¥</FONT><font color=red><%=rs("price2")%>元</font></td>
                                              <td width="31%"> </td>
                                            </tr>
                                            <% if rs("stock") > 0 then %>
                                            <TR align="center"> 
                                              <TD colspan="3"> 
                                                <table width="55%" border="0" cellspacing="0" cellpadding="0" align="left">
                                                  <tr> 
                                                    <td><a href="check.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=images/skin/default/addto_big.gif align=absmiddle border=0></a></td>
                                                    <td> </td>
                                                  </tr>
                                                </table>
                                              </TD>
                                            </TR>
                                            <% else %>
                                            <tr> 
                                              <td colspan="3" align="center"><font color="#FF6600">暂时缺货</font></td>
                                            </tr>
                                            <% end if %>
                                          </table>                              
                                        </td>
                                      </tr>
                                    </table>
                                    
                                  </td>
                                </tr>
                                <tr> 
                                  <td colspan="2" valign="middle" align="center" class=table-xia>
                                    <hr size="1" dashed color="#DAE9E7" width="100%" class="h1">
                                  </td>
                                </tr>
                                <%
            i=i+1
            if i>=MaxPerPage then Exit Do
            rs.movenext
            loop
            rs.close
            set rs=nothing
            %>
                              </table>
                              <%  
                End Sub   
  
                Function showpage(totalnumber,maxperpage,filename)  
                  Dim n
                  
                If totalnumber Mod maxperpage=0 Then  
                    n= totalnumber \ maxperpage  
                Else
                    n= totalnumber \ maxperpage+1  
                End If %>
                              <form method=Post action=<% = filename %>?catid=<% = catid %>>
                                
                                <%
                If CurrentPage<2 Then  %><div align="center">
                                首页 上页 
                                <% Else  %><div align="center">
                                <a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a> 
                                <a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a> 
                                <%
                End If
                If n-currentpage<1 Then  %>
                                下页 尾页 
                                <%    Else  %>
                                <a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a> 
                                <a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a> 
                                <%    End If  %>
                                第 <b> 
                                <% = CurrentPage %>
                                </b>页 共 <b> 
                                <% = n %>
                                </b>页 共 <b> 
                                <% = totalnumber %>
                                </b>件商品 每页 <b> 
                                <% = maxperpage %>
                                </b> 件商品 转到第: 
                                <input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>
                                页 
                                <input type='submit'  class='contents' value='跳转' name='cndok'>
                              </form>
                              <%
                End Function  
            %>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </TD>
              </TR>
              </TBODY> 
            </TABLE>
          </td>
          <td class=mr width="10"></td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td rowspan="3" width="15">  </td>
  </tr>
  <tr> 
    <td width="29" height="48">  </td>
  </tr>
  <tr> 
    <td height="29"> 
      <p> </p>
      <p>  </p>
    </td>
  </tr>
</table>
<!--#include file="include/footer.asp"-->
</BODY></HTML>
请问应该如何操作呢

请问具体应该如何操作呢?
这里代码?
具体应该怎么操作下呢?能说的详细一些吗,谢谢高手了
就是竖排的代码?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim catid,i,strcat
catid=SafeRequest("catid",1)
CatList =catid
PID = catid
         if catid="" or catid = 0 then
             conn.close
            set conn = Nothing
             response.Redirect "procat.asp"
            response.end
         end if
    
         set rs=server.CreateObject("adodb.recordset")
        do while not PID = 0
         rs.open "Select categoryid,category,ParentID From category Where categoryid="&PID,conn,1,1
         
         if rs.eof and rs.bof then
        response.Write "<script LANGUAGE='javascript'>alert('您输入的参数非法,请正确操作!');history.go(-1);</script>"
        rs.close
        set rs = Nothing
        conn.Close
        set conn=nothing
        response.end
        end if
         lstcat = "-><a href=cat.asp?catid="&rs("categoryid")&">"&rs("category")&"</a>"&lstcat
         catstr = ""&rs("category")&"->"&catstr
         CaID = PID
         CatN = rs("category")
         PID = rs("ParentID")
         rs.close 
         loop
         
         rs.open "Select category,meta From category Where categoryid="&catid,conn,1,1
          strcat = rs("category")
          strmeta = rs("meta")
          strintro = rs("intro")
          strpredate=rs("predate")
          strproductdate=rs("productdate")
          strother=rs("other")
          strgrade=rs("grade")
          strpretype=rs("pretype")
          strtype=rs("type")
          rs.close 
         set rs = Nothing        
         %>
<title><%=catstr %><%=webname%>--</title>
<meta name="description" content="虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 互联在线,全新体验:网站建设,国际域名,虚拟主机,企业邮箱,短信网址,国外空间,网站推广,电子商务,www.szze.com等....">
<meta name="keywords" content="互联在线,全新体验:虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 网站建设,国际域名,虚拟主机,企业邮箱,短信网址,电子商务,国外空间,网站推广。">
<META content=<%=strmeta %>,name=keywords>
<META content=<%=strintro %>,name=description>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/koogou.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<!--#include file="include/header.asp"-->
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
    <td rowspan="3" width="212" height="446" valign="top"> 
      <table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
        </tr>
        <tr> 
          <td background="image/images/left_02.gif" width="212" height="127"> 
            <!-- #include file="login.asp"-->
          </td>
        </tr>
        <tr> 
          <td width="212"  valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="4"></td>
              </tr>
            </table>
            <% if left1<>"" then %>
            <a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a> 
            <% end if %>
            <!--左侧-->
            <br>
            <% if left2<>"" then %>
            <a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a> 
            <% end if %>
            <!--左侧-->
          </td>
        </tr>
      </table>
      <table height=43 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/contact.gif 
border=0>
        <tbody> 
        <tr> 
          <td  valign=top> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table cellspacing=0 cellpadding=0 width="100%" 
                              border=0 height="35">
              <tbody> 
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top><img 
                                src="img/left_customer_01.gif" 
                                align=absMiddle width="21" height="14"><b><%= tel %></b></td>
              </tr>
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top height=10><img 
                                src="img/left_customer_02.gif" 
                                align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
        <tbody></tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
    </td>
    <td rowspan="3" width="747" valign="top"> 
      <table width="747" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> 
            <!-- #include file="ad.asp"-->
          </td>
        </tr>
        <tr> 
          <td height="57" background="image/CATAGORY.gif"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="44%"> </td>
                <td width="56%"><a href="index.asp"><b> <font  
                    face=Arial><font color="#3399CC"><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b>-><a href="textlink.asp?catid=<% = catid %>"><b><font color="FF6600">文字显示商品</font></b></a></font></font> </b></a> 
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table width="50%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="3"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="right"> 
            <!--#include file="include/catnews.asp"-->
          </td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="747" border=0 height="590">
        <tbody> 
        <tr> 
          <td class=ml width="11"></td>
          <td class=ml width="1" background="image/line.gif"></td>
          <td class=ml width="10"></td>
          <td align=left width="716" valign="top"> 
            <TABLE width="716" align=center>
              <TBODY> 
              <TR> 
                <TD class=mm> 
                  <TABLE WIDTH="710" BORDER="0" ALIGN="center"  CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
                    <tr> 
                      <td width="580" valign="top" align="center"> 
                        <table border="0" cellpadding="0" cellspacing="0" width="710">
                          <tr> 
                            <td width="380" valign="top" class=table-youxia align="left">  
                            </td>
                            <td width="200" valign="top" class=table-xia align="center">  
                            </td>
                          </tr>
                          <tr> 
                            <td width="580" valign="top" align="center" colspan="2"> 
                              <%
                Const MaxPerPage=10
                   dim totalPut   
                   dim CurrentPage
                   dim TotalPages
                   dim j
                   dim sql
                    if Not isempty(SafeRequest("page",1)) then
                      currentPage=Cint(SafeRequest("page",1))
                   else
                      currentPage=1
                   end if 
         set rs=server.CreateObject("adodb.recordset")
           rs.open "select prename,company,mark,other,grade,pretype,type,predate,productdate,intro,name,id,introduce,price1,price2,discount,pic,stock from product where categoryid in ("& CatList&") and stock >= 0 order by adddate desc",conn,1,1 
                    
                  if rs.eof And rs.bof then
                       Response.Write "<p align='center' class='contents'> 对不起,此分类暂时还没有商品!</p>"
                   else
                      totalPut=rs.recordcount
                      if currentpage<1 then
                          currentpage=1
                      end if
                      if (currentpage-1)*MaxPerPage>totalput then
                           if (totalPut mod MaxPerPage)=0 then
                             currentpage= totalPut \ MaxPerPage
                           else
                              currentpage= totalPut \ MaxPerPage + 1
                           end if
                      end if
                       if currentPage=1 then
                        showContent
                        showpage totalput,MaxPerPage,"cat.asp"
                       else
                          if (currentPage-1)*MaxPerPage<totalPut then
                            rs.move  (currentPage-1)*MaxPerPage
                            dim bookmark
                            bookmark=rs.bookmark
                            showContent
                             showpage totalput,MaxPerPage,"cat.asp"
                        else
                            currentPage=1
                               showContent
                               showpage totalput,MaxPerPage,"cat.asp"
                          end if
                       end if
                                      end if
                   sub showContent
                   dim i
                   i=0
            %>
                              <table width="716" border="0" align="center" cellpadding="0" cellspacing="0" height="195">
                                <%
            do while not rs.eof%>
                                <tr valign="top"> 
                                  <td width="20%" align="center" class=table-xia> 
                                    <TABLE WIDTH="140" HEIGHT="140" BORDER="0" CELLPADDING="0" CELLSPACING="0">
                                      <TR> 
                                        <TD height="140" width="140" colspan="2" align="center"> 
                                          <a href=product.asp?id=<% = rs("id") %> target="_blank"> 
                                          <% if trim(rs("pic"))<>"" then %>
                                          </a> 
                                          <table class="kuang" border="0" cellspacing="1" cellpadding="1">
                                            <tr> 
                                              <td> 
                                                <table border="0" cellspacing="5" cellpadding="5">
                                                  <tr> 
                                                    <td><a href=product.asp?id=<% = rs("id") %> target="_blank"><img src=<% = trim(rs("pic"))%>  border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a></td>
                                                  </tr>
                                                </table>
                                              </td>
                                            </tr>
                                          </table>
                                          
                                          <%  else %>
                                          <img src=images/emptybook.jpg  border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a> 
                                          <% end if %>
                                        </TD>
                                      </TR>
                                    </TABLE>
                                  </td>
                                  <td width="80%" class=table-xia> 
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="6%"> </td>
                                        <td width="94%" valign="top"> 
                                          <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" height="222">
                                            <tr> 
                                              <td colspan="3"> <a href=product.asp?id=<%=rs("id")%>><font color="#227776"><b><%=trim(rs("name"))%></b></font></a> 
                                                <hr size="1" class="h2">
                                              </td>
                                            </tr>
                                            <tr> 
                                              <td colspan="3"> <%=trim(rs("company"))%><a href=timesmark.asp?MarkName=<% = rs("mark") %>><font color="#FF6600"> 
                                                <% = rs("mark") %>
                                                </font></a></td>
                                            </tr>
                                            <tr> 
                                              <td colspan="3"><%=trim(rs("intro"))%><%=trim(rs("introduce"))%></td>
                                            </tr>
                                            <tr> 
                                              <td> 
                                                <% = rs("predate") %>
                                                <%=trim(rs("productdate"))%></td>
                                              <td> 
                                                <% = rs("other") %>
                                                <%=trim(rs("grade"))%></td>
                                              <td> 
                                                <% = rs("pretype") %>
                                                <%=trim(rs("type"))%></td>
                                            </tr>
                                            <tr> 
                                              <td width="37%"> </td>
                                              <td width="32%">会 员 价:<FONT COLOR="#FF6600">¥</FONT><font color=red><%=rs("price2")%>元</font></td>
                                              <td width="31%"> </td>
                                            </tr>
                                            <% if rs("stock") > 0 then %>
                                            <TR align="center"> 
                                              <TD colspan="3"> 
                                                <table width="55%" border="0" cellspacing="0" cellpadding="0" align="left">
                                                  <tr> 
                                                    <td><a href="check.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=images/skin/default/addto_big.gif align=absmiddle border=0></a></td>
                                                    <td> </td>
                                                  </tr>
                                                </table>
                                              </TD>
                                            </TR>
                                            <% else %>
                                            <tr> 
                                              <td colspan="3" align="center"><font color="#FF6600">暂时缺货</font></td>
                                            </tr>
                                            <% end if %>
                                          </table>                              
                                        </td>
                                      </tr>
                                    </table>
                                    
                                  </td>
                                </tr>
                                <tr> 
                                  <td colspan="2" valign="middle" align="center" class=table-xia>
                                    <hr size="1" dashed color="#DAE9E7" width="100%" class="h1">
                                  </td>
                                </tr>
                                <%
            i=i+1
            if i>=MaxPerPage then Exit Do
            rs.movenext
            loop
            rs.close
            set rs=nothing
            %>
                              </table>
                              <%  
                End Sub   
  
                Function showpage(totalnumber,maxperpage,filename)  
                  Dim n
                  
                If totalnumber Mod maxperpage=0 Then  
                    n= totalnumber \ maxperpage  
                Else
                    n= totalnumber \ maxperpage+1  
                End If %>
                              <form method=Post action=<% = filename %>?catid=<% = catid %>>
                                
                                <%
                If CurrentPage<2 Then  %><div align="center">
                                首页 上页 
                                <% Else  %><div align="center">
                                <a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a> 
                                <a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a> 
                                <%
                End If
                If n-currentpage<1 Then  %>
                                下页 尾页 
                                <%    Else  %>
                                <a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a> 
                                <a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a> 
                                <%    End If  %>
                                第 <b> 
                                <% = CurrentPage %>
                                </b>页 共 <b> 
                                <% = n %>
                                </b>页 共 <b> 
                                <% = totalnumber %>
                                </b>件商品 每页 <b> 
                                <% = maxperpage %>
                                </b> 件商品 转到第: 
                                <input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>
                                页 
                                <input type='submit'  class='contents' value='跳转' name='cndok'>
                              </form>
                              <%
                End Function  
            %>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </TD>
              </TR>
              </TBODY> 
            </TABLE>
          </td>
          <td class=mr width="10"></td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td rowspan="3" width="15">  </td>
  </tr>
  <tr> 
    <td width="29" height="48">  </td>
  </tr>
  <tr> 
    <td height="29"> 
      <p> </p>
      <p>  </p>
    </td>
  </tr>
</table>
<!--#include file="include/footer.asp"-->
</BODY></HTML>
请问应该如何操作呢

<style>
#div1 {
width: 402px !important;
width: 400px;
border-top: 1px solid #000;
border-left: 1px solid #000;
float: left;
}
#div1 ul {
width: 402px !important;
width: 400px;
margin: 0px;
padding: 0px;
}
#div1 li {
float: left;
width: 200px;
height: 50px;
list-style-type: none;
border-right:#000 1px solid;
border-bottom: #000 1px solid;
text-align: center;
line-height: 50px;
}
</style>
<div id=\"div1\">
<ul>
<li>1</li>
<li>2</li>
<li>3</li>
<li>4</li>
<li>5</li>
<li>6</li>
</ul>
</div>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim catid,i,strcat
catid=SafeRequest("catid",1)
CatList =catid
PID = catid
         if catid="" or catid = 0 then
             conn.close
            set conn = Nothing
             response.Redirect "procat.asp"
            response.end
         end if
    
         set rs=server.CreateObject("adodb.recordset")
        do while not PID = 0
         rs.open "Select categoryid,category,ParentID From category Where categoryid="&PID,conn,1,1
         
         if rs.eof and rs.bof then
        response.Write "<script LANGUAGE='javascript'>alert('您输入的参数非法,请正确操作!');history.go(-1);</script>"
        rs.close
        set rs = Nothing
        conn.Close
        set conn=nothing
        response.end
        end if
         lstcat = "-><a href=cat.asp?catid="&rs("categoryid")&">"&rs("category")&"</a>"&lstcat
         catstr = ""&rs("category")&"->"&catstr
         CaID = PID
         CatN = rs("category")
         PID = rs("ParentID")
         rs.close 
         loop
         
         rs.open "Select category,meta From category Where categoryid="&catid,conn,1,1
          strcat = rs("category")
          strmeta = rs("meta")
          strintro = rs("intro")
          strpredate=rs("predate")
          strproductdate=rs("productdate")
          strother=rs("other")
          strgrade=rs("grade")
          strpretype=rs("pretype")
          strtype=rs("type")
          rs.close 
         set rs = Nothing        
         %>
<title><%=catstr %><%=webname%>--</title>
<meta name="description" content="虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 互联在线,全新体验:网站建设,国际域名,虚拟主机,企业邮箱,短信网址,国外空间,网站推广,电子商务,www.szze.com等....">
<meta name="keywords" content="互联在线,全新体验:虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 网站建设,国际域名,虚拟主机,企业邮箱,短信网址,电子商务,国外空间,网站推广。">
<META content=<%=strmeta %>,name=keywords>
<META content=<%=strintro %>,name=description>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/koogou.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<!--#include file="include/header.asp"-->
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
    <td rowspan="3" width="212" height="446" valign="top"> 
      <table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
        </tr>
        <tr> 
          <td background="image/images/left_02.gif" width="212" height="127"> 
            <!-- #include file="login.asp"-->
          </td>
        </tr>
        <tr> 
          <td width="212"  valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="4"></td>
              </tr>
            </table>
            <% if left1<>"" then %>
            <a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a> 
            <% end if %>
            <!--左侧-->
            <br>
            <% if left2<>"" then %>
            <a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a> 
            <% end if %>
            <!--左侧-->
          </td>
        </tr>
      </table>
      <table height=43 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/contact.gif 
border=0>
        <tbody> 
        <tr> 
          <td  valign=top> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table cellspacing=0 cellpadding=0 width="100%" 
                              border=0 height="35">
              <tbody> 
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top><img 
                                src="img/left_customer_01.gif" 
                                align=absMiddle width="21" height="14"><b><%= tel %></b></td>
              </tr>
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top height=10><img 
                                src="img/left_customer_02.gif" 
                                align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
        <tbody></tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
    </td>
    <td rowspan="3" width="747" valign="top"> 
      <table width="747" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> 
            <!-- #include file="ad.asp"-->
          </td>
        </tr>
        <tr> 
          <td height="57" background="image/CATAGORY.gif"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="44%"> </td>
                <td width="56%"><a href="index.asp"><b> <font  
                    face=Arial><font color="#3399CC"><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b>-><a href="textlink.asp?catid=<% = catid %>"><b><font color="FF6600">文字显示商品</font></b></a></font></font> </b></a> 
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table width="50%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="3"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="right"> 
            <!--#include file="include/catnews.asp"-->
          </td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="747" border=0 height="590">
        <tbody> 
        <tr> 
          <td class=ml width="11"></td>
          <td class=ml width="1" background="image/line.gif"></td>
          <td class=ml width="10"></td>
          <td align=left width="716" valign="top"> 
            <TABLE width="716" align=center>
              <TBODY> 
              <TR> 
                <TD class=mm> 
                  <TABLE WIDTH="710" BORDER="0" ALIGN="center"  CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
                    <tr> 
                      <td width="580" valign="top" align="center"> 
                        <table border="0" cellpadding="0" cellspacing="0" width="710">
                          <tr> 
                            <td width="380" valign="top" class=table-youxia align="left">  
                            </td>
                            <td width="200" valign="top" class=table-xia align="center">  
                            </td>
                          </tr>
                          <tr> 
                             <td align="right" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                              <%
                Const MaxPerPage=30
                   dim totalPut   
                   dim CurrentPage
                   dim TotalPages
                   dim j
                   dim sql
                    if Not isempty(SafeRequest("page",1)) then
                      currentPage=Cint(SafeRequest("page",1))
                   else
                      currentPage=1
                   end if 
         set rs=server.CreateObject("adodb.recordset")
           rs.open "select prename,company,mark,other,grade,pretype,type,predate,productdate,intro,name,id,introduce,price1,price2,discount,pic,stock from product where categoryid in ("& CatList&") and stock >= 0 order by adddate desc",conn,1,1 
                    
                  if rs.eof And rs.bof then
                       Response.Write "<p align='center' class='contents'> 对不起,此分类暂时还没有商品!</p>"
                   else
                      totalPut=rs.recordcount
                      if currentpage<1 then
                          currentpage=1
                      end if
                      if (currentpage-1)*MaxPerPage>totalput then
                           if (totalPut mod MaxPerPage)=0 then
                             currentpage= totalPut \ MaxPerPage
                           else
                              currentpage= totalPut \ MaxPerPage + 1
                           end if
                      end if
                       if currentPage=1 then
                        showContent
                        showpage totalput,MaxPerPage,"cat.asp"
                       else
                          if (currentPage-1)*MaxPerPage<totalPut then
                            rs.move  (currentPage-1)*MaxPerPage
                            dim bookmark
                            bookmark=rs.bookmark
                            showContent
                             showpage totalput,MaxPerPage,"cat.asp"
                        else
                            currentPage=1
                               showContent
                               showpage totalput,MaxPerPage,"cat.asp"
                          end if
                       end if
                                      end if
                   sub showContent
                   dim i
                   i=0
            %>
                              <table width="716" border="0" align="center" cellpadding="0" cellspacing="0" height="195">
                                <%
            do while not rs.eof%>
                                <tr valign="top"> 
                                  <td width="20%" align="center" class=table-xia> 
                                    <TABLE WIDTH="140" HEIGHT="140" BORDER="0" CELLPADDING="0" CELLSPACING="0">
                                      <TR> 
                                        <TD height="140" width="140" colspan="2" align="center"> 
                                          <a href=product.asp?id=<% = rs("id") %> target="_blank"> 
                                          <% if trim(rs("pic"))<>"" then %>
                                          </a> 
                                          <table class="kuang" border="0" cellspacing="1" cellpadding="1">
                                            <tr> 
                                              <td> 
                                                <table border="0" cellspacing="5" cellpadding="5">
                                                  <tr> 
                                                    <td><a href=product.asp?id=<% = rs("id") %> target="_blank"><img src=<% = trim(rs("pic"))%>  border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a></td>
                                                  </tr>
                                                </table>
                                              </td>
                                            </tr>
                                          </table>
                                          
                                          <%  else %>
                                          <img src=images/emptybook.jpg  border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a> 
                                          <% end if %>
                                        </TD>
                                      </TR>
                                    </TABLE>
                                  </td>
                                  <td width="80%" class=table-xia> 
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="6%"> </td>
                                        <td width="94%" valign="top"> 
                                          <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" height="222">
                                            <tr> 
                                              <td colspan="3"> <a href=product.asp?id=<%=rs("id")%>><font color="#227776"><b><%=trim(rs("name"))%></b></font></a> 
                                                <hr size="1" class="h2">
                                              </td>
                                            </tr>
                                            <tr> 
                                              <td colspan="3"> <%=trim(rs("company"))%><a href=timesmark.asp?MarkName=<% = rs("mark") %>><font color="#FF6600"> 
                                                <% = rs("mark") %>
                                                </font></a></td>
                                            </tr>
                                            <tr> 
                                              <td colspan="3"><%=trim(rs("intro"))%><%=trim(rs("introduce"))%></td>
                                            </tr>
                                            <tr> 
                                              <td> 
                                                <% = rs("predate") %>
                                                <%=trim(rs("productdate"))%></td>
                                              <td> 
                                                <% = rs("other") %>
                                                <%=trim(rs("grade"))%></td>
                                              <td> 
                                                <% = rs("pretype") %>
                                                <%=trim(rs("type"))%></td>
                                            </tr>
                                            <tr> 
                                              <td width="37%"> </td>
                                              <td width="32%">会 员 价:<FONT COLOR="#FF6600">¥</FONT><font color=red><%=rs("price2")%>元</font></td>
                                              <td width="31%"> </td>
                                            </tr>
                                            <% if rs("stock") > 0 then %>
                                            <TR align="center"> 
                                              <TD colspan="3"> 
                                                <table width="55%" border="0" cellspacing="0" cellpadding="0" align="left">
                                                  <tr> 
                                                    <td><a href="check.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=images/skin/default/addto_big.gif align=absmiddle border=0></a></td>
                                                    <td> </td>
                                                  </tr>
                                                </table>
                                              </TD>
                                            </TR>
                                            <% else %>
                                            <tr> 
                                              <td colspan="3" align="center"><font color="#FF6600">暂时缺货</font></td>
                                            </tr>
                                            <% end if %>
                                          </table>                              
                                        </td>
                                      </tr>
                                    </table>
                                    
                                  </td>
                                </tr>
                                <tr> 
                                  <td colspan="2" valign="middle" align="center" class=table-xia>
                                    <hr size="1" dashed color="#DAE9E7" width="100%" class="h1">
                                  </td>
                                </tr>
                                <%
            i=i+1
            if i>=MaxPerPage then Exit Do
            rs.movenext
            loop
            rs.close
            set rs=nothing
            %>
                              </table>
                              <%  
                End Sub   
  
                Function showpage(totalnumber,maxperpage,filename)  
                  Dim n
                  
                If totalnumber Mod maxperpage=0 Then  
                    n= totalnumber \ maxperpage  
                Else
                    n= totalnumber \ maxperpage+1  
                End If %>
                              <form method=Post action=<% = filename %>?catid=<% = catid %>>
                                
                                <%
                If CurrentPage<2 Then  %><div align="center">
                                首页 上页 
                                <% Else  %><div align="center">
                                <a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a> 
                                <a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a> 
                                <%
                End If
                If n-currentpage<1 Then  %>
                                下页 尾页 
                                <%    Else  %>
                                <a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a> 
                                <a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a> 
                                <%    End If  %>
                                第 <b> 
                                <% = CurrentPage %>
                                </b>页 共 <b> 
                                <% = n %>
                                </b>页 共 <b> 
                                <% = totalnumber %>
                                </b>件商品 每页 <b> 
                                <% = maxperpage %>
                                </b> 件商品 转到第: 
                                <input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>
                                页 
                                <input type='submit'  class='contents' value='跳转' name='cndok'>
                              </form>
                              <%
                End Function  
            %>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </TD>
              </TR>
              </TBODY> 
            </TABLE>
          </td>
          <td class=mr width="10"></td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td rowspan="3" width="15">  </td>
  </tr>
  <tr> 
    <td width="29" height="48">  </td>
  </tr>
  <tr> 
    <td height="29"> 
      <p> </p>
      <p>  </p>
    </td>
  </tr>
</table>
<!--#include file="include/footer.asp"-->
</BODY></HTML>
