Question

asp分类显示和图片显示的问题

分类1
图片1 图片2 图片3 ... ...
分类2
图片1 图片2 图片3 ... ...
分类3
图片1 图片2 图片3 ... ...
分类4

图片1 图片2 图片3 ... ...
这样排版需要怎么写asp程序呢，谢谢！

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

<%
Set Rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Xclass"
rs.open sql,conn,1,1
For a=1 To 3
if rs.eof then
'当记录到最后时，
exit for
'退出for循环
end if%>
<%=rs("name")%><br>
<%
Set Rs1=Server.CreateObject("ADODB.Recordset")
sql="select * from Xiang where class = '"&rs("id")&"'"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "<td height=6>该分类还没有任何图片</td>"
else
For a2=1 To 3
if rs1.eof then
'当记录到最后时，
exit for
'退出for循环
end if%>
<img src="<%=rs1("ximg")%>" alt="<%=rs1("tname")%>">
<%
rs1.movenext
next
end if
rs1.close
set rs1=nothing
%>

<%
rs.movenext
next
rs.close
set rs=nothing
%>

追问

您好，请问
if rs1.eof then

这个中间要填写什么吗？
exit for

追答

你用填的了