Question

ASP网站产品展示源码问题

这是网站产品展示网页的ASP源码，现在是每一行只显示一个产品图片，我想更换成每一行显示多个产品图片，请问一下要怎么修改代码
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD width="453"
height=28> <% call ShowClassGuide() %> </TD>
<TD width="102"> <% call ShowProductTotal() %> </TD>
</TR>
<TR>
<TD
height=1 colspan="2" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<TR>
<TD
height=42 colspan="2">
<form action="Payment.asp" method="Post" name="Inquire" target="_blank" >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="53%" height="26" bgcolor="#F0F0F0">
<div align="center"> </div></td>
<td width="22%" bgcolor="#F0F0F0">
<div align="right">
<input name="chkAll" type="checkbox" id="chkAll" onClick=CheckAll(this.form) value="checkbox">
选取所有</div></td>
<td width="25%" bgcolor="#F0F0F0">
<div align="center">
<input name="image" type="image" src="Images/inquire_now.gif" width="86" height="21" border="0">
</div></td>
</tr>
<tr>
<td colspan="3"> <% call ShowProduct(32) %> </td>
</tr>
</table>
</form></TD>
</TR>
<TR>
<TD
height=1 colspan="2">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"个产品")
end if
%> </TD>
</TR>
</table>

Answer 1

把<% call ShowProduct(32) %> 这个函数的源码发上来，或者把文件发给我帮你改吧！

Answer 2

一般自己写个显示吧。
如果你一定要改的话，那就把过程复制一个，改一下，别动原来的，免得在其他地方调用的时候会出错，参考以下代码
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td></td>
</tr>
<%row_count=1 %>
<tr align="center">
<% Do While Not rs_Product.EOF%>
<td> <table width="100%" height="105" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="32%" ><div align="center"><a href="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><img border=0 src=<%=rs_Product("DefaultPicUrl")%> width=80 height=96></a></div></td>
</tr><tr>
<td width="44%"><div align="center"><a href="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><%=rs_Product("Title")%></a></div></td>
</tr>

</table></td>
<%if row_count mod 5 <>0 then%>
<%end if%>
<% if row_count mod 5 =0 then%>
</tr>
<tr>
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
rs_Product.close

%>