asp.net oracle 分页,asp分页（自己整理的2个分页程序）

set mrs=server.createobject(“adodb.recordset”)

conn = “DBQ=” + server.mappath(“zheng.mdb”) + “;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};”

sql=”select * from user”

mrs.open sql,conn,1,1

If mRs.bof and mRs.eof then

Response.Write”没有任何记录”

Response.End

Else

mRs.PageSize =6’每页记录条数

iCount=mRs.RecordCount ‘记录总数

iPageSize=mRs.PageSize

maxpage=mRs.PageCount

page=request(“page”)

If Not IsNumeric(page) or page=”” then

page=1

Else

page=cint(page)

End If

If page<1 then=""

page=1

ElseIf page>maxpage then

page=maxpage

End If

mRs.AbsolutePage=Page

If page=maxpage then

x=iCount-(maxpage-1)*iPageSize

Else

x=iPageSize

End If

End If

for i=1 to mRs.pagesize

%>

mRs.movenext

If mRs.eof then exit for

next

mRs.close

Set mRs=nothing

%>

call PageControl(iCount,maxpage,page)

Sub PageControl(iCount,pagecount,page)

‘生成上一页下一页链接

Dim query, a, x, temp

action = “http://” & Request.ServerVariables(“HTTP_HOST”) & Request.ServerVariables(“SCRIPT_NAME”)

query = Split(Request.ServerVariables(“QUERY_STRING”), “&”)

For Each x In query

a = Split(x, “=”)

If StrComp(a(0), “page”, vbTextCompare) 0 Then

temp = temp & a(0) & “=” & a(1) & “&”

End If

Next

Response.Write(“

“)

Response.Write(“

“)

Response.Write(“

“)

If page<=1 then=""

Response.Write (“首页 ” )

Response.Write (“上一页 “)

Else

Response.Write(“首页 “)

Response.Write(“上一页 “)

End If

If page>=pagecount then

Response.Write (“下一页 “)

Response.Write (“尾页 “)

Else

Response.Write(“下一页 “)

Response.Write(“尾页 “)

End If

Response.Write(” 页次：” & page & “/” & pageCount & ” 页”)

Response.Write(” 共有 ” & iCount & ” 条留言”)

Response.Write(” 转到 ” & “” & ” 页 “)

Response.Write(“

“)

Response.Write(“

“)

End Sub

%>