开封市宏康家园:我想让下面的程序变成1行显示4个图片,显示3行,哪位大哥帮帮小弟呀?感激

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/30 00:00:56
i=1
do while not rsArticle.eof
strTemp=""
'strTemp = strTemp & ""
strTemp= strTemp & "<table width=25% border=0 cellspacing=3 cellpadding=0>"

strTemp= strTemp & "<tr></tr>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=25% >"
strTemp= strTemp & "<div align=left><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"
strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=100 height=120>"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "<td> </td>"
strTemp= strTemp & "<td> </td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td align=center>"
strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "<tr></tr>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td></td>"
strTemp= strTemp & "<td></td>"
strTemp= strTemp & "</tr>"

strTemp= strTemp & "</table>"

if i mod 1<>0 then
end if
if i mod 4 =0 then

end if
rsArticle.movenext
i=i+1
response.write strTemp
loop
rsArticle.close

代码放上来的太少了。