UC知道一行显示10个图片然后自动换行,加一个显示更多的按钮.然后整页整页的显示?
来源：百度知道 编辑：UC知道 时间：2024/09/28 15:39:55
有个论坛的主页显示一行10张图片,我想让它显示10张图片的下面显示一个"更多"的按钮,然后整页整页地显示图片.一直循环.原代码如下:
function Showindpic()
Dim rs
Set Rs=BBS94KK.Execute("Select top 10 * From [KK_indpic] where weizhi = 1 order by id")
If Rs.Eof Then
Exit function
Else
rs.movefirst
Response.Write "<table class='toptable grid' cellSpacing='0' cellPadding='5' align='center'><tr>"
do while not rs.eof
Response.Write "<td style='PADDING-top: 10px; PADDING-right:0px; PADDING-BOTTOM: 10px;PADDING-left:5px'><a href=ggtp1.asp?id="&rs("id")&"><IMG src='"&rs("pach")&"' width='80' height=""70"" border=0></a></td>"
rs.movenext
loop
Response.Write " </tr></table><br>"
end if
function Showindpic()
Dim rs
Set Rs=BBS94KK.Execute("Select top 10 * From [KK_indpic] where weizhi = 1 order by id")
If Rs.Eof Then
Exit function
Else
rs.movefirst
Response.Write "<table class='toptable grid' cellSpacing='0' cellPadding='5' align='center'><tr>"
do while not rs.eof
Response.Write "<td style='PADDING-top: 10px; PADDING-right:0px; PADDING-BOTTOM: 10px;PADDING-left:5px'><a href=ggtp1.asp?id="&rs("id")&"><IMG src='"&rs("pach")&"' width='80' height=""70"" border=0></a></td>"
rs.movenext
loop
Response.Write " </tr></table><br>"
end if
关于“更多”链接到一个新的页面就可以了，改下查询条件，再判断下在什么时候换行就行了：
……
Set Rs=BBS94KK.Execute("Select * From [KK_indpic] where weizhi = 1 order by id")
……
dim i:i=1
do while not rs.eof
Response.Write "<td style='PADDING-top: 10px; PADDING-right:0px; PADDING-BOTTOM: 10px;PADDING-left:5px'><a href=ggtp1.asp?id="&rs("id")&"><IMG src='"&rs("pach")&"' width='80' height=""70"" border=0></a></td>"
rs.movenext
i=i+1
if i mod 10=0 then response.write("</tr><tr>")
loop
……
另外建议使用【div】来实现，规定好div的宽度，设置div的样式如 <div style="width:120px; height:120px; float:left"> 那么就可以实现自动换行，而不需要判断到第几个再换行
可以看看下面的代码：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "