Question

asp 如何一行显示多个图片

请教：目前程序一行显示一个，我想一行显示3个
<%
set rs=server.CreateObject("adodb.recordset")
sql="select ID,name,Smallpic from student order by ID asc"
rs.open sql,conn,1,1
if request("page")="" then
page=1
elseif request("page")<1 then
page=1
else
page=request("page")
end if
rs.PageSize=12
rs.AbsolutePage=page
if rs.recordcount=0 then
response.write"没有记录"
else
%>

<%
if rs.eof then
response.write"没有相关记录"
else
for ipage=1 to rs.pagesize
%>
<table border="0" bordercolor="#7e9ee5" width="600">
<tr>
<td width="370"><%Response.Write"<a href=studentview.asp?ID=" & rs("ID") & ">"& rs ("name") %></td>
</tr>
<tr>
<td width="220" rowspan="3" ></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
共<%=rs.recordcount%>条记录
当前第<%=page%>页/共有<%=rs.pagecount%>页 <a href="student.asp?page=1">[1]</a>
<% if page<>1 then %>
<a href="student.asp?page=<%=(page-1)%>">上一页</a>
<% end if %>
<% if page<>rs.pagecount then %>
<a href="student.asp?page=<%=(page+1)%>">下一页</a>
<%end if %>
<a href="student.asp?page=<%=rs.pagecount%>">尾页</a>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

我加上<%dim i for i=1 to 3%>测试就(HTTP 500 内部服务器错误)，我找了半天没分析出原因，请大家帮忙改正。

Answer 1

<%
if rs.eof then
response.write"没有相关记录"
else
for ipage=1 to rs.pagesize
%>
<table border="0" bordercolor="#7e9ee5" width="600">
<tr>
<td width="370"><%Response.Write"<a href=studentview.asp?ID=" & rs("ID") & ">"& rs ("name") %></td>
</tr>
<tr>
<td width="220" rowspan="3" ></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>

以上这段改为以下：

<%
if rs.eof then
response.write"没有相关记录"
else
%>
<table border="0" bordercolor="#7e9ee5" width="600">
<%
for ipage=0 to rs.pagesize - 1
if ipage mod 3 = 0 then response.write "<tr>"
%>
<td width="30"><a href="studentview.asp?ID=<%=rs("ID")%>"><%=rs("name")%></a></td>
<%
if ipage mod 3 = 2 then response.write "</tr>"
rs.movenext
if rs.eof then exit for
next
%>
</table>
<%
end if
%>

追问

谢谢你的回答，程序还是出现内部服务器错误，不知道怎么回事？