关于 ASP的 换行显示问题

[xueshi]

小弟 最近在学习ASP

想从数据库调出数据后

每行显示四个

因为对 ASP 语法还不是很了解

For 循环 怎么弄啊

特此真心请教 先谢了

刚才试着 写了几个代码 不过 还是有些问题

Do While Not objRS.EOF
Data = ""


Response.Write " <tr>"
Response.Write " <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>"
objRS.MoveNext
Response.Write " <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>"
objRS.MoveNext
Response.Write " <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>" objRS.MoveNext
Response.Write " <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>"
objRS.MoveNext

Response.Write " </tr>"


Loop



显示的时候

第一行 总是显示3个 第一个总是空着 比如

1 2 3
4 5 6 7
8 9 10 11

还有我数据库里的纪录 必须是3 + 4*i个 否则 就会出现错误 虽然我知道 这是由于 "Do While Not objRS.EOF" 引起的 可是目前 没有找到更好的办法

特此请教

[sutalon]

up

up

[xueshi]

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/tianxia.asp, line 29, column 5
dim i=0
----^


为什么 不能初始化啊

还有没有朋友 有别的高招啊 求教啊

[wj2929]

忘啦
那是vb.net的写法

这样：
dim i
i=0

[xueshi]

晕 把 dim i=0 改成 dim i 问题 就可以显示了 呵呵

[yizhixiaozhu]

帮顶

[wj2929]

试：

<tr>
<%
dim i=0
Do While Not objRS.EOF
i=i+1
%>
<td><A HREF='<%=objRS("url")%>"><%=objRS("name")%></A></td>
<%if i mod 4=0 then%>
</tr>
<tr>
<%end if%>
<%
objRS.MoveNext
Loop%>

[wj2929]

恩
上面有一个"""要改成"'"

如下:
<tr>
<%
dim i=0
Do While Not objRS.EOF
i=i+1
%>
<td><A HREF='<%=objRS("url")%>'><%=objRS("name")%></A></td>
<%if i mod 4=0 then%>
</tr>
<tr>
<%end if%>
<%
objRS.MoveNext
next%>

[wj2929]

我晕 又copy错了
最下面的next改为Loop