28,390
社区成员
发帖
与我相关
我的任务
分享为什么我的rs.PageCount总是等于-1?
set rs=……
rs.PageSize=10
response.write rs.PageCount
显示为-1
rs.PageSize=10
response.write rs.PageCount
显示为-1
...全文
请发表友善的回复…
发表回复
wanghu 2000-07-27
- 打赏
- 举报
555,好惨哪!
Tyro 2000-07-27
- 打赏
- 举报
呵呵……不和大家争了：）
byfree 2000-07-27
- 打赏
- 举报
wanghu我的分不够了，下次吧!
wanghu 2000-07-27
- 打赏
- 举报
是你的游标类型不支持pagecount.
使用 rs.open sql,conn,3,1
使用 rs.open sql,conn,3,1
TopHead 2000-07-27
- 打赏
- 举报
你需要将rs.CursorType设置成1或者3才行呢：）
蝈蝈俊 2000-07-27
- 打赏
- 举报
呵呵呵呵
rs.open sql,conn,3
才可用PageSize属相，其他不可。
rs.open sql,conn,3
才可用PageSize属相，其他不可。
If Page > 1 Then
Response.Write "" & 9 & ""
Response.Write " " & 7 & ""
End If
If Rs.PageCount <= 4 Then
For j = 1 To Rs.PageCount
Response.Write " " & j & ""
Next
Else
For j = 1 To 4
Response.Write " " & j & ""
Next
If Page < Rs.PageCount Then
Response.Write " " & "8" & ""
End If
Response.Write " :"
End If
应用ASP开发的一个简单学校考试系统
<%
IF Request.QueryString("delid")"" Then
%>
Dim MyVar
MyVar=MsgBox("确定要清空该考生考试资料吗？",4)
if MyVar=vbYes then
alert "考生可以重新参加考试了！"
end if
<%
response.Write "window.open('admin_main.asp?delid=&temp="&now()&"&page="&request.QueryString("page")&"','mainFrame')"
End IF
%>
无标题文档
<%
set rs=server.createobject("adodb.recordset")
sql = "SELECT * from kazl order by ksid asc"
rs.open sql,conn,1,1
rs.pagesize=15
if len(request.QueryString("page"))=0 or cint(request.QueryString("page"))rs.pagecount then
ipage=rs.pagecount
else
ipage=request.QueryString("page")
end if
rs.absolutepage=ipage
%>
班级
学号
姓名
登录地址
分数
操作
重考 合分
第一页 page=>上一页 page=>下一页 page=>最后一页
