display.asp

实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用

<%
	set conn = Server.CreateObject("ADODB.Connection")
	conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
		Server.MapPath("lyb.mdb"))
	set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT * FROM lyb ORDER BY 时间 DESC"
	rs.Open sql, conn, 3
	rs.PageSize = 1
	'第一次显示没有页码，默认显示第一页
	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
%>
<%
For  i = 0 to rs.PageSize - 1
	If rs.EOF or rs.BOF Then Exit For
%>
  <TABLE BORDER="0" BORDERCOLOR="#111111">
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">姓名：</FONT></B></TD>
      <TD><%=rs("姓名")%></TD>
    </TR>
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">
	  Email:</FONT></B></TD>
      <TD><A HREF="MAILTO:<%=rs("email")%>">
      <%=rs("email")%></A></TD>
    </TR>
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">主题：</FONT></B></TD>
      <TD WIDTH="542" HEIGHT="17"><%=rs("主题")%></TD>
    </TR>
	   <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">时间：</FONT></B></TD>
      <TD><%=rs("时间")%></TD>
    </TR>
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">内容</FONT></B></TD>
      <TD><%=rs("内容")%></TD>
    </TR>
  </TABLE>
  <HR>
  <%
rs.movenext()
Next
%>
<BR>
<%'当前是第一页的时候，不显示"第一页"
If iPage <> 1 Then  %>
	<A HREF="display.asp?page=1">第一页</A>
	<A HREF="display.asp?page=<%=iPage - 1 %>">上一页</A>
<%	  End If 
'当前是最后一页的时候，不显示"最后页"
IF iPage <> rs.PageCount Then  %>
<A HREF="display.asp?page=<%=iPage+1%>">下一页</A>
<A HREF="display.asp?page=<%=rs.pageCount%>">最后页</A>
<%   End If
	conn.close()
%>