📄 booklist-1.asp
字号:
<% @LANGUAGE=VBScript %>
<%
Option Explicit
'确保在浏览器上看到的数据不是缓存在客户端的数据
'而是服务器端随时更新的数据
Response.Expires=0
'一、建立连接
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("BookSys.mdb")
'二、使用Connection对象的Execute方法得到记录集
Dim StrSQL,rsTest
StrSQL="Select *From BookCatalog" 'BookCatalog是BookSys.mdb的数据表
Set rsTest=Conn.Execute(StrSQL)
%>
<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 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>"
'四、关闭数据库和数据表
Conn.Close
Set rsTest=Nothing
Set Conn=Nothing
%>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -