Question

asp中使用set rs=conn.execute(sql)这一语句,,得到的rs.recordcount值只能是-1麼?

在查询时,用到set rs=conn.exectue(sql),能显示查询结果,但是统计出来的查询结果却是-1,而且查询结果只能显示当前页?
怎样改进使之能够实现分页以及正确统计数据??

Answer 1

<!--#include file = "Include/include.asp"-->
<% dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from [news] order by n_id desc",conn,1,1

page=1 ' 设置变量PAGE=1
rs2.PageSize = News_Front_Count '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
End if
if Page > rs2.PageCount then '如果接收的页数大于总页数
rs2.AbsolutePage = rs2.PageCount '设置当前显示页等于最后页
end if
if Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
end if
rs2.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数

%>
<table width="100%" height="470" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr >
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="565" height="24" bgcolor="#E0E0E0" scope="col"><div align="left"><span class="gray">    发布内容</span>—></div></td>
</tr>

<tr>
<td height="254" valign="top"><br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
if rs2.eof and rs2.bof then
response.Write("当前没有动态信息")
else
For i = 1 to rs2.PageSize
if rs2.EOF then
Exit For
end if '利用for next 循环依次读出记录
if rs2("fenlei")="了解NBS" then
fenlei="了解《名录》"
else
fenlei=rs2("fenlei")
end if
%>
<tr class=trS0 align=middle height=20>
<td width="3%" valign="top" ><div align="left">  <img src="images/icon_arrow_3.gif" width="7" height="7"></div></td>
<td width="56%" align="left" valign="top" ><a href="new.asp?id=<%=rs2("n_id")%>" class="A_black"><span class="A_black"><%=rs2("title")%></span></a></td>
<td width="20%" valign="top" style="font-size:10px " ><span class="redx">[<%=rs2("time")%>]</span></td>
</tr>
<tr>
<td height="10" colspan="3"><div align="center"><img src="images/about_me_hengxian.gif" width="522" height="1"></div></td>
</tr>
<% rs2.movenext
next
end if
%>
</table></td>
</tr>
<tr>
<td height="10" background="images/xuxian.gif"> </td>
</tr>
<tr>
<td height="20"><table width="540" height="27" border="0" align="center" cellspacing="0">
<tr>
<td ><div align="center">
<%if request("page")>1 then%>
<a href="newlist.asp?Page=<% = 1%>&fenlei=<%=fenlei%>">首页</a> <a href="newlist.asp?Page=<% =page -1 %>&fenlei=<%=fenlei%>">上一页</a>
<%end if %>
<%if request("page")<>rs2.pagecount and page<rs2.pagecount then %>
<a href="newlist.asp?Page=<% =page + 1%>&fenlei=<%=fenlei%>">下一页</a> <a href="newlist.asp?Page=<% = rs2.PageCount%>&fenlei=<%=fenlei%>">尾页</a>
<% end if %>
<%if rs2.pagecount>0 then %>
当前第<font color="#FF3300"> <%=page%></font> 页,共<font color="#FF3300"><%=rs2.pagecount%></font>页
<%end if%>
</div></td>
<% rs2.close
set rs2=nothing
%>
</tr>
</table></td>
</tr>
</table>
<br>
<br>
<%
Conn.Close
Set Conn = Nothing
%>

<table width="512" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><form action="search.asp" target="main">
<td width="433" align="right">
站内新闻搜索：
<input type="text" style="width:270px; height:18px; border-width:1px; font-family:Tahoma; font-size:10px; border-style:solid; border-color:#CFCFCF " name="keywords">
  </td>
<td width="79" align="center"><input name="image" type="image" src="images/search.gif" align="bottom"></td>
</form></tr>
</table></td>
</tr>
</table>

这个是我做的分页，可以参照一下

Answer 2

那要看你sql语句写得是否正确，数据库里的数据是否有。得出-1肯定是错的结果。至于分页可以去看看分页的一些简单教程