请各位高手指教一下~

[zhuxiaABC]

我正在做一个商城的分类页面.我想做成一行显示三个产品的那种,现在只能一行显示一个.不知道得如何修改.还望高手赐教.

代码如下:

<table width="550" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle" height=80><img src="images/index_banner.gif" width="560" height="70"></td>
</tr>
<tr>
<td valign=top>
<%
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
if sortsid="" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 20 prename,company,mark,pretype,intro,other,type,viewnum,grade,predate,id,name,introduce,price1,price2,discount,productdate,pic from product order by adddate desc",conn,1,1
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select predate,prename,company,mark,pretype,intro,name,other,type,viewnum,grade,id,introduce,price1,price2,discount,productdate,pic from product where sortsid="&sortsid&" order by adddate desc",conn,1,1
end if

if err.number<>0 then
response.write "数据库中无数据"
end if

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,"class.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"class.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"class.asp"
end if
end if
end if

sub showContent
dim i
i=0

%>
<%
do while not rs.eof%>
<br>
<table width="225" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=25 colspan="2" align=left valign=middle> <a href=product.asp?id=<%=rs("id")%>><font color="#FF0000"><%=trim(rs("name"))%></font></a></td>
</tr>
<tr>
<td height=25 colspan="2" align=left valign=middle><%
response.Write "<a href=product.asp?id="&rs("id")&">"
if trim(rs("pic"))<>"" then
response.Write "<img src="&trim(rs("pic"))&" border=0 width=200 height=200></a>"
else
response.Write "<img src=images/emptybook.jpg border=0 width=200 height=200></a>"
end if%></td>
</tr>
<tr>
<td height=25 colspan="2" align=left valign=middle><%=trim(rs("introduce"))%></td>
</tr>
<tr>
<td height=25 colspan="2" align=left valign=middle><%=trim(rs("other"))%><%=trim(rs("grade"))%></td>
</tr>
<tr>
<td width="127" height=25 align=left valign=middle>市场价：<S>***元 </S></td>
<td width="288" align=left valign=middle>会员价：<FONT COLOR="#D03420">***</FONT><font color=red>元</font></td>
</tr>
<tr>
<td height=25 colspan="2" align=center valign=middle>
<%response.write "<a href=# onClick=""javascript:window.open('cart.asp?id="&rs("id")&"','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;""><img src=images/buy.gif align=absmiddle border=0></a> "
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<table width="550" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/3c1.gif"></td>
</tr>
</table>
<br>
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
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

Response.Write "<form method=Post action="&filename&"?nid="&sortsid&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1&nid="&sortsid&" class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="¤tPage-1&"&nid="&sortsid&" class='contents'>上一页</a> "
End If

If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&nid="&sortsid&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&nid="&sortsid&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"¤tPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"种商品 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">"
Response.Write " <input type='submit' class='contents' value='GO' name='cndok'></form>"
End Function
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>


内容太多一下贴不上来.如果说得不明白也可以与我EMAIL联系

[KILL_HAND]

参考这个。
显示员工表的。一行显示两个员工（分别显示ID号和姓名）。
我以前做的CRMSYSTME里面的。一个页面。
<%
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open"Select PersonID,FirstName,LastName From Person Inner Join Employee ON Person.PersonID=Employee.EmployeeID Order By Person.PersonID",conn,1,2
%>
<center>
<table width="50%" cellspacing=0 cellpadding=4 border=0 align=center>
<tr align=center>
<td class=back2 height="20" width="30%" colspan="2">用户 ID 对应表</td>
<td width="70%"></td>
</tr>
</table>
<table width="50%" cellspacing=0 cellpadding=0 border=0>
<tr class=back2>
<td>
<table width=100% cellspacing=1 cellpadding=4 border=0 align=center>
<tr class=back1 align=center>
<td width=20% class=p1>姓名</td>
<td width=20% class=p1>ID 号</td>
<td width=20% class=p1>姓名</td>
<td width=20% class=p1>ID 号</td>
</tr>
<%
Do While not rs.eof
Name1 = rs("FirstName")&rs("LastName")
ID1 = rs("PersonID")
%>

<tr class=back3 align=center>
<td><span class=orange><%=Name1%></span></td>
<td><span class=orange><%=ID1%></span></td>
<%
rs.movenext
If not rs.eof Then
Name2 = rs("FirstName")&rs("LastName")
ID2 = rs("PersonID")
Else
Name2=" "
ID2=" "
End If
%>
<td><span class=orange><%=Name2%></span></td>
<td><span class=orange><%=ID2%></span></td>
</tr>
<%
If not rs.eof Then
rs.movenext
End If
Loop
%>
</table>
</td>
</tr>
</table>

</center>
<%
rs.close
Set rs = nothing
conn.close
Set conn = nothing
%>

[KILL_HAND]

稍稍改一下就OK了。
原理是一样的。

[zhuxiaABC]

汗.......还望高手指明要修改的部分.
我刚接触ASP,所以还请麻烦.