📄 exp1.asp
字号:
<HTML>
<HEAD><TITLE>记录的分页显示</TITLE></HEAD>
<BODY>
<!-- #INCLUDE VIRTUAL="ADOVBS.inc" -->
<%
' 指明当前页码
IF Request.QueryString("MOVE")="NEXT" THEN
Session("CurrentPage")=Session("CurrentPage")+1
END IF
IF Request.QueryString("MOVE")="PREV" THEN
Session("CurrentPage")=Session("CurrentPage")-1
END IF
IF Session("CurrentPage")="" THEN
Session("CurrentPage")=1
END IF
%>
<H1>Current Page: <%=Session("CurrentPage")%></H1>
<HR>
<%
' 打开链接
Set Conn=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")
Conn.Open "FILEDSN=d:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn"
' 获得产品名字列表
RS.Open "SELECT ProductName FROM Products", Conn,adOpenStatic
' 设定每页显示的记录数
RS.PageSize=5
' 设定当前页
RS.AbsolutePage=Session("CurrentPage")
' 显示当前页的记录
WHILE NOT RS.EOF AND NumRows<RS.PageSize
%>
<BR>Product Name: <%=RS("ProductName")%>
<%
RS.MoveNext
NumRows=NumRows+1
WEND
%>
<HR>
<% IF Session("CurrentPage")>1 THEN %>
<A HREF="pages.asp?MOVE=PREV"> [PREV] </A>
<% END IF %>
<% IF Session("CurrentPage")<RS.PageCount THEN %>
<A HREF="pages.asp?MOVE=NEXT"> [NEXT] </A>
<% END IF %>
<%
RS.Close
Conn.Close
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -