在前面几讲中,我们已经学习了
ASP的基本内容,灵活使用这些知识,你已经可以使用
ASP建立一个Web站点了。但一般来说,一个真正的、完整的站点是离不开
数据库的,因为少量的
数据,如
网页访问人数等完全可以存储在文本文件中,但实际应用中,需要保存的
数据远不止这一点点,而且这些
数据之间往往还有关联,利用
数据库来管理这些
数据,可以很方便的查询和更新。
数据库有很多种,如:Fox数据库(.dbf)、Access数据库(.mdb)、Informix、
Oracle和
SQL Server等等,在本讲座中,我将以Microsoft Access数据库和
SQL Server 7.0为例来说明
ASP是如何访问
数据库的。为什么选择
ASP呢?统计
数据表明,
SQL Server 7.0是当前最快、性价比最高的
数据库,而www.8848.net、www.dell.com、www.hotbot.com等许多大型的
网站都是使用
ASP技术创建的,所以
ASP是比较容易掌握而且很实用的技术,你应该满怀信心和勇气地试着接近它、了解它,进而使用它。
在进一步学习之前,要做哪些准备:
1. 如果你没有接触过
数据库,建议先安装Office中的Microsoft Access,了解一下
数据库的基本知识。
2. 最好安装Microsoft
SQL Server 7.0。一旦安装好,立马就可使用,不需要什么设置,注意在Windows9.x中应安装DeskTop版本,而7.0以前的版本只能安装在NT Server中。
3. 接下来所讨论的内容,需要一个叫做MDAC(Microsoft Data Access Components)的组件,这个组件已经包含在
ASP中,如果你想了解更多的相关内容,或者
下载最新的版本,可以访问http://www.microsoft.com/data。
一、 与
数据库建立连接
在正式开始之前,先介绍一下ADO——ActiveX Data Objects,刚接触这个概念,你只要把ADO看作
ASP与
数据库之间的桥梁就可以了。
(一) 与Microsoft Access数据库建立连接
方法一:例wuf40.
asp<% @LANGUAGE = VBScript %>
<% ' wuf40.
aspOption Explicit
Dim Cnn, StrCnn
' 1 - 创建 Connection 对象
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\asp") & "\NorthWind.mdb;"
‘ 2 - 使用 Connection 对象的 Open 方法打开
数据库Cnn.Open StrCnn
Response.Write Server.MapPath("\asp") & "\NorthWind.mdb;" & "<br>"
Response.Write "
数据库连接成功: " & Cnn.State & "<br>"
' 3 - 使用 Connection 对象的 Close 方法关闭连接
Cnn.close
Response.Write "
数据库已经关闭: " & Cnn.State
' 4 - 将Connection 对象从内存中删除,以释放资源
Set Cnn = Nothing
%>
Northwind.mdb是Microsoft Access97自带的一个示例
数据库,一般位于目录“Microsoft Office\Office\Samples”下,你可以自己找一下,然后将这个文件拷至Web服务器相应目录下(本例中放在C:\InetPub\home\asp下)。
在这里,Server对象的MapPath方法将指定的虚拟路径转换为真实的文件路径,最终结果类似:C:\InetPub\home\asp\Northwind.mdb。
方法二:用OLE DB创建Microsoft Access连接,下面列出关键部分。
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\home\asp\Northwind.mdb"
Cnn.Open StrCnn
(二) 与
SQL Server数据库建立连接
方法一:用OLE DB连接
SQL Server,详见例程wuf41.
asp。
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider=sqloledb; User ID=sa; Password=; Initial Catalog=pubs; Data Source=ICBCZJP"
Cnn.Open StrCnn
Initial Catalog后指定
数据库名,Data Source后为机器名(即
网络→属性→标识中的计算机名)或IP地址(需要安装DNS服务)。
方法二:
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Driver={
SQL Server};Server=ICBCZJP;UID=sa;PWD=;Database=pubs"
Cnn.Open StrCnn
除了上述的两种方法之外,当然还可使用许多文章、资料中介绍的最经典的方法:使用ODBC生成连接。就是先在Web服务器控制面板的“ODBC Data Sources”中建立一个连接,然后在
ASP中使用类似“StrCnn ="DSN=ADOCnn; UID = sa;PWD=;Database=pubs"”的连接字符串。这里不详细介绍,一来这不是最好的方法,二来其他资料都介绍了该方法。
另外,有兴趣可
下载例程wuf42.
asp看看如何使用Connection对象的ConnectionTimeout和ConnectionString属性。
二、
数据库从这里起步——检索
数据库中已存在的
数据现在假定你已有最基本的
数据库知识,知道如何使用Microsoft Access打开Northwind.mdb中的“运货商”表,看到表中储存的几条
数据。现在问题是如何使用
ASP在浏览器中显示这些
数据,下面介绍三种方法。
特别提醒:如果你的
数据库底子较薄,只要会使用第二种方法就行了,切不可贪多,以免走火入魔,切记!切记!
方法一:只使用 Connection 对象。例wuf43.
asp<% @LANGUAGE = VBScript %>
<% ' wuf43.
aspOption Explicit
'这一句是非常重要的, 它可以确保所看到的
数据不是缓存在客户端的
数据,
'而是
服务器端随时更新过的最新
数据Response.Expires = 0
'第一部分: 建立连接
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
'第二部分: 使用 Connection 对象的 Execute 方法得到记录集
Dim StrSQL, rsTest
'下面是一句SQL语句(结构化查询语句), 本讲座不具体介绍
‘建议找本书看看,基本使用还是比较简单的,一学就会
'这一句的意思是从 运货商 表中选出所有的
数据StrSQL = "Select * From 运货商"
Set rsTest = Cnn.Execute(StrSQL)
%>
<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>
这个例子是很简单的,第三部分显示
数据是
数据库典