新微赢技术网

标题: [求助]为什么rsObj.recordCount和rsObj.pageCount读出来是-1 [打印本页]

作者: 秋燕子_児 时间: 2010-1-7 03:46
标题: [求助]为什么rsObj.recordCount和rsObj.pageCount读出来是-1
<%
dim connstr '连接字符串
dim db '数据库文件路径
db = "../database/golfers.mdb"
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM news WHERE 1 = 1"
strSQL = strSQL&" ORDER by newsid desc"
rsObj.Open strSQL, conn, 2,1
rsObj.pagesize = conMaxPerPage
%>
<%=rsObj.recordCount%><br><%=rsObj.pageCount%>
数据库里是有数据的

作者: 苍穹 时间: 2010-1-7 03:46
好象是什么东西不支持我也忘. 给你看下我的代码

作者: jane 时间: 2010-1-7 03:46
 // 需要此文件

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<%
rs.cursortype=3
str="select * from gqgx Order By id desc"
rs.open str,conn,3,1
%> <table width="80%" height="550" border="1" bordercolor="aa0000">
<tr>
<td height="510" align="center" valign="top"><form name="form1" method="post" action="">
<table width="100%" border="0">
<tr bgcolor="bb0000">
<td width="33%" height="20"><div align="center" class="style6">标题</div></td>
<td width="33%" height="20"><div align="center" class="style6">关系</div></td>
<td width="33%" height="20"><div align="center" class="style6">操作</div></td>
</tr>
<% if rs.eof or rs.bof then
response.write "<td>没有信息记录</td>"
else %>
<% rs.pagesize=15 %>
<% if request("page")="" then
page=1
else
page=CLng(request("page"))
end if
%>
<%
IF page<1 Then
page=1
end if
If page>rs.pagecount Then
page=rs.pagecount
rs.absolutepage=page
end if
%>
<%
rs.absolutepage=cint(page)%>
<% for ipage=1 to rs.pagesize %>
<%
id=rs("id")
title=rs("title")
types=rs("gqgx")
Notice=rs("Notice")
response.Write("<tr bgcolor=#CCCCCC>")
response.Write("<td height=20><div align=center>"&title&"</div></td>")
response.Write("<td height=20><div align=center>"&types&"</div></td>")
if Notice=true then
response.Write("<td height=20><div align=center><A href=xggqgx.asp?id="&id&"><font color=000000>修改</font></a> | <a href=# onClick=""javascript:if(confirm('确定要删除吗？')) location.href='dele.asp?cz=5&id="&id&"';""><font color=000000>删除</font></a> | <a href=laws.asp?cz=5&czz=1&id="&id&"><font color=000000>取消公告</font></a></div></td>")
else
response.Write("<td height=20><div align=center><A href=xggqgx.asp?id="&id&"><font color=000000>修改</font></a> | <a href=# onClick=""javascript:if(confirm('确定要删除吗？')) location.href='dele.asp?cz=5&id="&id&"';""><font color=000000>删除</font></a> | <a href=laws.asp?cz=5&czz=2&id="&id&"><font color=ff0000>设为公告</font></a></div></td>")
end if
response.Write("</tr>")
%>
<% rs.moveNEXT
IF rs.EOF Then
Exit For
End If
next
end if
%>
</table>
</form></td>
</tr>
<tr>
<td height="20"><div align="center"><table width="330" border="0" align="center" bgcolor="#FFFFFF">
<tr>
<%
'翻页控制代码
IF page<>1 Then
Response.Write("<td><a href=glgqgx.asp?page=1><font color=000000>第一页</font></a></td>")
Response.Write("<td><a href=glgqgx.asp?page="&(page-1)&"><font color=000000>上一页</font></a></td>")
Else
Response.Write("<td>第一页</td>")
Response.Write("<td>上一页</td>")
End IF
IF page<>rs.pagecount then
Response.Write("<td><a href=glgqgx.asp?page=" & (page+1) & "><font color=000000>下一页</font></a></td>")
Response.Write("<td><a href=glgqgx.asp?page=" & rs.pagecount & "><font color=000000>最后一页</font></a></td>")
Else
Response.Write("<td>下一页</td>")
Response.Write("<td>最后一页</td>")
End IF
%>
<td><span class=style22>共<%=rs.pagecount%>页</span></td>
<td align="left"><span class=style22>当前第<%=page%>页</span></td>
</tr>
</table></div></td>
</tr>
</table>
</div>
</body>
</html>

作者: ※为你歌唱※ 时间: 2010-1-7 03:46
哦,谢谢

作者: 天泪离星 时间: 2010-1-7 03:46
我把文件传上来了,各位帮忙看看.
就是数据库news表中有11个数据.但是pageguide.asp中的
<div align = "right"><%=rsObj.recordCount%>项，第<%=page%>/<%=rsObj.pageCount%> 页　
语句中的rsObj.recordCount和rsObj.pageCount显示为-1. 附件: 只有本站会员才能下载或查看附件，请您登录或注册

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)