?? 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()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -