asp+mysql分页

【 tulaoshi.com - 编程语言 】

%
'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

改一改就可以用了,呵呵