ASP动态网页设计中的数据库操作

利用Connection对象操作数据库就是利用Connection对象的Execute方法对数据库记录进行查询、添加、删除、更新等几项操作。下面举一个简单的显示student表中信息的例子来说明查询操作。

【例7.2】显示student表中学生信息。

文件命名为7-2.htm的代码如下：

〈％ Option Explicit ％〉

〈HTML〉

〈head〉

〈TITLE〉利用select语句查询记录示例〈/TITLE〉

〈/HEAD〉

〈BODY〉

〈H2 align＝″center″〉学生信息表〈/H2〉

〈％

Dim Conn，strSgl，rs

Set Conn＝Server .CreateObject （″ADODB.Connection″）

Conn.ConnectionString＝″DRIVER＝｛MicrosoftAccessDriver （＊.mdb）｝；DBQ＝″&

Server .MapPath （″school .mdb″）

Conn.Open

strSql＝″select＊from student″

Set rs＝Conn.Execute （strSql）

′以下显 示数 据 库记 录

％〉

〈CENTER〉

〈TABLE border＝″1″width＝″100％″〉

〈TR bgcolor＝″#E0E0E0″〉

〈TD〉学号〈/TD〉〈TD〉姓名〈/TD〉〈TD〉性别〈/TD〉

〈TD〉出生 日期〈/TD〉〈TD〉班级〈/TD〉〈TD〉成绩〈/TD〉

〈TD〉电话〈/TD〉〈TD〉邮箱〈/TD〉

〈/TR〉

〈％

Do While Not rs .Eof

％〉

〈TR〉(www.xing528.com)

〈TD〉〈％＝rs （″s id″）％〉〈/TD〉

〈TD〉〈％＝rs （″name″）％〉〈/TD〉

〈TD〉〈％＝rs （″sex″）％〉〈/TD〉

〈TD〉〈％＝rs （″birthday″）％〉〈/TD〉

〈TD〉〈％＝rs （″class″）％〉〈/TD〉

〈TD〉〈％＝rs （″grade″）％〉〈/TD〉

〈TD〉〈％＝rs （″tel″）％〉〈/TD〉

〈TD〉〈A href＝″mailto：〈％＝rs （″email ″）％〉″〉〈％＝rs （″email″）％〉〈/A〉〈/TD〉

〈/TR〉

〈％

rs .MoveNext

Loop

％〉

〈/TABLE〉

〈/CENTER〉

〈％

rs .close

set rs＝Nothing

Conn.close

Set Conn＝Nothing

％〉

〈/BODY〉

〈/HTML〉

程序运行结果如图7-11所示。

图7-11 例7.2运行结果

说明：

①本程序主体部分分成4部分：第1部分是连接数据库；第2部分是利用Connection对象的Execute方法建立记录集；第3部分是利用一个循环显示记录；第4部分释放对象。

②第3部分利用一个Do While循环把记录集中的记录读出并显示，如果不是数据表尾，则rs.Eof为False，MoveNext方法表示记录指针向后移动一条。

③使用记录集变量（″字段名″）可以取得当前记录的字段值，如rs（″name″）表示取得当前记录的name字段值