基于ASP的网站设计 - 图文(10)

Lyb.asp里涉及的数据库连接、访问，因前面已介绍，再次就不在赘述。 下面重点分析如何在一个页面内实现分页的功能的程序代码。

<%

' ShowPage子程序负责显示PageNo参数所指定的页次的所有记录 Sub ShowPage(objRS, PageNo) ' 显示留言并加以格式化 objRS.AbsolutePage = PageNo For I = 1 To objRS.PageSize User = objRS(\ ToWho = objRS(\ Email = objRS(\ Content = objRS(\ AddTime = objRS(\

Response.Write User & \给 \的留言
\ Response.Write \ Response.Write \内 容：\

Response.Write \

Response.Write Content & \时 间：\ objRS.MoveNext

If objRS.EOF Then Exit For '若到记录结尾就结束For循环

３０