清华大学出版社 TSINGHUA UNIVERSITY PRESS AsP访问数据库实例 °例26与数据库建立连接(9-26.asp) 9-26.asp的代码如下:
• 例26 与数据库建立连接（9-26.asp） 9-26.asp的代码如下： ASP访问数据库实例
清华大学出版社 TSINGHUA UNIVERSITY PRESS <%@ LANGUAGE=VBScript % < 创建 Connection对象 Option explicit Dim Cnn StrCnn Set Cnn Server CreateObject("ADODB Connection) 数据库b5:mdb,该数撸库用户自分 StrCnn =Driver=Microsoft Access Driver (* mdb)): DBQ Server MapPath(bbs. mdb 使用 Connection 对象 法打 Cnn. Open StrCnn Response. Write Server MapPath(" bbs. mdb) &<br> Response. Write"数据库连接成功:"&Cnn. State&"<br Cnn. close Response. Write纵喽已经关闭:"&Cnn. State Set cnn Nothing 使用 Connection对象的 ‰〉 Close方法关闭连接 将 Connection对象从内存中 删除,以释放资源
<% @ LANGUAGE=VBScript %> <% Option Explicit Dim Cnn, StrCnn Set Cnn = Server.CreateObject("ADODB.Connection") StrCnn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bbs.mdb;") Cnn.Open StrCnn Response.Write Server.MapPath("bbs.mdb") & "<br>" Response.Write "数据库连接成功: " & Cnn.State & "<br>" Cnn.close Response.Write "数据库已经关闭: " & Cnn.State Set Cnn = Nothing %> 创建Connection 对象 使用 Connection 对象的 Open 方法打开 数据库bbs.mdb,该数据库用户自己建立 使用 Connection 对象的 Close 方法关闭连接 将Connection 对象从内存中 删除，以释放资源
清华大学出版社 TSINGHUA UNIVERSITY PRESS 9-26.asp的运行结果如图 ahttp://localhost/9-26.asp-mic-ojx 文件)编辑(E)查看(y收藏(”画 中后退,③团剑搜索” 地址①·圈26转到链接 上网助手·暂停拦截〈清理 C: \Inetpub \wwwroot \bbs. mdb 数据库连接成功:1 数据库已经关闭:0 完毕 血本地anet
9-26.asp的运行结果如图
清华大学出版社 TSINGHUA UNIVERSITY PRESS AsP访问数据库实例 例9.27循环检索记录(927a.asp和9-27b.ap) 注意:先注册文件数据源为Myaa.dsn,使用的数据库为 northwind.mdb
•例9.27 循环检索记录（9-27a.asp和9-27b.asp） 注意：先注册文件数据源为Myaa.dsn，使用的数据库为 northwind.mdb。 ASP访问数据库实例
清华大学出版社 TSINGHUA UNIVERSITY PRESS 9-27a.asp的代码如下 % strDSN = FILEDSN-Myaa dsn Set cn= Server. CreateOb ject(" ADOD. Connecti初始化 Recordset对象 cn. Open strDSN Set rsCustomers Server CreateObject("ADODB. Recordset") strSQL=" SELECT联系人姓名,公司名称FROM客户WR客户ID= FAMIA rsCustomers. Open strSQL, cn Set ob fIrstnAme= rs Customers("联系人姓名") Set ob lAstnAme= cuStomers("公司名称") Do Until rs Customers. EOF Response. Write ob jFirstNan Q ob lastnAme &<BR> rsCustomers MoveNext Loop 循环查询,并显示结果 ‰〉
<% strDSN = "FILEDSN=Myaa.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsCustomers = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT 联系人姓名, 公司名称 FROM 客户 WHERE 客户ID= 'FAMIA' " rsCustomers.Open strSQL,cn Set objFirstName = rsCustomers("联系人姓名") Set objLastName = rsCustomers("公司名称") Do Until rsCustomers.EOF Response.Write objFirstName & "-------- " & objLastName & "<BR>" rsCustomers.MoveNext Loop %> 9-27a.asp的代码如下： 初始化Recordset对象 循环查询，并显示结果