asp+mysql分页_MySQL

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp+mysql分页_MySQL，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1567字，纯文字阅读大概需要3分钟。

内容图文

'asp+mysql分页，由axislover原创于2007年12月11日，是个雪花飘飘的日子
Dim strSql,Rs
Dim intRecordNum,intCurrentPage,intRowcount
intRowcount = 0
Dim intPageCount:intPageCount = 15 '每页20条记录
GetConn_Open
'获得总记录
Set Rs = Conn.Execute("SELECT COUNT(*) As intcounts FROM datainfo where sort=1 and flag_lm=1")
If Rs.Eof And Rs.Bof Then
intRecordNum = 0
Else
intRecordNum = Cint(Rs("intcounts"))
End If
Dim intTotalPages

If (intRecordNum mod intPageCount)>0 Then
intTotalPages = Int(intRecordNum/intPageCount) + 1
Else
intTotalPages = intRecordNum/intPageCount
End If

intCurrentPage = 1
If IsEmpty(Request("txtPage")) Or IsNull(Request("txtPage")) Or Trim(Request("txtPage"))="" Or (Not IsNumeric(Request("txtPage"))) Or Len(Request("txtPage"))>8 Then
intCurrentPage = 1
ElseIf Clng(Request("txtPage")) < 1 Then
intCurrentPage = 1
ElseIf Clng(Request("txtPage")) > intTotalPages Then
intCurrentPage = intTotalPages
Else
intCurrentPage = Clng(Request("txtPage"))
End If
Set Rs = Nothing
Set Rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT id,name,recreation,characteristic,address FROM datainfo where sort=1 and flag_lm=1 Order By id DESC LIMIT " & (intCurrentPage - 1) * intPageCount & "," & intPageCount
Rs.Open strSql,Conn,1,1
If Rs.Eof And Rs.Bof Then
Else
Do While Not Rs.Eof And intRowcount < intPageCount
intRowcount = intRowcount+1

Rs.MoveNext
Loop
End If

ShowPageNum intRecordNum,intTotalPages,intCurrentPage,intPageCount,objPage.txtScriptName,"?"

Rs.Close
Set Rs = Nothing
Set objPage = Nothing

改一改就可以用了,呵呵

内容总结

以上是互联网集市为您收集整理的asp+mysql分页_MySQL全部内容，希望文章能够帮你解决asp+mysql分页_MySQL所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---