%
'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)...[ 查看全文 ]