UC知道asp分行u问题
来源：百度知道 编辑：UC知道 时间：2024/05/05 11:51:19
请问我想分为两行，一行五张图片，我下面的程序10张图片都排成一行了，请问怎么改成两行十张，一行五张呢？高手帮忙
<table width="100%%" border="0" cellspacing="0" cellpadding="3">
<%
Dim counter
counter=0
set rs=server.createobject("adodb.recordset")
rs.open "select Top 10 * from shop_books where newsbook=1 order by bookid desc",conn,1,1
do while not rs.eof
counter=counter+1
id=rs("bookid")
If counter=6 Then
Response.Write("<tr>")
End If
%>
<tr>
<td width="120"> <div align="center">
<table width="100" height="100" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<table width="100%%" border="0" cellspacing="0" cellpadding="3">
<%
Dim counter
counter=0
set rs=server.createobject("adodb.recordset")
rs.open "select Top 10 * from shop_books where newsbook=1 order by bookid desc",conn,1,1
do while not rs.eof
counter=counter+1
id=rs("bookid")
If counter=6 Then
Response.Write("<tr>")
End If
%>
<tr>
<td width="120"> <div align="center">
<table width="100" height="100" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
你吧你的页面从第一行一直复制到最州一行
给我
=======================
<%
set rs=server.createobject("adodb.recordset")
rs.open "select Top 10 * from shop_books where newsbook=1 order by bookid desc",conn,1,1
response.write "<table width=34 border=1>"
response.write "<tr>"
for i=1 to rs.recordset
response.write" <td>"&trim(rs("bookpic"))&"</td>"
if i mod 5 =0then '当一行显示无个图片的时候换行
response.write "</tr><tr>"
end if
next
response.write "</tr>"
response.write "</table>"
%>
=================
<%
response.write "<table width=34 border=1>"
response.write "<tr>"
for i=1 to 11 '显示11个图片
response.write" <td><img src=qxc/img/_0.gif width=26 height=26 /></td>"