ASP数字分页显示代码实例

ASP数字分页显示代码实例

网站建设ASP初级程序员基本技能--数字分页显示

数据库mdb内容:表名=Diary;字段1=DiaryID int;字段2=DiaryName nvarchar;字段3=DiaryDate datetime

<%

'On Error Resume Next

Set Conn=Server.CreateObject("ADODB.Connection")

'ConnStr="Provider=SQLOLEDB;Data Source=Chinadad;Initial Catalog=Chinadad;UID=sa;PWD=;"

'ConnStr="Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\")&"\Diary.mdb" ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("\")&"\Diary.mdb"

''Response.Write ConnStr&"

---

"

Conn.Open ConnStr

Set Rs=Server.CreateObject("ADODB.Recordset")

sql="Select * from Diary order by DiaryID desc"

Rs.Open sql,Conn,1,1

n=0

if not rs.eof then

PageSize=10

Rs.PageSize=PageSize

RecordCount=Rs.RecordCount

PageNo=Request("PageNo")

if PageNo="" then

PageNo=1

elseif PageNo<=0 then

PageNo=1

else

PageNo=cint(PageNo)

if PageNo>rs.PageCount then PageNo=rs.PageCount

Rs.AbsolutePage=cint(PageNo)

%>

">

<%for i=1 to PageSize

Response.Write (PageNo*PageSize+n)&"行-->"&rs("DiaryID")&"."&rs("DiaryName")&rs("DiaryDate")&"

---

"%>

<%rs.movenext

if rs.eof then exit for

n=n+1%>

<%next%>

<%=n%>

首页 <%if PageNo>1 then%>上页<%else%>上页<%end if%>

<%for i=0 to PageSize-1%>

<%if PageNo+1>=int(PageNo/PageSize)*PageSize then%>[<%=int(PageNo/PageSize)*PageSize+i%> ]<%end if%>

<%next%>

<%if PageNo+1下页<%else%>下页<%end if%> 尾页

<%end if

if Err.Number<>0 then

Response.Write "数据库连接失败："&Err.Description else

Response.Write "数据库连接成功："&ConnStr

end if

%>