●试题三 以下是ASP与数据库应用的典型例子，阅读后请补充 （1) ～ （5) 空缺的内容。 一个真正的、完

●试题三

以下是ASP与数据库应用的典型例子，阅读后请补充 (1) ～ (5) 空缺的内容。

一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据，可以很方便地进行查询和更新。数据库有很多种，如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的空数据库，使用设计器创建一个新表。

输入以下几个字段，见表1。

表1data mdb的字段和属性

字段名称

数据类型

说 明

其 他

ID

自动编号

数据标识

字段大小：长整型新值：递增索引：有(无重复)

username

文本

姓名

缺省值

usermail

文本

E-mail

缺省值

View

数字

查看次数

字段大小：长整型默认值：0索引：无

Indate

时间日期

加入时间

缺省值

保存为datA．mdb文件

2.连接数据库

Set conn= (1)

conn.Open"driver={Microsoft Access Driver.mdb)};dbq="&Server.MapPath("datA．mdb")

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

conn.Close

Ser conn=Nothing

3.添加新记录到数据库

Set conn=Server.CreateObject("ADOD

B．Connection")

conn.Open"driver={Microsoft Access Driver(.mdb};dbq="&Server.MapPath("datA．mdb")

username="程序员"

usermail="xj@163.com"

indate=Now()

sql="insert into data(username,usermail,indata)values("&username&","&usermail&","&indate&")"

(2)

conn.Close

Set conn=Nothing

4.选择数据库里的记录

1)选择所有记录的字段(按记录倒序排序)： (3) 。

2)选择所有记录的姓名和Email字段(不排序)：sql= "select username,usermail from data"。

3)选择姓名为“程序员”的所有记录： (4) 。

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("ADOD

B．Connection")

conn.Open"driver={Microsoft Access Driver(*.mdb)}；dbq="&Server.MapPath("datA．mdb")

sql="select*from data"

Set rs=Server.CreateObject("ADOD

B．RecordSet")

rs.Open sql，conn，1，1

Do While Not rs.Eof

Response.Write"＜p＞姓名："& rs("username")＆"E-maih:"＆ 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表示移到下一个记录；最后关闭。

5.修改(更新)数据库记录

修改记录的Email：

Set conn=Server.CreateObject("ADOD

B．Connection")

cons.Open"driver={Microsoft Access Driver(*.mdb)}；dbq="&Server.MapPath("datA．mdb")

ID=1

usermail="xj@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)

6.删除数据库记录

删除某一条记录：

Set conn=Server.CreateObject("ADOD

b.Connection")

conn.Open"driver={Microsoft Access Driver(*.mdb)}；dbq="&Server.MapPath("datA．mdb")

ID=1

sql= (5)

conn.Execute(sql)

conn.Close

Set conn=Nothing