洛阳克里斯汀酒店电话:asp怎么横着显示4张图片 竖着显示3张图片 我是在数据库调用的，在线等，谢谢

<table width="100%" cellpadding="0" cellspacing="0">
<%
sub showImg(sql,rows,cols,w,h)
dim rs,i,url_arr,counts
i=0
counts = rows * cols
set rs = server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,1
' if rs.eof or rs.bof then
' response.write
' response.end
' end if
while int(i) < int(counts) and not rs.eof
if i mod cols = 0 then
response.write "<tr>"
end if
url_arr = split(rs("pic"),",")
response.write "<td width=" & int(100/cols) & "% >"
%>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="4" class="login">
<tr>
<td><img src="<%if ubound(url_arr)>=0 then response.write url_arr(0) end if%>" width=<%=w%> height=<%=h%> style="cursor:hand;" onClick="location.href='qy-a.asp?id=<%=rs("id")%>&msgType=<%=rs("type")%>'" alt="<%=rs("area")%>"></td>
</tr>
<tr>
<td bgcolor="#E2E2E2" height="30"> <div align="center"><%=autoCut(rs("title"),30)%></div></td>
</tr>
</table>
<%
response.write "</td>"
i = i + 1
if i mod cols = 0 then
response.write "</tr>"
end if
rs.movenext
wend
if int(i) mod int(cols) <> 0 then
response.write "<td width=" & 20*(cols-(i mod cols)) & "% colspan=" & (cols-(i mod cols)) & "> </td></tr>"
end if
end sub
showImg "select * from gyfc where isChecked=1 and isShow=1 order by post_time desc",2,5,112,75
%>
</table>

把调用的sql改成你的，和显示的格式块做一点修改就OK了！

<script language="vbscript">
dim n,i
document.write("<table width='300px' border='1'>")
document.write("<tr>")
for n=1 to 50
document.write("<td width='50pt'>"&n&"</td>")
i=i+1
if (i mod 5=0) then
document.write("</tr></tr>")
end if
next
document.write("<tr>")
document.write("<table>")
</script>

用table?

要用table
<table>
<tr>
<%for i=1 to 12%>
<td><img src=<%=rs("img")%>></td>
<%if i mod 4=0 then response.write("</tr><tr>")
Rs.movenext
next%>
</tr>
</table>

绝对正确
'按条件打开数据库
<table width="100" border="0" cellspacing="0" cellpadding="0">
<%for i=1 to 3%>
<tr>
<%for j=1 to 4%>
<td><img src="<%=rs("images")%>"></td>
<%rs.movenext%>
<%next%>
</tr>
<%next%>
</table>

不用表格那就用换行吧，也可以的，但是图片要设置好，要不超过了宽度就自动换行了。
for i=1 to 3
for i=1 to 4
Response.Write("<img src='"&rs("images")&"'>")
rs.movenext
next
Response.Write("<br>")
next