微软公司的ASP加上IIS3.0就能为网站建设、INTRANET应用提供一个灵活的构建方法，他可以方便地访问ODBC兼容的数据库。

这篇文章中，我们将学到数据库的基本操作，比如建立、添加记录、删除记录、编辑记录等。

使用ASP建立的动态主页与浏览器无关，也就是说，你不论用哪种浏览器都能浏览ASP的页面，使用JSCRIPT和VBSCRIPT加上一些其他ASP元件，你就能在你的INTRANET应用中使用ASP。使用ASP不仅意味着您可以读取ACCESS和SQL SERVER的数据库，同时也意味着你可以读取其他ODBC兼容的数据库。 使用ASP将比编写CGI快的多，对于那些习惯VISUAL BASIC的人来说， ASP将是最好的选择。

其他的如 Chili!ASP 功能上与ASP差不多，可以用在许多WWW平台上，甚至一些UNIX服务器（比如重庆太阳城，Linux ，ASP脚本用的是PERL语言。译注）。

在调试ASP代码时，我没有使用调试器，我发现大多数错误都是由于我的拼写错误引起的，或者是在HTML中嵌入变量时没有使用??＃ü赜谠?TML中引用ASP变量值，或者输出，我在第一篇文章中有说明。译注）。

这里提供的代码仅是一个例子，不能用做一个应用。如果在没有记录时，您尝试删除记录或编辑记录，程序并没有处理这种情况。这个例子是在NT4.0上建立的，数据库用MS Access 7，你必须有32位的ODBC驱动程序。（如果你安装了IIS3。0或ACCESS，那自然是已经有了，译注）

下面的例子包含了数据库的基本操作，但是这些操作可能每一个用ASP访问数据库的人都会用到。你可以往数据库中添加记录，编辑或删除记录。

图一：数据库Microsoft Access

数据库

我用ACCESS的数据库做，建立一个数据库user.mdb

他包含两个表：TblUser,TblUserAccess.

TblUSer, 包含用户的一些信息，有以下字段： -用户名,用户登录名 ,用户口令,登录时间和访问级别 (USERNAME, USERLOGIN, USERPASSWORD, USERENTRYDATE, and ACCESSID). ACCESSID, 用户级别指向表TblUserAccess中的 ACCESSID字段. 表 TblUserAccess 用来定义访问级别- ACCESSDESC

DSN

一旦你建好了数据库，你需要为数据库建立一个DSN入口，不防给他取名叫：UserDB1. 照下面的步骤去做：（关于DSN，我将在本文末做介绍，译注）

单击???，选设置控制面板。

双击图标 "32位 ODBC",将弹出一个对话框，选标签 "System DSN"

单击 "Add" 添加一个 DSN 入口, 选择 "Microsoft Access Drive".确认。

在 "Data Source Name" 栏里输入 "UserDB1", 然后单击"Select" 选择数据库，你可以按"Browse" 来选中 users.mdb.你可以把数据库放在任何位置，比如建立一个目录来放吧： c:\inetsrv\wwwroot\users\users.mdb

图二：连接数据库，方法一

<% Conn.Open "ADOSamples" Set RS = Conn.Execute("SELECT * FROM TblUser") Do While Not RS.EOF . Response.Write(rs("USERNAME")) . . RS.MoveNext Loop RS.Close Conn.Close %>

连接数据库 方法一

ASP提供两种方法来访问数据库。在第一中方法中，你首先必须建立一个连接，之后，你可以加载任何合法的SQL语句。最后，关闭连接。 一些代码你可以直接拿来用。图二中，用?serDB1??SN，建立连接后，可以用Execute加载任何合法的SQL语句。之后，在一个循环中引用数据。必须注意的是，在最后一定要记住关闭连接。

图三：连接数据库 方法二

SUB Session_OnStart

'---- Open ADO connection to database

Conn.Open "UsersDB1", "userdblogin","userdbpassword"

END SUB

图四：文件Global.asa 中用于连接的串

Conn.Open "UserDB1", "userdblogin","userdbpassword"

连接数据库 方法二：

另外一种方法是在用户的SESSION中建立连接。当SESSION结束时，关闭连接。这要用到文件Global.asa.每一个基于ASP的INTRANET应用都可以有一个global.asa，它应当存放在这个应用的根目录下。在 global.asa 文件中可以定义四个事件处理程序，四个事件是：- Application-Start , Session-Start, Application-End 和 Session-End. 你可以在事件session-Start 中打开数据库连接，在事件Session-End 中关闭连接。

在图四中，用用户名?serdblogin",口令"userdbpassword"建立了一个到DSN "UserDB1"的连接。在整个SESSION中都可以使用连接"Conn".

大家可以看例子default.asp 和文件global.asa.

图五：取得表单元素的值.

Action = Request.Form("Action")

从表单中取得信息

在基于ASP的应用中，你可以将ASP的例程代码放在一个专门的文件中，然后在需要的地方用"include"包含进来。图五中取得表单元素"Action"的值

图六：生成控制条

if Action = "" or Action= "ADD" then

CBar=CBar & " < td valign=top><input type=submit name=Action value=Add></td>"

CBar=CBar & "< td valign=top><input type=submit name=Action value=Edit></td>"

CBar=CBar & "<td valign=top><input type=submit name=Action value=Delete></td>"

end if

生成控制条

依照action的值，可以显示不同的控件，发送不同的HTML文本到浏览器，图六中的代码表示，如果Action的值为空或为"ADD"，就显示控件?砑?，?嗉?，?境?。

图七：插入记录

sqlstr= "INSERT INTO TblUser " sqlstr= sqlstr & "(USERNAME, USERLOGIN, USERPASSWORD," sqlstr= sqlstr & " USERENTRYDATE, ACCESSID )VALUES " sqlstr= sqlstr & "('" & USERNAME & "','" & USERLOGIN & "','" sqlstr= sqlstr & "& USERPASSWORD & "',#" & datetoday & "#," & ACCESSID & ")"

插入记录

在检查了用户输入的各个表单域都合法时，就可以往数据库里插入记录。我们使用的是SQL语句来完成这件事。注意我们用了VBSCRIPT的函数 ForMatDateTime 来转换日期成 "mm/dd/yy" 格式（见default.asp，译注）。

图八：查出所有记录

sqlstr="SELECT * FROM TblUser ORDER BY USERNAME ASC" set rsUsers=Conn.Execute(sqlstr)

编辑记录

为了编辑记录，我用两步实现。首先，查询出所有记录（只显示姓名），并在每一条记录旁显示一个单选扭，当用户选了要编辑的记录后，提交表单，然后才开始修改记录。图八中表示如何查询出所有记录。

图九：更新记录

size="4">

sqlstr= "UPDATE TblUser "

sqlstr= sqlstr & "SET USERNAME ='" & USERNAME & "', "

sqlstr= sqlstr & "USERLOGIN ='" & USERLOGIN & "', "

sqlstr= sqlstr & "USERPASSWORD ='" & USERPASSWORD & "', "

sqlstr= sqlstr & "USERENTRYDATE =#" & datetoday & "#, "

sqlstr= sqlstr & "ACCESSID =" & ACCESSID

sqlstr= sqlstr & " WHERE USERID=" & USERID & ";"

更新记录

实际的修改是在图九中用SQL实现的。

图十：控制程序流向

<% if Action="EDI" or Action="DEL" then '---- Edit Mode do until rsUsers.EOF strUsers=strUsers & "<option value=" & rsUsers("USERID") & ">" & rsUsers("USERNAME") rsUsers.MoveNext loop %>

<tr><td valign=top>

<select name="USERID">

<%=strUsers%>

</select>

</td></tr>

<% end if %>

删除记录

为了删除记录，必须知道一个用户的 USERID，图十的代码生成了一个下拉菜单供选择。

下面是以上例子中用到的源代码：（default.asp中的注释已经译成中文，译注）

default.asp global.asa

附：DSN（以下为译者加上的）

在用ODBC时，经常见到DSN这个名词，那它是什么意思呢？DSN即Data Souce Name的意思，数据源名。我们知道，ODBC是一种访问数据库的方法，只要系统中有相应的ODBC驱动程序，任何程序就可以通过ODBC操纵驱动程序的数据库。比如，我们系统中有ACCESS的ODBC驱动程序，那我们不需要有ACCESS软件，就可以在我们的程序，如VB编的，VC编的等，中间往一个ACCESS的MDB数据库中加、删、改记录。而且我们根本不用知道这个数据库是放在那里的。我们只要写一些SQL语句就可以了。ODBC驱动程序会帮我们做一切事情。我们在给ODBC驱动程序传SQL指令时，用的即是DSN来告诉他到底操作的是哪一个数据库。如果数据库的平台变了，比如我们改用了SQL SERVER的数据库，只要其中表的结构没变，我们就不用改写我们的程序，只要重新在系统中配置DSN就行了。我们的程序还根本不知道已经换了人为他服务了呢。

由此可见，DSN是应用程序和数据库之间的桥梁，要通过ODBC访问数据库，前提就是，我们必须配置好DSN（即架好桥梁),从以上的我们可以看出，一个DSN必须包含一些信息，

DSN的名字，就是给这座桥取个名字，我们的程序中访问数据库时，给系统传的就是这个名字，而不是数据库的实际名字。

用的是哪种ODBC驱动程序，这样子，在我们要操作数据库时，系统才会知道调哪个ODBC驱动程序来服务。

数据库，你必须指定这座桥到底连接的是哪个数据库，这好象不用多说哦：），但不同的数据库系统，指定数据库的名字方法有些不同，ACCESS的就是让你选一个MDB文件。

这座桥是架在系统之中的，所以WIN95（NT）提供了一个工具来完成这件事，即是控制面板中的32 BIT ODBC，有三类DSN，用户DSN，系统DSN，文件DSN，我们一般就用系统DSN，因为这样可以让所有人都使用这个DSN。