一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些
问题：
一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据，可以很方便地进行查询和更新。数据库有很多种，如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来做一个通讯录：
1．建立数据库。
用Microsoft Access建立一个名为data.mdb的空数据库，使用设计器创建一个新表。
输入以下几个字段，如表7-1所示。
表7-1 data mdb的宇段和属性
保存为data.mdb文件。
2．连接数据库。
Set conn= (1)
conn.Open"driver=Microsoft Access Driver*．mdb)；dbq="&Server.MapPathCdata,mdb")
注意：一个页面中，只要连接一次就可以了，数据库使用完后要及时关闭连接。
conn.Close
Set conn=Nothing
3．添加新记录到数据库。
Set corm = Server. CreateObject("ADODB.Connection")
corm. Open "driver=Microsoft Access Driver (*.mdb);dbq="&Server. MapPath("data.mdb")
usemame = "程序员"
usermail = "xj @ 163.com"
indate = Now()
sq1 = "insert into data (usemame,usermail,indata) values(’"&usemame&"’,’"&usermail&", "’&indate&"’)"
(2)
conn. Close
Set conn= Nothing
4．选择数据库里的记录。
(1)选择所有记录的字段(按记录倒序排序)： (3) 。
(2)选择所有记录的姓名和E-mail字段(不排序)：sq1="select username.usermail from data"。
(3)选择姓名为“程序员”的所有记录： (4) 。
(4)选择使用163信箱的所有记录(按查看次数排序)：sq1="select*from data where usermail like’%"@163．com"%’order by view desc"。
(5)选择最新的10个记录：sq1="select top 10*from data order by ID desc"。
SQL语句已经知道了，不过在Web应用时，还得创建一个RecordSet对象得到记录集，才能把从数据库里取出的值应用在网页上，如果现在将所有的记录显示在网页上就使用如下代码：
Set corm =Server. CreateObject("ADODB.Cormection")
conn. Open "driver=Microsofi Access Driver (*.mdb);dbq="&Server. MapPath("data.mdb")
sq1 = "select * from data"
Set rs =Server. CreateObject("ADODB.RecordSet")
rs. Open sql,corm, 1,1
Do While Not rs.Eof
Response. Write "＜p＞姓名: "& rs("usemame") &" E-mail: "& rs("usermail") &" 查看: "& rs("view") &"次 "& rs("indate") &"加入＜/p＞"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
corm. Close
Set conn= Nothing
说明：建立数据库连接：创建rs得到记录集：循环显示记录，rs.Eof表示记录末， rs.MoveNext表示移到下一个记录；最后关闭。
5．修改(更新)数据库记录。
修改记录的E-mail：
Set corm =Server. CreateObject("ADODB.Connection")
corm. Open "driver=- Microsoft Access Driver (*.mdb) ;dbq="&Server. MapPath("data.mdb")
ID=I
usermail = "xj @ 163.com"
sq1 = "update data set usermail=’"&usermail&"’ where ID="&CInt(ID)
eonn. Execute(sq1)
conn. Close
Set conn = Nothing
说明：建立数据库连接；获取记录ID、新E-mail字符串；使用update语句修改记录； conn.Execute来执行；最后关闭。如果使记录的查看值加1，则sq1="update data set view=view+1 where ID="&CMt(ID)
6．删除数据库记录。
删除某一条记录：
Set corm =Server. CreateObject("ADODB.Connection")
conn.Open "driver=Microsoft Access Driver (*.mdb) ;dbq="&Server. MapPath("data.mdb")
ID=1
sql = (5)
corm. Execute(sq1)
corm. Close
Set conn= Nothing