小蛮腰伦桑在线:电商实践考试题

来源:百度文库 编辑:高考问答 时间:2024/05/05 07:28:54
<HTML>
<HEAD>
<TITLE>记录集对象的建立与记录的取得</TITLE>
</HEAD>
<BODY>
<CENTER>
<FONT SIZE = 5 COLOR = blue>记录集对象的建立与记录的取得</FONT>
</CENTER>
<HR>
<P></P>

<CENTER>
<%
Set cnnDB = Server.CreateObject("ADODB.Connection")
'建立Connection(数据库连接)对象,并设定cnnDB对象变量引用

cnnDB.Open "dsn=BookDB"
Set rstObj = Server.CreateObject ("ADODB.Recordset")
'建立Recordset(记录集)对象,并设定由rstObj对象变量引用

rstObj.Open "Book", cnnDB '打开记录集对象,即数据库中的表Book
%>
<TABLE bgcolor=LightYellow>
<TR bgcolor=DeepSkyBlue align=center>
<TD>书籍编号</TD><TD >书 名 <td>作者</TR>
<%
'利用DoLoop循环配合EOF属性将数据表是的记录列出
Do While Not rstObj.EOF
%>
<TR >
<TD><% = rstObj("BookID") %></TD>
<TD bgcolor=green><% = rstObj("Title") %></TD>
<TD><% = rstObj("Author") %></TD>
</TR>
<%
rstObj.MoveNext '移向下一笔记录
Loop

rstObj.Close '关闭记录集 Set rstObj = Nothing '重设对象变量
cnnDB.Close '关闭数据库 Set cnnDB = Nothing '重设对象变量
%>
</TABLE>
</CENTER>

</BODY>
</HTML>