asp与mysql实现分页代码_asp和mysql分页代码

asp和mysql分页代码

'asp+mysql分页 Dim strSql,Rs Dim intRecordNum,intCurrentPage,intRowcount Dim intPageCount:intPageCount = 5  '每页5条记录 intRowcount = 0 '获得总记录 Set Rs = Conn.Execute("SELECT COUNT(*) As intcounts from  表名") 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("intCurrentPage")) Or IsNull(Request("intCurrentPage")) Or Trim(Request("intCurrentPage"))="" Or (Not IsNumeric(Request("intCurrentPage"))) Or Len(Request("intCurrentPage"))>8 Then intCurrentPage = 1 ElseIf Clng(Request("intCurrentPage")) < 1 Then intCurrentPage = 1 ElseIf Clng(Request("intCurrentPage")) > intTotalPages Then intCurrentPage = intTotalPages Else intCurrentPage = Clng(Request("intCurrentPage")) End If Set Rs = Nothing Set Rs = Server.CreateObject("ADODB.RecordSet") strSql = "SELECT * from  表名  Order By id DESC LIMIT " & (i