ASP问题的纠正，确实较怪，大家来看呀 20分呀

raise1 2003-11-16 07:48:23

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<center>
<h3>具有分页功能的网页示范<h3>
</center>
<center>
<% '声明CONN数据库链接对象
set conn = server.createobject("adodb.connection")
'设置与数据库链接的链接字符串
connstring = "provider = microsoft.jet.oledb.4.0;data source = " & server.mappath("data.mdb")
'打开链接数据库的信道
conn.open connstring
'声明Recordset对象
set rs = server.createobject("adodb.recordset")
'打开data 数据表
rs.open " data",conn,3
'设置每3条记录为一页
rs.pagesize = 4
%>
<h3>本记录集共有<font size = 4 color = red>
<% = rs.recordcount %></font>笔记录.<br>
本记录集共有<font size="+4" color="#FF0000">

<% = rs.pagecount %></font>页.<br>
<hr>
<%
'商置显示第2 页
display_page rs,1
%>

</body>
</html>
<% sub display_page(rs,page)
'设置记录指针指向的页数
rs.absolutepage = page
' 先在表格上方填入数据域位
response.write "<center><table border = 2><tr bgcolor = #ooffee>"

for i = 0 to rs.fields.count - 2
response.write "<td>" & rs(i).name & "</td>"
next
'利用for循环配合pagesize属性输出一页中的记录
for i = 1 to rs.pagesize
' 先使用if 判断在最后一页记录时，是否有
'将记录指针移至最后一条记录本之后
if rs.eof then
exit for '跳出for 循环
end if

row = "<tr bgcolor = #fffddd><td>" & rs.absoluteposition & "</td>"

for j = 0 to rs.fields.count - 2
'使用rs(j)取出第j个字段的数据

row = row & "<td>" & rs(j) & "</td>" '使用rs(i)取出第i个段的数据
next
response.write row & "</tr>"
rs.movenext ' 移到下一条
next
response.write "</table></center>"
end sub
%>
各位，请问一下这个为何不能正确显示呀？我的数据库只有三个字段 ID（编号）,username（姓名）,email（邮箱）它老是在ID,username下面显示记录编号，email字段下显示姓名，email地址另新加了一列，上面没有字段名。
如果把for i = 0 to rs.fields.count - 2改为for i = 0 to rs.fields.count - 1则只显示ID（编号）,username（姓名）,email（邮箱）它老是在ID,username下面显示记录编号，email字段下显示姓名，email地址就没了呀，不知那儿出毛病！

...全文