Question

ASP产品排列修改，竖排改横排，请高手帮忙呀！急，每排排5个

sub ArticleContent(intTitleLen)
dim i,strTemp
i=0
do while not rsArticle.eof
strTemp=""
strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=30% rowspan=7>"
strTemp= strTemp & "<div align=center><a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & ">"

fileExt=lcase(getFileExtName(rsArticle("DefaultPicUrl")))
if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
strTemp= strTemp & "<table width=200 border=1 cellpadding=0 cellspacing=1 bordercolor=#cccccc>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td>"
strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & "><img border=0 src=" & rsArticle("DefaultPicUrl") & " width=200 height=173>"
strTemp= strTemp & "</table>"
else
if fileext="swf" then
strTemp= strTemp & "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='105' height='84'>"
strTemp= strTemp &"<param name=movie value='UploadFiles/"&rsArticle("DefaultPicUrl")&"'>"
strTemp= strTemp &"<param name=quality value=high>"
strTemp= strTemp &"<param name='Play' value='-1'>"
strTemp= strTemp &"<param name='Loop' value='0'>"
strTemp= strTemp &"<param name='Menu' value='-1'>"
strTemp= strTemp &"<param name='wmode' value='transparent'>"
strTemp= strTemp &"<embed src='UploadFiles/"&rsArticle("DefaultPicUrl")&"' width='105' height='84' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed> </object>"
end if
end if

strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "<td width=15% height=12>"
strTemp= strTemp & "产品名称：</td>"
strTemp= strTemp & "<td>"
strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></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

Answer 1

把整个数据表左对齐，本来在DW中把这个<%if (Repeat1__index mod 5)=1 then response.Write("<p> </p>")%>加到快结束的 response.write strTemp
rsArticle.movenext的前面就可以了，但你是ASP语句，Repeat1_index就要改改下，先在前面加<%for i = 1 to Recordset1.recordcount%>，再把Repeat1_index改成变量i,
你试试，我也不是很懂，但我都是这么弄的，其中根据表格的高度加<p> </p> 的个数，内容小的表格加个两个，多的就是2的N次方，mod 5就是横排的个数，要是在表格内控制单元格就把 <p> </p>改成<tr></tr>直接就换行了,再就是表格最好下边和右边都多弄个空的单元格，方便排版

不是很懂，路过的表骂我

Answer 2

愿意的话。

+到50分，然后再联系我。