求高手帮看一下,怎样才能把图片 分成1行5列
dim Topimg
Set Rs=Conn.Execute( "Select top 8 * from info where Indexpic= '1 ' and tid in( "&sid& ") order by inputdate desc,id desc ")
if rs.eof then
Topimg= "·暂无图片 "
else
h=0
do while not rs.eof
h=h+1
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Topimg=Topimg& " <table width= " "135 " " height= " "110 " " border= " "0 " " cellpadding= " "0 " " cellspacing= " "0 " "> "&chr(13)
Topimg=Topimg& " <tr> "&chr(13)
Topimg=Topimg& " <td align= " "center " "> <div align= " "center " "> "&chr(13)
Topimg=Topimg& " <a href= " " "&Replace(rs( "Html "),Ename, " ")& " " "> "&chr(13)
Topimg=Topimg& " <img src= "&(rs( "Spic "))& " width= "& " " "135 " " "& " height= "& " " "110 " " "& "> "&chr(13)
Topimg=Topimg& " </a> "&chr(13)
Topimg=Topimg& " </div> "&chr(13)
Topimg=Topimg& " <tr> <td> <div align= " "center " "> <a href= " " "&Replace(rs( "Html "),Ename, " ")& " " "> "&Leftstr(rs( "title "),20)& " </a> </div> </td> </tr> "&chr(13)
Topimg=Topimg& " </tr> "&chr(13)
Topimg=Topimg& " </table> "&chr(13)
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
if h> =8 then exit do
rs.movenext
loop
h=0
end if
rs.close
------解决方案--------------------
<table>
<tbody>
<%
Strsql= "select id,classcn,classen,Picurl,title from news where classen= ' "&Strtxt& " ' order by id desc "
rs.open Strsql,conn,1,1
if not rs.eof then
.....
i=0
end if
do whil