下面要在页面上按提交日期降序排列所有的网站信息，请填写下面程序段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link，该表中有三个字段name，url，submit_data，分别代表网站名称、相关的链接和提交的日期。
<%
’以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open
’以下建立记录集
Dim strSql，rs
strSql=
set rs=db.execute(strsql)
’以下显示数据库记录
Do While
%>
<%
Loop
%>
| 网站名称 | 网站地址 | 提交日期 |
| <%=rs("name")%> | <%=rs("submit_date")%> |
答：
"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
"Select * From link Order By Submit_date Desc"
Not rs.Eof
<%=rs("URL")%>
rs.MoveNext
25、请设计一个读取并显示数据库表头和记录的ASP文档，假定数据库名：person.mdb，表名grade。
补全完成如下代码：
<%
‘创建数据库连接实例
set conn =__________________________
‘打开数据库
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="_________________________)
‘创建记录集合
set rs =______________---
’把查询得到的结果输出到表中
Response.Write "
’表头读取并显示
Response.Write ""
For__________________
Response.Write ""_______________""
Next
Response.Write ""
’把查询结果填入表中
While ___________
Response.Write ""
For_________________
Response.Write ""_____________""
Next
____________
Response.Write ""
Wend
Response.Write ""
Set conn = nothing
%>
答：
Server.CreateObject("ADODB.Connection")
&Server.MapPath("person.mdb")
conn.Execute( "select * from grade" )
i=0 To rs.fields.count-1
&rs(i).Name&
not rs.EOF
i=0 To rs.fields.count-1
&rs(i).value&
rs.MoveNext