booklist-3.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 66 行
ASP
66 行
<% @LANGUAGE=VBScript %>
<%
Option Explicit
'确保在浏览器上看到的数据不是缓存在客户端的数据
'而是服务器端随时更新的数据
Response.Expires=0
%>
<!--#include file="adovbs.inc"-->
<%
Dim Conn,PageSize
'设置每一页所要显示的记录条数－4
PageSize=4
'一、建立连接
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("BookSys.mdb")
'二、使用RecordSet对象的Open方法得到记录集
Dim StrSQL
StrSQL="Select *From BookCatalog" 'BookCatalog是BookSys.mdb的数据表
Set Session("rsTest")=Server.CreateObject("ADODB.RecordSet")
Set Session("rsTest").ActiveConnection=Conn
'若参数StrSQL是一个表名，则最后一个参数应为adCmdTable（参见RecordSet对象的Open方法一节）
Session("rsTest").Open StrSQL,Conn,adOpenStatic,adLockReadOnly,adCmdText
'设置RecordSet对象的每一页数据记录条数
Session("RsTest").PageSize=PageSize
%>
<Html>
<Body>
<% '三、将得到的记录显示出来
'利用循环，一条一条记录地显示，知道最后一条记录 %>
<Table border=1 bordercolor="#000000" cellspacing="1" cellpadding="0" align="center" >
<Tr align=center valign=middle>
<Td><B>代码</B></Td>
<Td><B>图 书 名 称</B></Td>
<Td><B>种 类</B></Td>
<Td><B>作 者</B></Td>
<Td><B>描 述</B></Td>
<Td><B>单 价</B></Td>
<Td><B>库 存</B></Td>
</Tr>
<%
Dim j,i
For j=0 to Session("RsTest").PageSize-1
Response.Write "<Tr valign=middle>"
'将每条记录的各个字段输出
For i=0 to Session("rsTest").fields.count-1
Response.Write "<Td>"&Session("RsTest").fields(i).value&"</Td>"
Next
Response.Write "</Tr>"
'移到下一条记录，判断是否到表尾
Session("RsTest").MoveNext
If Session("RsTest").EOF Then
Exit For '若到记录尾，退出－如当最后一页数据不满页时。
End If
Next
Response.Write "</Table><Br>"
%>
<% '引入文件Flag.asp完成翻页功能 %>
<!--#include file=Flag.asp -->
</Body>
</Html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?