数据库分页问题，跪求高手指点错误，我的QQ：378566009 请联系我

[modernsky2003]

数据库分页问题，跪求高手指点错误，我的QQ：378566009 请联系我
<%
strSQL = "select c.kbh,c.fzh,c.lxbh,c.cdh, k.name, r.data, r.sj,c.azdd,r.statusid,c.gb,c.db,c.unit,c.cgqmc,s.name as sname from T_CDDY as c LEFT Join T_KBM AS k ON c.kbh = k.kbh INNER JOIN T_HDATA as r On c.ID=r.ID LEFT JOIN T_STATUS AS s ON s.statusid=r.statusid WHERE Year(r.sj)=" & yy & " AND Month(r.sj)=" & mm & " AND Day(r.sj)=" & dd & " AND k.status<>0 AND k.PID=" & PID & " AND k.CID=" & CID & " AND k.dqbh=" & dqbh & " AND k.kbh=" & kbh
'WL strSQL
SET objRS = objConn.Execute(strSql)
If Err.Number <> 0 Then
Set objRs = Nothing
ObjConn.Close
Set objConn = Nothing
Call ErrSub("Failed to Query From database with {" & strSql& "} in T-23-ssbj_right!")
End If
'---------------------------------------------------------------------------
page=1 ' 设置变量PAGE=1
objRS.PageSize = 5 '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...

Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量

if Page > objRS.PageCount then '如果接收的页数大于总页数
objRS.AbsolutePage = objRS.PageCount '设置当前显示页等于最后页

elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
objRS.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = objRS.AbsolutePage
%>
<%
For i = 1 to objRS.PageSize
if objRS.EOF then
Exit For
end if
%>
W "<tr "
If objRs("statusid") <> 0 Then W "style=""background:red"" " ' baojing
W "><TD>" & Trim(objRs("name")) & "</TD>"
W "<TD>"
If objRs("fzh") < 9 Then
W "0" & (objRs("fzh")+1)
Else
W (objRs("fzh")+1)
End If
SELECT Case objRs("lxbh")
CASE 1:
W "A"
CASE 2:
W "D"
CASE 3:
W "R"
CASE Else:
W "T"
End Select
If objRs("cdh") < 9 Then
W "0" & (objRs("cdh")+1)
Else
W (objRs("cdh")+1)
End If
W "</TD>"
W "<TD>" & Trim(objRs("sj")) & "</TD>"
W "<TD>" & Trim(objRs("azdd")) & "</TD>"
W "<TD>" & Trim(objRs("cgqmc")) & "</TD>"
If objRs("statusid") = 2 Then
W "<TD>断线</TD>"
W "<TD> </TD>"
W "<TD> </TD>"
Else
SELECT CASE objRs("lxbh")
CASE 1:
W "<TD>" & objRs("data") / 1000 & Trim(objRs("unit")) & "</TD>"
W "<TD>" & objRs("gb") & "</TD>"
W "<TD>" & objRs("db") & "</TD>"
CASE 2:
If objRs("data") = 0 Then
W "<TD>开</TD>"
Else
W "<TD>关</TD>"
End If
W "<TD> </TD>"
W "<TD> </TD>"
CASE 3:
If objRs("data") = 0 Then
W "<TD>开</TD>"
Else
W "<TD>关</TD>"
End If
W "<TD> </TD>"
W "<TD> </TD>"
CASE Else:
W "<TD>奇怪</TD>"
W "<TD> </TD>"
W "<TD> </TD>"
End Select
End IF
W "<TD>" & Trim(objRs("sname")) & "</TD>"
<%
objRs.MoveNext
NEXT
%>
<%if request("page")>1 then%><a Href="T-23-lscx_right.asp?Page=<% = 1%>">首页</a>
<a Href="T-23-lscx_right.asp?Page=<% =request("page") -1 %>">上一页</a>
<%end if %>
<%if request("page")<>objRs.pagecount then %>
<a Href="T-23-lscx_right.asp?Page=<% =request("page") + 1%>">下一页</a>
<a Href="T-23-lscx_right.asp?Page=<% = objRs.PageCount%>">尾页</a>
<% end if %>
<%
Set objRs = Nothing
If Err.Number <> 0 Then
objConn.Close
Set objConn = Nothing
Call Errsub("Failed to Get the Value OF KBM from database!")
End If
%>
</table>
</center>
<%
End If

objConn.Close
Set objConn = Nothing
%>
</body>
</html>

[gsec02002]

上课消遣的最佳解决方案：爽翻天




1. 不想听课怎么办，看电视、聊天啊!
2. 要点：隐蔽、低调、不能笑出声!
3. 要件：能上网的手机一台!(不会用手机上网者面壁)
4. 方法：在手机中输入网址wap.gogosun.com，或打开移动梦网主页--手机电视--经典影视---阳光 电视 导航
5. 大功告成，慢慢爽吧。
6. 优点：危险系数小，易操作性高，吸引女生的法宝。
7. 缺点：如持续使用此法，多备电池一块。
云网LOGO地址：http://www.cncard.com/images/cncard_logo1.gif
云网链接地址：http://www.cncard.com/products/566.shtml
阳光 电视 导航LOGO地址：http://www.gogosun.com/new2005/images/logo.gif
阳光 电视 导航链接地址：http://www.gogosun.com

[hometohome]

http://blog.csdn.net/hometohome/ 有一个分页类，有那个吧

[Fibona]

用游标来做就行了呀,先得到游标的起止位置,然后进行游标定位,再利用游标的方式读取出指定的数据出来.