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