asp mysql分页_asp+mysql分页_MySQL

'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

改一改就可以用了,呵呵

本文原创发布php中文网，转载请注明出处，感谢您的尊重！