|
ASP讲座之六：ASP与数据库（一）(3) %>
<HTML>
<BODY>
<% '第三部分: 将得到的记录集显示到浏览器上
'循环至记录末尾 - 一行一行、一条记录一条记录的显示
Do While Not rsTest.EOF
'下面这两行的作用是一样的, 即 rsTest("运货商ID") 等同于 rsTest(0)
Response.Write rsTest("运货商ID") & " " & rsTest("公司名称") & " " & rsTest("电话") & " " & "<BR>"
'Response.Write rsTest(0) & " " & rsTest(1) & " " & rsTest(2) & " " & "<BR>"
'移到下一条记录 - 这一句可千万不能少 否则就陷入死循环
rsTest.MoveNext
Loop
'第四部分: 打扫战场
Cnn.close
Set rsTest = Nothing: Set Cnn = Nothing
%>
</BODY>
</HTML>
这个例子是很简单的，第三部分显示数据是数据库典型的输出样式，你可以参照以前所学的知识加上表格和颜色美化输出结果。
非初级用户可以参考wuf44.asp看看Execute方法的完整使用。
方法二：通过创建 Recordset 对象——切记初学者只求掌握这种方法便够了。
例：wuf45.asp，其他部分同wuf43.asp，关键在于程序的第二部分。
'第二部分: 通过创建 RecordSet 对象得到记录集
Dim StrSQL, rsTest
'创建 Recordset 对象
Set rsTest = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select 运货商ID,电话,公司名称 From 运货商 Where 电话 = '(503) 555-9931'"
'将 Recordset 对象附加到连接 Cnn
Set rsTest.ActiveConnection = Cnn
'使用 Recordset 对象的 Open 方法打开记录集
rsTest.Open StrSQL
现在让我们看看Recordset对象Open方法的完整用法，例wuf48.asp。
<% @LANGUAGE = VBScript %>
<% ' wuf48.asp
Option Explicit
Response.Expires = 0
%>
<!--#include file="adovbs.inc"-->
<%
'第一部分: 建立连接
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\home\asp\Northwind.mdb"
Cnn.Open StrCnn
'第二部分: 通过创建 RecordSet 对象得到记录集
Dim rsTest
Set rsTest = Server.CreateObject("ADODB.Recordset")
rsTest.Open "运货商",Cnn,adOpenForwardOnly,adLockReadOnly,adCmdTable
%>
<HTML>
|
