<%
’以下连接数据库
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("URL")%> | <%=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