谁能帮我改一下这段代码？

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:01:48
以下代码是显示产品的图片，都是一行显示一个产品，我想实现一行显示三个产品请问怎么改？多谢了！
sub ArticleContent(intTitleLen)
dim i,strTemp
i=0
do while not rsArticle.eof
strTemp=""
strTemp = strTemp & ""
strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=25% rowspan=5>"
strTemp= strTemp & "<div align=center>
<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"
strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=90 height=120>"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "<td width=12% height=18>"
strTemp= strTemp & "Item name£º</td>"
strTemp= strTemp & "<td>"
strTemp= strTemp & &quo

看着真累：

原来的简化一下可以表示为

<TABLLE .. .. ..>
<TR>....................第一行...........第一个产品
<TD></TD>.............第一行第 1 列....第一个产品的第 1 项
<TD></TD>.............第一行第 2 列....第一个产品的第2 项
.........
<TD></TD>.............第一行第 n 列....第一个产品的第 n 项
</TR>
.........
</TABLE>

改成这样——
<TABLLE .. .. ..>
<TR>....................第一行...........三个产品
<TD></TD>.............第一行第 1 列....第 1 个产品的第 1 项
<TD></TD>.............第一行第 2 列....第 2 个产品的第 1 项
<TD></TD>.............第一行第 3 列....第 3 个产品的第 1 项
</TR>
<TR>....................第二行...........三个产品
<TD></TD>.............第二行第 1 列....第 1 个产品的第 2 项
<TD></TD>.............第二行第 2 列....第 2 个产品的第 2 项
<TD></TD>.............第二行第 3 列....第 3 个产品的第 2 项
<