我有一个显示问题,非常着急,请各位大侠帮帮忙!!!!!!!!!!!

huangfr2008 2003-10-21 10:57:46

把数据库中的记录分行显示.我是这样写的
<table bgcolor="#0099ff" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF"><tr>
<%
strcnn = "Driver={SQL Server};Server=huangfr;Database=atm;UID=sa;PWD=147852;OLE DB Services=-1;"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strcnn
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM foodinfo ",cnn,1,1
if not rs.eof then
if rs("id")<=8 then
do while not rs("id")>8
%>
<td>
<table border="1" height="200" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF">
<tr>
<td height="100" width="85" align="center"><font size="4"><a href="chuli.asp?nam=<%=rs("name")%>" class="black"><%=rs("name")%></a></font></td>
</tr>
<tr>
<td align="center"><font size="4"><%=rs("jiage")%><br>元</font></td>
</tr>
</table>
</td>
<% rs.movenext
loop
response.write"</tr>"
else
%>
<tr>
<%
do while not rs.eof
%>
<td>
<table border="1" height="200" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF">
<tr>
<td height="100" width="85" align="center"><font size="4"><a href="chuli.asp?nam=<%=rs("name")%>" class="black"><%=rs("name")%></a></font></td>
</tr>
<tr>
<td align="center"><font size="4"><%=rs("jiage")%><br>元</font></td>
</tr>
</table>
</td>
<% rs.movenext
loop
response.write"</tr>"
response.Write"</table>"
end if
end if
%>
可显示的时候只能显示第一行.

...全文

31 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

huangfr2008 2003-10-24

打赏
举报

有没有其他良策?

huangfr2008 2003-10-24

打赏
举报

还是不行啊大侠!

huangfr2008 2003-10-22

打赏
举报

这样也不行,我想让每行显示八条记录.

qdubit 2003-10-21

打赏
举报

同意二楼的。

不老书生 2003-10-21

打赏
举报

<table bgcolor="#0099ff" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF"><tr>
<%
strcnn = "Driver={SQL Server};Server=huangfr;Database=atm;UID=sa;PWD=147852;OLE DB Services=-1;"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strcnn
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM foodinfo ",cnn,1,1
if not rs.eof then
if rs("id")<=8 then
do while not rs("id")>8
%>
<td>
<table border="1" height="200" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF">
<tr>
<td height="100" width="85" align="center"><font size="4"><a href="chuli.asp?nam=<%=rs("name")%>" class="black"><%=rs("name")%></a></font></td>
</tr>
<tr>
<td align="center"><font size="4"><%=rs("jiage")%><br>元</font></td>
</tr>
</table>
</td>
<% rs.movenext
loop
response.write"</tr>"
else
do while not rs.eof
%>
<tr>
<td>
<table border="1" height="200" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF">
<tr>
<td height="100" width="85" align="center"><font size="4"><a href="chuli.asp?nam=<%=rs("name")%>" class="black"><%=rs("name")%></a></font></td>
</tr>
<tr>
<td align="center"><font size="4"><%=rs("jiage")%><br>元</font></td>
</tr>
</table>
</td>
</tr>
<% rs.movenext
loop
end if
end if
%>
</table>

不老书生 2003-10-21

打赏
举报

给你重写了一下

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table bgcolor="#0099ff" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF">
<tr>
<%
strcnn = "Driver={SQL Server};Server=huangfr;Database=atm;UID=sa;PWD=147852;OLE DB Services=-1;"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strcnn
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM foodinfo ",cnn,1,1
do while not rs.eof
if rs("id")<=8 then
%>
<td>
<table border="1" height="200" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF">
<tr>
<td height="100" width="85" align="center"><font size="4"><a href="chuli.asp?nam=<%=rs("name")%>" class="black"><%=rs("name")%></a></font></td>
</tr>
<tr>
<td align="center"><font size="4"><%=rs("jiage")%><br>元</font></td>
</tr>
</table>
</td>
<%
else
%>
<td>
<table border="1" height="200" style="BORDER-COLLAPSE: collapse" bordercolor="#FFFFFF">
<tr>
<td height="100" width="85" align="center"><font size="4"><a href="chuli.asp?nam=<%=rs("name")%>" class="black"><%=rs("name")%></a></font></td>
</tr>
<tr>
<td align="center"><font size="4"><%=rs("jiage")%><br>元</font></td>
</tr>
</table>
</td>
<% rs.movenext
loop
%>
</tr>
</table>
<%
end if
end if
%>

</body>
</html>

你是要前八个数据如何？超过八个呢？

huangfr2008 2003-10-21