ASP横向显示 换行 换页

来源:百度知道 编辑:UC知道 时间:2024/05/21 10:52:06
以下是公司网站以前的部分代码,可以竖着显示,每页多个产品,现想改为横着显示,每行6个图片+型号,不要其它说明,其它说明点开后再显示,每页共显示10行,请问如何改?望各位高手不吝赐教,越详越好,谢谢!刚注册,只有25分,全部送出了,谢谢!

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=6>"
strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"
strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=120 height=120>"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & &

<%

dim hang,lie

hang = 10'显示10行
lie = 6' 显示6列

strTemp=""
strTemp= strTemp & "<table .....>"
for i=1 to hang
strTemp= strTemp & "<tr>"
for j=1 to lie
if not rs.eof then'如果数据还没有读完
strTemp= strTemp & "<td><img border=0 src=" & rs("DefaultPicUrl") & " width=120 height=120><br>产品型号:" & rs("Spec") & "</td>"
rs.movenext
Else'如果读完,显示空列
strTemp= strTemp & <td></td>"
end if
netx'列重复
strTemp= strTemp & "</tr>"
next'行重复
strTemp= strTemp & "</table>"
%>

分页的就不要我写出来了吧!