吃一堑长一智

一般来说，一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据，可以很方便的查询和更新。数据库有很多种，如：Fox 数据库(.dbf)、Access 数据库(.mdb)、Informix、Oracle 和 SQL Server 等等，在这里，我将以 Microsoft Access 数据库为例来说明ASP是如何访问数据库的。

常用数据库语句

　　1.SELECT 语句：命令数据库引擎从数据库里返回信息，作为一组记录。
　　2.INSERT INTO 语句：添加一个或多个记录至一个表。
　　3.UPDATE 语句：创建更新查询来改变基于特定准则的指定表中的字段值。
　　4.DELETE 语句：创建一个删除查询把记录从 FROM 子句列出并符合 WHERE 子句的一个或更多的表中清除。
　　5.EXECUTE 语句：用于激活 PROCEDURE（过程）

用 ASP 来做一个自己的通讯录练练手吧……

一、建立数据库：

　　用 Microsoft Access 建立一个名为 data.mdb 的空数据库，使用设计器创建一个新表。输入以下几个字段：

　　字段名称　　数据类型　　说明　　　　　　其它
　　ID　　　　　自动编号　　数据标识　　　　字段大小：长整型　新值：递增　索引：有（无重复）
　　username　　文本　　　　姓名　　　　　　缺省值
　　usermail　　文本　　　　E-mail　　　　　缺省值
　　view　　　　数字　　　　查看次数　　　　字段大小：长整型　默认值：0　索引：无
　　indate　　　时间日期　　加入时间　　　　缺省值

　　保存为 data.mdb 文件，为了便于说明，只是做了一个比较简单的库。

二、连接数据库

　　方法1：
　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　方法2：
　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")

　　注意：一个页面中，只要连接一次就可以了，数据库使用完后要及时关闭连接。
　　conn.Close
　　Set conn = Nothing

三、添加新记录到数据库

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　username = "风云突变"
　　usermail = "fytb@163.com"
　　indate = Now()

　　sql = "insert into data (username,usermail,indata) values('"&username&"','"&usermail&"','"&indate&"')"
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

　　说明：建立数据库连接；通过表单获取姓名、E-mail 字符串，Now()获取当前时间日期；使用 insert into 语句添加新记录；conn.Execute 来执行；最后关闭。

四、选择数据库里的记录

　　1.选择所有记录的字段（按记录倒序排序）：sql = "select * from data order by ID desc"
　　2.选择所有记录的姓名和E-mail字段（不排序）：sql = "select username,usermail from data"
　　3.选择姓名为“风云突变”的所有记录：sql = "select * from data where username='"风云突变"'"
　　4.选择使用 163 信箱的所有记录（按查看次数排序）：sql = "select * from data where usermail like '%"@163.com"%' order by view desc"
　　5.选择最新的10个记录：sql = "select top 10 * from data order by ID desc"

　　SQL 语句已经知道了，不过在Web应用时，还得创建一个 RecordSet 对象得到记录集，才能把从数据库里取出的值应用在网页上，如果现在将所有的记录显示在网页上就这样：

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　sql = "select * from data"
　　Set rs = Server.CreateObject("ADODB.RecordSet")
　　rs.Open sql,conn,1,1

　　Do While Not rs.Eof
　　　　Response.Write "<p>姓名："& rs("username") &"　E-mail："& rs("usermail") &"　查看："& rs("view") &"次　"& rs("indate") &"加入</p>"
　　　　rs.MoveNext
　　Loop

　　rs.Close
　　Set rs = Nothing
　　conn.Close
　　Set conn = Nothing

　　说明：建立数据库连接；创建 rs 得到记录集；循环显示记录，rs.Eof 表示记录末，rs.MoveNext 表示移到下一个记录；最后关闭。

五、修改（更新）数据库记录

　　修改记录的E-mail：

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　ID = 1
　　usermail = "fytb@163.com"

　　sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

　　说明：建立数据库连接；获取记录ID、新 E-mail 字符串；使用 update 语句修改记录；conn.Execute 来执行；最后关闭。
　　如果使记录的查看值加1，则：sql = "update data set view=view+1 where ID="&CInt(ID)

六、删除数据库记录

　　删除某一条记录：

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　ID = 1

　　sql = "delete from data where ID="&CInt(ID)
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

　　说明：建立数据库连接；获取记录ID；使用 delete 语句删除记录；conn.Execute 来执行；最后关闭。
　　删除多条记录为：sql = "delete from data where ID in (ID1,ID2,ID3)"
　　删除所有记录为：sql = "delete from data"

总结：

　　以上教程是针对ASP的初学者而写的，只是介绍了一些基本的用法，在了解之后可以自己去试试，重要的在于能举一反三、综合运用。更多的语法和参数请参阅 Microsoft Access 帮助中的 Microsoft Jet SQL 参考，由于本人才疏学浅、能力有限，如有表达不明确有地方还望指出，如果在应用当中遇到什么问题，也希望能够提出。谢谢。

比方说，假设有个团队成员登录到GUI屏幕输入自己的名字姓氏和名字之间用点号连接：amy.cowen。这个值通过表单提交，她的当前项目列表就从数据库中取了出来并显示在屏幕上。为了快速地取出用户的记录以便显示在屏幕上，你可以编写以下代码。

假设HTML页面上包含以下代码：
<FORM ACTION="login_post.asp" METHOD="POST">
<INPUT TYPE="text" NAME="dotname">
<INPUT TYPE="submit">
</FORM>

在你的login_post.asp 代码页上你希望读取dotname 字段的值，同时找出数据库内匹配的记录：
SQL = "SELECT dotname, ID FROM team WHERE dotname = '" & Request.Form("dotname") & "'"

假如你采用GET 方法，需要把数据库记录同QueryString中的字段值做比较，那么你可以采用同样的基本方法：
SQL = "SELECT dotname, ID FROM team WHERE dotname = '" & Request.QueryString("dotname") & "'"

当然，你还可以把表单字段的值分配给某个变量并把它插入到你的SQL语句中：
dotname = Request.QueryString("dotname")
SQL = "SELECT dotname, ID FROM team WHERE dotname = '" & dotname &"'"

如果你正在使用ASPrecordset在网页上写出记录，那么你或许知道乱纷纷的顺序是多令人痛苦的事。但是你可能不得不经常得面对这一问题，因为并不存在什么简单方便的解决方案。好在ORDER BY 可以简化这一难题。

为了对你的结果排序，只要在SELECT语句末尾加上ORDER BY，然后指定你需要排序的参照列即可。因此，如果你想要根据顾客的姓氏对Customers表排序，那么你可以编写如下的查询语句：
SQL = "SELECT c_lastname, c_firstname, c_email FROM Customers ORDER BY c_lastname"

这样，只要你建立了recordset而且开始把结果写到屏幕上，你就会看见数据按照字母顺序排列起来了。

多级排序
其实不仅仅可以在SQL语句中进行一级排序。实际上，在很多情况下，你可能会希望指定两到三级深度的数据排序。假设你有一个数据表

先前采用的单级ORDER BY 排序是按下面的顺序取出数据的：
Absurdly Assured
absurd@assured.com

Absolutely Assured
absolutely@assured.com

Crazed Coder
crazy@coder.net

Loosely Fringe
loose@fringe.to

Lunatic Fringe
lune@fringe.to

Hands On
hands@yes.org

显然ORDER BY 起了应有的作用。在实际的表结构下，Absurdly Assured 是最后的条目，但它排在检索结果的最顶端。Hands On记录排最后因为 O 在以上列表中排在字母表最后。显然，Absolutely按照字母表最好排在Absurdly之前。为此，你需要采取第2级ORDER BY 排序标准，参照第2列进行排序：
SQL = "SELECT c_lastname, c_firstname, c_email FROM Customers ORDER BY
c_lastname, c_firstname"

其结果将首先按照c_lastname 列排序然后按照c_firstname 列排序。假如你的数据表包含的记录比较多，仔细设计排序会令输出结果编排更为合理。

投入使用
如果你同大多数程序员一样喜欢自己动手编代码，沉湎于掌握新技术的狂热之中。何不从ASP的冗长编码中转过头来尝试一下SQL编码呢？下面我们将就ASP编程时常见的问题以及如何在ASP中高效地利用SQL语句做一番探讨。

假设你每周都要给团队做一次报告，指出目前存在的业务支持问题，这些数据需要从你的数据库中选取，而且要按照日期选择记录，同时根据你所在团队所采用的支持问题的类别排序。一旦你设计了这一查询，你何必以后每周都重新编写一次呢？不要在你的HTML页面上创建查询，你应该用你的数据库工具创建查询并且保存它。 然后你可以采用ActiveCommand 属性把查询插入到你的ASP网页。头一两回你可能会觉得没啥意思，其实也就几行代码而已：
Set objSQ = Server.CreateObject ("ADODB.Command")
objSQ.ActiveConnection = "databaseName"

objSQ.CommandText = "storedQueryName"
objSQ.CommandType = adCmdStoredProc

set objRec = objSQ.Execute

注意，采用adCmdStoredProc 表示你已经在页面上包含了adovbs.inc 文件。该文件定义了你可以按照名字而非数字进行访问的Access常数。只需要在页面上包含该文件即可?!--#INCLUDE -->），然后你就可以用adCmdStoredProc 这类名字了。这样，将来你再看到的时候更容易理解以上被存储的查询到底是个什么意思。

一旦创建了SQL 语句，你还得设法访问其查询结果。显然，这里的关键就是ASP recordset。在使用非SQL的recordset时，创建recordset的代码通常如下所示：
Dim objRec
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "customers", objConn, 0, 1, 2

如果你对ASP比较熟悉以上的代码对你可就不陌生了，你应该知道“customers”表示你打开数据库内一个数据表的名字。

打开recordset
为了充分利用你更为熟悉的SQL技能，你需要调整常规ASP网页上最常采用的recordset：
Dim objRec
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open SQL, objConn, 0, 1, 2

这里唯一的修改就是在objRec.Open,之后用包含SQL语句的变量代替了要查询的数据表的名称。

这种方法的优点之一是你可以指定游标类型（如以上0, 1 ,2 所示）。

执行SQL
你可以用紧凑的一行代码执行SQL语句来创建recordset。以下是语法：
Dim objRec
set objRec = objConn.Execute(SQL)

在上例中，你所看到的SQL是你存放自己SQL SELECT 语句的变量。该代码行“运行”SQL语句（或者说对数据库进行查询），选取数据并把数据存放在recordset 内，在上例中就是变量objRec。这种方法的主要缺点是你不能选择自己想采用的游标类型。相反，recordset总是用前向游标打开。

因为游标的缘故，你或许打算熟悉两种创建recordset的方法。直接执行查询节省了键入字符所消耗的时间，但那样的话你就得采用默认的游标了，这样有可能遭遇经常不能正常运行的毛病。不管你具体采用哪种办法，两者之间的最大的差别也不外乎代码精练与否。在不考虑你取得什么字段、你的标准是什么的前提下，也不管你如何存储数据，采用SQL式的recordset 在体积上会比ASP上打开的标准recordset 要小得多，更别提操作起来的简易性了。毕竟，通过过滤数据，你消除了耗费时间的if-then 测试和可能用到的循环。

编写测试用SQL
这里有个技巧，许多专业ASP程序员习惯在测试网页的时候“编写”自己的SQL语句。这样做可以帮助你调试代码，因为你可以从中看到传递给服务器执行的字符串。而你要做的无非是增加Response.WriteyourVariable 在屏幕上显示有关信息。在你把和SQL有关的问题提交给ASP讨论组的时候你就应该附上这些信息。

以下面的SQL语句为例：
SQL ="SELECT c_firstname, c_lastname, c_email FROM customers WHERE c_email IS
NOT NULL AND c_purchase = '1' OR c_purchase = '2' AND c_lastname LIKE
'A%'"

就你目前所掌握的SQL知识，以上的例子也不难解释，不过上面的语句并没有很明白地让你看清条件字句是如何胶合在单一SQL语句中的。

多行语句
在SQL语句不好懂的情况下，你不妨把整个语句分解为多行代码，然后在现有变量基础上逐步增加查询语句的各个组成部分并把它存在同一变量内：
SQL = "SELECT c_firstname, c_lastname, c_emailaddress, c_phone"
SQL = SQL & " FROM customers"
SQL = SQL & " WHERE c_firstname LIKE 'A%' and c_emailaddress NOT NULL"
SQL = SQL & " ORDER BY c_lastname, c_firstname"
到了最后一句，SQL变量就包含了以下的完整SELECT 语句：
"SELECT c_firstname, c_lastname, c_emailaddress, c_phone FROM customers
WHERE c_firstname LIKE 'A%' and c_emailaddress NO NULL ORDER BY c_lastname,
c_firstname"

整句照上面分解之后显然好读多了！在进行调试的时候，你或许更乐于多敲几个字符把程序改得更好读些。不过你可要记住了，在封闭引号之前或者在打开引号之后你需要增加空格，这样才能保证字符串连接起来的时候你没有把几个词凑到了一块。

你已经在上面取出w打头记录的例子中看到了LIKE的用法。LIKE判定词是一个非常有用的符号。不过，在很多情况下用了它可能会带给你太多的数据，所以在用到它之前最好先开动脑筋多想想自己到底想获得什么数据。假设你想取出5位数字的SKU号码，而且其开头是1结尾是5，那么你可以用下划符（_）代替%符号：
SQL = "SELECT * FROM Products WHERE p_sku LIKE '1___5'"

下划符表示任意一个字符。所以在输入“1 _ _ _ 5”的情况下，你的搜索就会限制在满足特定模式的5位数范围内了。

假如你想反其道而行之，要找出所有不匹配“1_ _ _ 5”模式的SKU条目。那么你只需要在刚才语句例子中的LIKE前面加上NOT就可以了。

BETWEEN
假设你想取出一定范围内的数据，而且你事先知道范围的起点和终点，那么你不妨采用BETWEEN 判断词。现在就让我们假设你想选取给定表内范围在 1和 10之间的记录。你可以如下使用BETWEEN：
…WHERE ID BETWEEN 1 AND 10

或者你也可以采用已经熟悉的数学判断字句：
…WHERE ID >= 1 AND ID >= 10