SQL SERVER好使的分页程序在oracle数据库就不好使了???

linefanliu 2003-11-05 04:04:23

错误现象:记录总数是-1,所以不能分页,各位高手帮忙看一下子,有没有解决的方法?

<%
Set muchRs=Server.CreateObject("ADODB.RecordSet")
muchRs.Open sql,newconn,3,1
on error resume next
if not muchRs.eof and not muchRs.bof then
pagesize=10 '每页显示的记录条数
muchRs.pagesize=pagesize
recordcount=muchRs.recordcount '记录总数
pagecount=muchRs.pagecount '总页数

if Request("pagenumber")<>"" then
pagenumber=clng(trim(Request("pagenumber")))
else
pagenumber=1
end if

if pagenumber="" or pagenumber<=0 then pagenumber=1
if pagenumber>=pagecount then pagenumber=pagecount
muchRs.AbsolutePage=pagenumber
rowcount =muchRs.pagesize
end if
if Not muchRs.Eof and Not muchRs.bof then
Do While Not muchRs.Eof and rowcount>0
response.write "<tr>"
response.write "<td>◆ <a target=_blank href=view.asp?id="&muchRs("ID")&"&subject="&muchRs("subject")&">"
response.write muchRs("title")
response.write "</a> <font color=#999999>["&muchRs("newstime")&"]</font></td></tr>"
muchRs.movenext
rowcount=rowcount-1
Loop
else
response.write "<tr><td>没有匹配到相关信息</td></tr>"
end if
muchRs.close
set muchRs =nothing
newconn.close
set newconn=nothing
%>
<tr>
<td> <br>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr>
<td align=middle width="79%">
<div align="center">
<%if pagenumber<=1 then%>
[首页] [上页]
<%else%>
<a href="muchnew.asp?pagenumber=1&subject=<%=Request("subject")%>" class="blue">[首页]</a>
<a href="muchnew.asp?pagenumber=<%=pagenumber-1%>&subject=<%=Request("subject")%>" class="blue">[上页]</a>
<%end if%>
<%if pagenumber>=pagecount then%>
[下页] [尾页]
<%else%>
<a href="muchnew.asp?pagenumber=<%=pagenumber+1%>&subject=<%=Request("subject")%>" class="blue">[下页]</a>
<a href="muchnew.asp?pagenumber=<%=pagecount%>&subject=<%=Request("subject")%>" class="blue">[尾页]</a>
<%end if%>
页次：<b><font color=#ff0000><%=pagenumber %></font>/<%=pagecount%></b>　共<font color=#ff0000><b>
<%=recordcount%></b></font> 条记录转到第
<input name=pagenumber style="BORDER-BOTTOM: #000000 1px groove; BORDER-LEFT: #000000 1px groove; BORDER-RIGHT: #000000 1px groove; BORDER-TOP: #000000 1px groove;width:30px;font-size:9pt" value="<%=pagenumber%>">
页 <img src="../image/go.gif" width="35" style="cursor:hand" height="16" align="absmiddle" border=0 onClick="javascript:window.open('muchnew.asp?pagenumber='+pagenumber.value+'&subject=<%=subject%>','_self')">

...全文