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
改一改就可以用了,呵呵
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！