pagev5.asp

包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL Server2000下调试通过。所有程序

<%
	set conn = Server.CreateObject("ADODB.Connection")
	conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
		Server.MapPath("person.mdb"))
	set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT * FROM grade"
	rs.Open sql, conn, 3
	rs.PageSize = 4
	'第一次显示没有页码，默认显示第一页
	If Request("page") <> "" Then
		iPage = Cint(Request("page"))
		If iPage < 1 Then	iPage = 1 '页码小于1，则显示第一页
		'当大于总页数的时候，显示最后一页
		If iPage > rs.PageCount Then iPage = rs.PageCount
	Else
		iPage = 1
	End If
	Response.Write("当前第" & iPage & "页，共" & rs.PageCount & "页")
	rs.AbsolutePage = iPage

%>
<TABLE CELLPADDING="2" BORDERCOLOR="Black" BORDER="1">
<TR STYLE="BACKGROUND-COLOR:#AAAADD;">
	<TD>学号</TD><TD>性别</TD><TD>姓名</TD><TD>数学</TD><TD>语文</TD><TD>英语</TD>
</TR>
<%
For I = 0 To rs.PageSize-1
	If rs.EOF OR rs.BOF Then Exit For
		'设置奇数和偶数行显示不同的背景颜色	
		If 	I Mod 2 = 1 Then
		Response.Write("<TR STYLE='BACKGROUND-COLOR:#FFFFCD;'>")
		Else
		Response.Write("<TR>")
		End if
		Response.Write("<TD>" & rs("学号") & "</TD>")
		Response.Write("<TD>" & rs("性别") & "</TD>")
%>
	<TD><A HREF='detail.asp?xuehao=<%=rs("学号")%>' TARGET='_blank'>
		<%=rs("姓名")%></A></TD>
<%
		Response.Write("<TD>" & rs("数学") & "</TD>")
		Response.Write("<TD>" & rs("语文") & "</TD>")
		Response.Write("<TD>" & rs("英语") & "</TD>")
		Response.Write("</TR>")
		rs.movenext()
Next

%>
</TABLE>
<BR>
<%'当前是第一页的时候，不显示"第一页"
If iPage <> 1 Then  %>
	<A HREF="pageV5.asp?page=1">第一页</A>
	<A HREF="pageV5.asp?page=<%=iPage - 1 %>">上一页</A>
<%	  End If 
'当前是最后一页的时候，不显示"最后页"
	  IF iPage <> rs.PageCount Then  %>
<A HREF="pageV5.asp?page=<%=iPage+1%>">下一页</A>
<A HREF="pageV5.asp?page=<%=rs.pageCount%>">最后页</A>
<%   End If
	conn.close()
%>