杭州交通信息网延迟结婚用英语怎么说:谁能帮我改一下这段代码？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 05:29:55
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 & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "Material£º</td>"
strTemp= strTemp & "<td><a href=Product.asp?BigClassName=" & rsArticle("BigClassName") & ">" & rsArticle("BigClassName") & "</a> ¡ú "
strTemp= strTemp & "<a href=Product.asp?BigClassName=" & rsArticle("BigClassName") & "&SmallClassName=" & rsArticle("SmallClassName") & ">" & rsArticle("SmallClassName") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>"
strTemp= strTemp & "Frame£º</td>"
strTemp= strTemp & "<td>" & rsArticle("Product_Id") & "</td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=18>Specification£º</td>"
strTemp= strTemp & "<td>"
strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & "><img src=images/more.jpg border=0></a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td colspan=2>"
strTemp= strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=50% height=18>"
strTemp= strTemp & "<div align=center></div></td>"
strTemp= strTemp & "<td width=50% height=18>"
strTemp= strTemp & "<div align=center><a href='javascript:eshop(" & rsArticle("Product_Id") & ")'><img border=0 src=img/addtocart.gif width=100 height=26>"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
strTemp= strTemp & "</td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#CCCCCC></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
response.write strTemp
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub
各位:小女子才书学浅，各位的方法我都试了最终没有成功，能否在我贴上的原有代码上给我修改一下呢，我是初学的，请各位帮帮忙，愿意帮忙的请加一下我QQ：36655307 讨论 谢谢了
看着真累：
原来的简化一下可以表示为
<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 项
</TR>
.........
</TABLE>
对循环控制加入判断，比如：
Dim lines
lines=lines+1
response.write "<table><tr><td>"
if lines mod 3 =0 then
response.write "</td></tr></table><table><tr><td>"
else
response.wirte "<td>"
晕！你的这段代码就是用vbscript输出一个大表格，里面放一些小的图片，对吧？
你说的意思我没有看明白，你可以在dw中输出预览，然后自行修改，我想这个应该不难吧？