ASP动态网页设计：利用Recordset对象展示记录

利用Recordset对象显示记录就是利用Recordset对象的Open方法返回一个记录集，然后利用Recordset对象的Fields集合和MoveNext方法对数据表记录集进行控制。

【例7.3】利用Recordset对象显示student表中信息。

文件命名为7-3.asp的代码如下：

〈％Option Explicit％〉

〈HTML〉

〈HEAD〉

〈TITLE〉利用 Recordset 对象显示记录示例〈/TITLE〉

〈/HEAD〉

〈BODY〉

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

〈％

Dim Conn，str Sgl，Rs

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

Set Rs＝Server .CreateObject （″ADODB.Record Set ″）

Conn.ConnectionString＝″DRIVER＝｛Microsoft Access Driver （＊.mdb）｝；DBQ＝″&_

Server .MapPath （″school .mdb″）

Conn.open

strSql＝″select＊from student″

Rs.open strSgl，Conn

′以下显示数据库记录

％〉

〈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〉(www.xing528.com)

〈％

Do While Not Rs.Eof

％〉

〈TR〉

〈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〉