Sub RsToTable( rs )
' Part I：输出数据库的“表头”
Response.Write \ Response.Write \ For i=0 to rs.Fields.Count-1
Response.WRITE \ Next
Response.Write \ ' Part II：输出数据库的“内容” While Not rs.EOF Response.Write \ For i=0 to rs.Fields.Count-1
Response.WRITE \ Next
Response.Write \ rs.MoveNext Wend
Response.Write \End Sub
set conn=server.CreateObject (\sqlstr=\
connstr=\Access Driver (*.mdb)};DBQ=\&Server.MapPath(\与参数的顺序无关 conn.open connstr
set rs=conn.execute(sqlstr)
if rs.eof and rs.bof then '如果数据指针同时指到记录集的头部根尾部说明记录集为空 response.write \没有可以显示的数据\打印“没有可以显示的数据” end if
RsToTable( rs ) %>
<% '循环结束 rs.close set rs=nothing conn.close %>
（4）“lx615.asp”（链接数据库）程序如下： <%
set conn=server.CreateObject (\ sqlstr=\
'1.使用ODBC驱动程序直接与数据库连接 '与Access数据库连接
connstr=\&\与参数的顺序无关 conn.open connstr '或者
'connstr=\ '与参数的顺序无关
'conn.open connstr,\
'与SQL Server数据库连接
'connstr=\'conn.open connstr
'2.使用OLE DB驱动程序直接与数据库连接 '与Access数据库连接
'connstr=\&\ '不能用PWD=bbb的形式定义数据库密码 'conn.open connstr
'与SQL Server数据库连接
'connstr=\
Source=localhost;database=studentdb;UID=aaa;PWD=bbb\'conn.open connstr
'3.使用DSN与数据库连接
'ODBC数据源管理器”提供了三种DSN，分别为用户DSN、系统DSN和文件DSN。 '其中，用户DSN会把相应的配置信息保存在Windows的注册表中，但是只允许创建该DSN的登录用户使用。
'系统DSN同样将有关的配置信息保存在系统注册表中，但是与用户DSN不同的是系统DSN允许所有登录服务器的用户使用。但必须使用账号和密码。
'与上述两种数据库DSN不同，文件DSN把具体的配置信息保存在硬盘上的某个具体文件中。
'文件DSN允许所有登录服务器的用户使用，而且即使在没有任何用户登录的情况下，也可以提供对数据库DSN的访问支持。
'此外，因为文件DSN被保存在硬盘文件里，所以可以方便地复制到其它机器中。这样，用户可以不对系统注册表进行任何改动就可直接使用在其它机器上创建的DSN。
7
'在以上三种数据库DSN中，建议用户选择系统DSN或文件DSN，如果用户更喜欢文件DSN的可移植性，可以通过在NT系统下设定文件的访问权限获得较高的安全保障。 '使用用户DSN连接数据库
'connstr=\ 'conn.open connstr
'使用系统DSN连接数据库
'connstr=\ 'conn.open connstr
'使用文件DSN连接数据库
' 如果显示\错误类型：Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D) '[Microsoft][ODBC SQL Server Driver][SQL Server]用户 'sa' 登录失败。\
' 错误处理:首先用ODBC数据源配置你的DSN的属性,选择sql server验证并输入用户名和密码.
' 然后用文本编辑器打开你的文件DSN,修改其中的UID属性,并添加PWD=你的密码,即可. 'connstr=\ 'conn.open connstr 'conn.Open
'conn.open connstr
'set rs=server.CreateObject (\ set rs=conn.execute(sqlstr)
if rs.eof and rs.bof then '如果数据指针同时指到记录集的头部根尾部说明记录集为空 response.write \没有可以显示的数据\ '打印“没有可以显示的数据” end if
for i=0 to rs.fields.count-1 '输出字段名 response.write rs(i).name+\next
response.write \ '换行
do until rs.EOF '循环直到记录集尾部为止 response.write rs(\ '显示一个行的第一个字段值 response.write rs(\ '同上 response.write rs(\ '同上 response.write rs(\ '同上
response.write \ '同上 response.write rs(\ '同上
response.write \ '一个行打印完毕,换行
rs.MoveNext '将数据指针移到下一个行 loop '循环结束 rs.close
set rs=nothing conn.close %>
打开数据库DB1，显示如下界面：
8
输入密码：“bbb”,点击“确定”，进入数据库，打开“student”表如下所示：
6.18 建立一个Access数据库DB2和数据表emp,它包含的字段如下表所示: 字段名 Ename Esex Eage Eaddr Etelno 数据类型 文本 文本 数字 文本 文本 利用RecordSet组件编写ASP程序,通过表单输入四个职工的模拟数据,并在浏览器上显示emp表中的全部内容。
解答：
建立数据库DB1和数据表Student： 点击“开始”，在子菜单中再点击“程序”，在下级菜单中点击“办公软件”，选择“Microsoft Access”打开，选择“空数据库”，选择好存放的路径后命名为“DB2”。然后打开数据库，弹出如下对话框：
9
然后点击“设计”，弹出如下对话框：
输入各字段的信息得到表如下所示：
10