asp产品图片排列问题

襄阳城

<p>asp产品图片排列问题</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：150 -</p>
<p>解决时间：2010-3-23 12:06</p>
<p>我现在的排列是单列15行，我需要改为3列5行，那位高手帮忙修改一下代码啊，原代码如下：</p>
<p><%</p>
<p>sub ShowArticle(TitleLen)</p>
<p>if TitleLen<0 or TitleLen>200 then</p>
<p>TitleLen=50</p>
<p>end if</p>
<p>if currentpage<1 then</p>
<p>currentpage=1</p>
<p>end if</p>
<p>if (currentpage-1)*MaxPerPage>totalput then</p>
<p>if (totalPut mod MaxPerPage)=0 then</p>
<p>currentpage= totalPut \ MaxPerPage</p>
<p>else</p>
<p>currentpage= totalPut \ MaxPerPage + 1</p>
<p>end if</p>
<p>end if</p>
<p>if currentPage=1 then</p>
<p>sqlArticle="select top " & MaxPerPage</p>
<p>else</p>
<p>sqlArticle="select "</p>
<p>end if</p>
<p>sqlArticle=sqlArticle & " ArticleID，Product_Id，BigClassName，SmallClassName，IncludePic，Title，Spec，Size，Memo，DefaultPicUrl，UpdateTime，Hits from Product where Passed=True "</p>
<p>if BigClassName<>"" then</p>
<p>sqlArticle=sqlArticle & " and BigClassName=\'" & BigClassName & "\' "</p>
<p>if SmallClassName<>"" then</p>
<p>sqlArticle=sqlArticle & " and SmallClassName=\'" & SmallClassName & "\' "</p>
<p>end if</p>
<p>else</p>
<p>if SpecialName<>"" then</p>
<p>sqlArticle=sqlArticle & " and SpecialName=\'" & SpecialName & "\' "</p>
<p>end if</p>
<p>end if</p>
<p>sqlArticle=sqlArticle & " order by articleid desc"</p>
<p>Set rsArticle= Server.CreateObject("ADODB.Recordset")</p>
<p>rsArticle.open sqlArticle，conn，1，1</p>
<p>if rsArticle.bof and  rsArticle.eof then</p>
<p>response.Write("<br><li>没有任何产品</li>")</p>
<p>else</p>
<p>if currentPage=1 then</p>
<p>call ArticleContent(TitleLen)</p>
<p>else</p>
<p>if (currentPage-1)*MaxPerPage<totalPut then</p>
<p>rsArticle.move  (currentPage-1)*MaxPerPage</p>
<p>dim bookmark</p>
<p>bookmark=rsArticle.bookmark</p>
<p>call ArticleContent(TitleLen)</p>
<p>else</p>
<p>currentPage=1</p>
<p>call ArticleContent(TitleLen)</p>
<p>end if</p>
<p>end if</p>
<p>end if</p>
<p>rsArticle.close</p>
<p>set rsArticle=nothing</p>
<p>end sub</p>
<p>sub ArticleContent(intTitleLen)</p>
<p>dim i，strTemp</p>
<p>i=0</p>
<p>do while not rsArticle.eof</p>
<p>strTemp=""</p>
<p>\'strTemp = strTemp & ""</p>
<p>strTemp= strTemp & "<table width=180 border=0 cellpadding=5 cellspacing=1 bgcolor=#006600  style=margin-top:25px;>"</p>
<p>strTemp= strTemp & "<tr>"</p>
<p>strTemp= strTemp & "<td colspan=2 bgcolor=#FFFFFF><div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & "  target=_blank><img border=0 width=160 height=160 src=" & rsArticle("defaultpicurl") & " ></a></div>"</p>
<p>strTemp= strTemp & "</td>"</p>
<p>strTemp= strTemp & "</tr>"</p>
<p>strTemp= strTemp & "<tr>"</p>
<p>strTemp= strTemp & "<td width=80 height=25 align=right valign=middle bgcolor=#FFFFFF>产品名称:</td>"</p>
<p>strTemp= strTemp & "<td width=98 height=25 align=left valign=middle bgcolor=#FFFFFF><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & "</a></td>"</p>
<p>strTemp= strTemp & "</tr>"</p>
<p>strTemp= strTemp & "<tr>"</p>
<p>strTemp= strTemp & "<td width=80 height=25 align=right valign=middle bgcolor=#FFFFFF>产品类型:</td>"</p>
<p>strTemp= strTemp & "<td width=98 align=left valign=middle bgcolor=#FFFFFF>" & rsArticle("Spec") & ""</p>
<p>strTemp= strTemp & "</td>"</p>
<p>strTemp= strTemp & "</tr>"</p>
<p>strTemp= strTemp & "</table>"</p>
<p>问题补充：</p>
<p>response.write strTemp</p>
<p>rsArticle.movenext</p>
<p>i=i+1</p>
<p>if i>=MaxPerPage then exit do</p>
<p>loop</p>
<p>end sub</p>
<p>%></p>
<p>这是接上面的代码</p>
<p>提问者： lanniaogzs - 五级</p>
<p>最佳答案</p>
<p>strTemp = strTemp&"<table>"</p>
<p>for i = 0 to rsArticle.RecordCount</p>
<p>if Rs.eof Then Exit for</p>
<p>strTemp = strTemp&"<tr>"</p>
<p>for j=0 to 3</p>
<p>if Rs.eof Then Exit for</p>
<p>strTemp = strTemp&"<td>"& rsArticle("Title") &"</td>"</p>
<p>rsArticle.MoveNext</p>
<p>next</p>
<p>strTemp = strTemp&"</tr>"</p>
<p>next</p>
<p>strTemp = strTemp&"</table>"</p>
<p>具体的自己修改。。</p>
<p>1</p>
<p>回答者：</p>
<p>草木飞_ - 二级   2010-3-22 22:00</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>谢谢你，搞定了！</p>