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 " & (intCurrentPage - 1) * intPageCount & "," & intPageCount Rs.Open strSql,Conn %> do while not rs.eof %> t=DateDiff("h",rs("表中开始时间字段"),now())'t>0时间已经到了 h=dateDiff("h",rs("表中结束时间字段"),now())'，h<0在范围内,h>0，时间已经过了%> =0  and  h<=0 then %> ">

if not rs.eof then rs.movenext

loop

%>

                 "   'strTemp = strTemp&"Total:"&totalnumber&" "   if CurrentPage<2 then      strTemp=strTemp & "             "   else      'strTemp=strTemp & " ;"      strTemp=strTemp & "                         "   end if   if n-currentpage<1 then      strTemp=strTemp & " "   else      strTemp=strTemp & " ;"      'strTemp=strTemp & " "   end if    ' strTemp=strTemp & "  " & CurrentPage & "/" & n & "y "     strTemp=strTemp & ""     response.write strTempEnd sub%>