📄 booklist-2.asp

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

💻 ASP

字号:

<% @LANGUAGE=VBScript %>
<%
Option Explicit
Response.Expires=0
'确保在浏览器上看到的数据不是缓存在客户端的数据,而是服务器端随时更新的数据
%>
<!--#include file="adovbs.inc"-->
<%
'一、建立连接
Dim Conn
'建立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 StrSQL,rsTest
StrSQL="Select 图书代码,图书名称,出版社,图书种类,作者,单价,库存数量 From BookCatalog Where 图书种类='计算机'" 'BookCatalog是BookSys.mdb中的数据表
'创建RecordSet对象,请注意：这一步与上例不同。
Set rsTest=Server.CreateObject("ADODB.RecordSet")
rsTest.Open StrSQL,Conn,adOpenForwardOnly,adLockReadOnly,adCmdText
'若参数StrSQL是一个表名，则最后一个参数应为adCmdTable（参见RecordSet对象的Open方法一节）
%>
<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>单 价</B></Td>
		<Td><B>库存</B></Td>
	</Tr>
<%
Dim i '记录开始时，当前数据指针的位置
Do while Not rsTest.EOF
	Response.Write "<Tr valign=middle>"
	'将每条记录的各个字段输出
	For i=0 to rsTest.fields.count-1
		Response.Write "<Td>"&rsTest.fields(i).value&"</Td>"
	Next
	Response.Write "</Tr>"
	rsTest.MoveNext
Loop
Response.Write "</Table>"
'四、关闭数据库和数据表
rsTest.Close
Conn.Close
Set rsTest=Nothing
Set Conn=Nothing
%>
</Body>
</Html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -