📄 booklist-3.asp

📁 《动态网页设计基础教程》,胡杰,科学出版社

💻 ASP

字号:

<% @LANGUAGE=VBScript %>
<%
Option Explicit
'确保在浏览器上看到的数据不是缓存在客户端的数据
'而是服务器端随时更新的数据
Response.Expires=0
%>
<!--#include file="adovbs.inc"-->
<%
Dim Conn,PageSize
'设置每一页所要显示的记录条数－6
PageSize=6
'一、建立连接
'建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
'利用Provider属性设置Connection对象的提供者
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
'使用Connection对象的Open方法建立数据库的连接
Conn.Open Server.MapPath("BookSys.mdb")
'二、使用RecordSet对象的Open方法得到记录集
Dim SQL
SQL="Select *From BookCatalog" 'BookCatalog是BookSys.mdb的数据表
Set Session("Rs")=Server.CreateObject("ADODB.RecordSet")
'若参数StrSQL是一个表名，则最后一个参数应为adCmdTable（参见RecordSet对象的Open方法一节）
Session("Rs").Open SQL,Conn,adOpenStatic,adLockReadOnly,adCmdText
'设置RecordSet对象的每一页数据记录条数
Session("Rs").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>种&nbsp;&nbsp;类</B></Td>
		<Td><B>作&nbsp;&nbsp;者</B></Td>
		<Td><B>描&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;述</B></Td>
		<Td><B>单 价</B></Td>
		<Td><B>库存</B></Td>
	</Tr>
<%
Dim j,i
For j=0 to Session("Rs").PageSize-1
	Response.Write "<Tr valign=middle>"
	'将每条记录的各个字段输出
	For i=0 to Session("Rs").fields.count-1
		Response.Write "<Td>"&Session("Rs").fields(i).value&"</Td>"
	Next
	Response.Write "</Tr>"
	'移到下一条记录，判断是否到表尾
	Session("Rs").MoveNext
	If Session("Rs").EOF Then
		Exit For '若到记录尾，退出－如当最后一页数据不满页时。
	End If
Next
Response.Write "</Table><Br>"
%>
<% '引入文件Flag.asp完成翻页功能 %>
<!--#include file=Connect.asp -->
</Body>
</Html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -