日期:2014-05-17  浏览次数:20936 次

求高手帮看一下,怎样才能把图片 分成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