神马品牌网最近的妹妹有点怪 在线:ASP代码请朋友们帮我加点注释，我是初学者。
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 18:31:42
请朋友们帮我把下面代码中=======================这个之间的代码加上详细的注释。
<%
Set conn=Server.Createobject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("Pagebook.mdb")
Set rst=Server.Createobject("ADODB.RecordSet")
SQL="Select * from book"
rst.open SQL,conn,3
rst.Pagesize=5
page=CLng(Request("page"))
If page<1 then page=1
If page>rst.pageCount then page=rst.pageCount
show rst,page
%>
<html>
<body>
<DIV align=center>
<hr size=1 noshade color=#000000>
以下代码请朋友们帮我加点注释。谢谢
==================================================================================================
<% Sub show(rs,page) %>
<center>
<p>图书信息表</p>
<table bgcolor=#000000 cellspacing=1 cellpadding=5 style="font-size=10.5pt">
<tr bgcolor=#cccccc>
<TD>编号</TD>
<% For i=0 To rs.fields.count-1 %>
<TD><% =rs.fields(i).name %></TD>
<% Next %>
</tr>
<%
Dim thepage,recNum
rs.AbsolutePage=Page
For thepage=1 To rs.pageSize
%>
<%
response.write "<TR bgcolor=#f8f8f8>"
recNum=(Page-1) * rs.PageSize + thepage
response.write "<TD>" & recNum & "</TD>"
For j=0 To rs.fields.count-1
%>
<TD><% =rs.fields(j).value %></TD>
<% Next %>
</TR>
<%
rs.MoveNext
If rs.eof Then Exit For
Next
%>
</table>
<P>
<% End Sub %>
=======================================================================================
<FORM>
<%
If page<>1 Then
response.write("<a href=page.asp?page=1>[第一页]</a>")
response.write("<a href=page.asp?page=" & (page-1) & ">[上一页]</a>")
End If
If page<>rst.pagecount Then
response.write("<a href=page.asp?page=" & (page+1) & ">[下一页]</a>")
response.write("<a href=page.asp?page=" & rst.pagecount & ">[最后一页]</a>")
End if
%>
请输入页码：
<Input type="text" name="page" size=2>
<% response.write("共" & rst.pagecount & "页，" & rst.RecordCount & "条记录" ) %>
当前页码：<% =page %>/<% =rst.pageCount %>
</FORM>
</DIV>
<%
rst.close
Set rst=Nothing
conn.close
Set conn=Nothing
%>
</body>
</html>
<% Sub show(rs,page) %> '------------定义show过程
<center>
<p>图书信息表</p>
<table bgcolor=#000000 cellspacing=1 cellpadding=5 style="font-size=10.5pt">
<tr bgcolor=#cccccc>
<TD>编号</TD>
<% For i=0 To rs.fields.count-1 %> '-------------从0到记录数-1的循环
<TD><% =rs.fields(i).name %></TD> '------------显示记录
<% Next %> '---------与for对应
</tr>
<%
Dim thepage,recNum '----------定义变量
rs.AbsolutePage=Page '-----------分页,把指针移到page页的首记录位置
For thepage=1 To rs.pageSize '--------显示page页的记录
%>
<%
response.write "<TR bgcolor=#f8f8f8>"
recNum=(Page-1) * rs.PageSize + thepage
response.write "<TD>" & recNum & "</TD>"
For j=0 To rs.fields.count-1
%>
<TD><% =rs.fields(j).value %></TD>
<% Next %>
</TR>
<%
rs.MoveNext '------------指针下移
If rs.eof Then Exit For '-----------如果移动到记录末尾了就退出for循环
Next
%>
</table>
<P>
<% End Sub %> '------------结束过程
=========================
这里说一下数据库分页
首先定义页面大小
rs.pagesize = 10
有这句话数据库里的记录会自动按此分成页的形式，每页10个记录
rs.AbsolutePage = 1
这句是把指针移到第一页的首记录位置，
然后用For i = 1 to 10
rsponse.write rs("")
rs.movenext
next
这样就能显示第一页的全部记录了
这只是简单的分页示例，详细请看http://www.dosonw.com/jiaochengzhongxin/bc/200602/20147.html