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=30% rowspan=6>"
strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"
strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " >"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "<td width=12% height=12>产品名称：</td>"
strTemp= strTemp & "<td><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & "</a></td>"
strTemp= strTemp & "</tr>"

strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=12% height=12>产品规格：</td>"
strTemp= strTemp & "<td>" & rsArticle("Spec") & "</td>"
strTemp= strTemp & "</tr>"

strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td height=12>产品类别：</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>"

' strTemp= strTemp & "<tr>"
' strTemp= strTemp & "<td height=18>产品编号：</td>"
' strTemp= strTemp & "<td>" & rsArticle("Product_Id") & "</td>"
' strTemp= strTemp & "</tr>"

strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td height=12>产品信息：</td>"
strTemp= strTemp & "<td><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & "><img src=Img/arrow_7.gif border=0></a></td>"
strTemp= strTemp & "</tr>"

strTemp= strTemp & "<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=12>"
strTemp= strTemp & "<div align=center></div></td>"
strTemp= strTemp & "<td width=50% height=12>"

strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
strTemp= strTemp & "</td>"
strTemp= strTemp & "</tr>"

strTemp= strTemp & "<tr>"

strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
response.write strTemp
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub


怎么样使他调用三个自动换行 每一行显示三个图片

[此贴子已经被作者于2007-3-17 10:08:01编辑过]

循环TD
判断换行

如
<%
Dim i,Rs
i = 0
Set Rs = Conn.ExeCute(sql)
Do While Not Rs.Eof
i = i+1
Response.Write("<td>"&Rs("Pic")&"</td>")
If i Mod 3 = 0 Then Response.Write("</tr><tr>")
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
%>