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

50分跪求!
那位好心人帮忙,把下面的代码修改为显示4列,每列显示10个(目前只能显示2列。

sql= "select   *   from   down   where   tid   in   ( "&sqqq& ")   order   by   date   desc "
rs.open   sql,conn,1,1
if   rs.eof   then
  lb=lb& " <table   cellSpacing= " "20 " "   border= " "0 " "   cellpadding= " "0 " "   cellspacing= " "0 " "   style= " "border-collapse:   collapse " "   width= " "100% " "> <tr> <td   width= " "100% " "   align= " "center " "> Sorry!   暂时没有相关作品! <p> 如有问题,请联系管理员: <a   href= " "mailto:hao123@126.com " "> hao123@126.com </a> </td> </tr> </table> "
mpage=1
allshu=0
else
rs.pagesize=MaxPerPage   '得到每页数
mpage=rs.pagecount           '得到总页数
rs.move     (currentPage-1)*MaxPerPage
allshu=rs.recordcount
h=0
    lb=lb& " <table   cellSpacing= " "1 " "   border= " "0 " "   cellpadding= " "0 " "   cellspacing= " "0 " "   style= " "border-collapse:   collapse " "   width= " "230 " "> "
do   while   not   rs.eof
h=h+1
    lb=lb& " <tr> <td   width= " "50% " "> <table   border= " "0 " "   cellSpacing= " "0 " "   cellpadding= " "0 " "   cellspacing= " "0 " "   style= " "border-collapse:   collapse " "   width= " "100% " "   align= " "center " "> "
    lb=lb& " <tr> <td   width= " "30% " "   valign= " "top " "> <a   href= " "../flash/ "&rs( "id ")& ".htm " "> <img   width= " "100 " "   height= " "75 " "   border= " "0 " "   src= "&rs( "pic ")& "   class= " "border2 " "> </a> </td> <br> <font   color= " "#FE0166 " "> "&rs( "cxn ")& " </font> "
    lb=lb& " </td> </tr> <tr> <td   width= " "50% " "   valign= " "top " "   colspan= " "2 " "> </td> </tr> </table> </td> "
rs.movenext
    lb=lb& " <td   width= " "50% " "> <table   border= " "0 " "   cellSpacing= " "0 " "   cellpadding= " "0 " "   cellspacing= " "0 " "   style= " "border-collapse:   collapse " "   width= " "100% " "   align= " "center " "> "
    lb=lb& " <tr> <td   width= " "30% " "   valign= " "top " "> <a   href= " "../flash/ "&rs( "id ")& ".htm " "> <img   width= " "100 " "   height= " "75 &q