神马品牌网中国三生有享网:我怎么不能分页显示了？？
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 06:58:52
<!--#include file="conn.asp"-->
<%
dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from record"
rs.open sql,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<div align="center">
<p><strong>加盟方察看记录</strong></p>
<table border="1" width="50%" >
<tr bgcolor="#00FF00">
<td align="center">登陆姓名</td>
<td align="center">登陆密码</td>
<td align="center">登陆时间</td>
<td align="center">删除</td>
</tr>
<%
Do While Not rs.Eof
%>
<tr>
<td align="center"><%=rs("用户名")%></td>
<td align="center"><%=rs("密码")%></td>
<td align="center"><%=rs("时间")%></td>
<td align="center"><a href="delete.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<% if not isempty(request("page")) then
nowpage=cint(request("page"))
else
nowpage=1
end if %>
<%
rs.PageSize=12
totalpage=rs.PageCount
If Rs.RecordCount <> 0 Then
rs.AbsolutePage = Int(nowpage)
For i =1 to rs.PageSize
If rs.EOF Then
Exit For
end if
%>
<form name="form1" method="post" action="record.asp">
<% if nowpage<>1 then %>
<a href="record.asp?page=1">首页</a>
<a href="record.asp?page=<%=nowpage-1%>">上一页</a>
<%end if %>
<% if nowpage<>totalpage then %>
<a href="record.asp?page=<%=nowpage+1%>">下一页</a>
<a href="record.asp?page=<%=totalpage%>">尾页</a>
<%end if %>
<select size="1" name="page">
'<%For i=1 To totalpage %>
<option value=<%=i%> <% if i=nowpage then %> selected <% end if %>><%=i%></option>
<%Next%>
</select>
<input type="submit" value="Go" >
</form>
</div>
</body>
</html>
我真的不知道怎么改，能给我个完整的修改代码么？？
总是提供错误类型：
Microsoft VBScript 编译器错误 (0x800A0410)
循环控制变量 'for' 无效
/1212/record.asp, line 68, column 5
For i=1 To totalpage
----^
还是不行啊！
：（
<%
dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from record"
rs.open sql,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<div align="center">
<p><strong>加盟方察看记录</strong></p>
<table border="1" width="50%" >
<tr bgcolor="#00FF00">
<td align="center">登陆姓名</td>
<td align="center">登陆密码</td>
<td align="center">登陆时间</td>
<td align="center">删除</td>
</tr>
<%
Do While Not rs.Eof
%>
<tr>
<td align="center"><%=rs("用户名")%></td>
<td align="center"><%=rs("密码")%></td>
<td align="center"><%=rs("时间")%></td>
<td align="center"><a href="delete.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<% if not isempty(request("page")) then
nowpage=cint(request("page"))
else
nowpage=1
end if %>
<%
rs.PageSize=12
totalpage=rs.PageCount
If Rs.RecordCount <> 0 Then
rs.AbsolutePage = Int(nowpage)
For i =1 to rs.PageSize
If rs.EOF Then
Exit For
end if
%>
<form name="form1" method="post" action="record.asp">
<% if nowpage<>1 then %>
<a href="record.asp?page=1">首页</a>
<a href="record.asp?page=<%=nowpage-1%>">上一页</a>
<%end if %>
<% if nowpage<>totalpage then %>
<a href="record.asp?page=<%=nowpage+1%>">下一页</a>
<a href="record.asp?page=<%=totalpage%>">尾页</a>
<%end if %>
<select size="1" name="page">
'<%For i=1 To totalpage %>
<option value=<%=i%> <% if i=nowpage then %> selected <% end if %>><%=i%></option>
<%Next%>
</select>
<input type="submit" value="Go" >
</form>
</div>
</body>
</html>
我真的不知道怎么改，能给我个完整的修改代码么？？
总是提供错误类型：
Microsoft VBScript 编译器错误 (0x800A0410)
循环控制变量 'for' 无效
/1212/record.asp, line 68, column 5
For i=1 To totalpage
----^
还是不行啊！
：（
哈哈
怎么样
上边的还可以用吧
我说了这个很有用的
我是大徐
我没什么事也来这里回答点问题
或是提问
你应该把
<%
rs.PageSize=12
totalpage=rs.PageCount
If Rs.RecordCount <> 0 Then
rs.AbsolutePage = Int(nowpage)
For i =1 to rs.PageSize
If rs.EOF Then
Exit For
end if
%>
放到
dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from record"
rs.open sql,conn,1,3
下边就好了
两个for循环都用i了，把option 那个换成其他的
这个分页数据量大的话会死人