adodb.recordset") rs.open "select * from 学生信息",conn %>
<%for i=0 to rs.fields.count-1%> <%response.write(rs(i).name)%> | <%next%>
<%while not rs.eof%> <%for i=0 to rs.fields.count-1%>
3
<%response.write(rs(i).value)%> | <%next%>
<%rs.movenext wend%>
方法二即非显示声明 recordset 对象: <% Set conn = Server.CreateObject("ADODB.Connection") strProvider= "driver={Microsoft Access Driver (*.mdb)};dbq=" &; Server.MapPath("db1.mdb") conn.Open strProvider set rs=conn.execute("select * from 学生信息") %>
<%for i=0 to rs.fields.count-1%> <%response.write(rs(i).name)%> | <%next%>
<%while not rs.eof%> <%for i=0 to rs.fields.count-1%> <%response.write(rs(i).value)%> | <%next%>
<%rs.movenext wend%>
2、数据库 db1.mdb 中包含一个名称为学生信息的表,学生信息表中有四个字段分别是:学 号、 、 性别、 专业, 且四个字段均为字符型。 现要求插入一条记录 “01” ( , “张娜” , “女” , “电子商务”, ) 使用 ADO 的 CONNECTION 对象完成上述功能, 写出完整的服务器端代码。 答案: <% Set conn = Server.CreateObject("ADODB.Connection") strProvider= "driver={Microsoft Access Driver (*.mdb)};dbq=" &; Server.MapPath("db1.mdb") conn.Open strProvider Conn.Execute "insert into 学生信息(,,性别,专业) values('01','张娜','女','电子商务')" Conn.Close %> 3、数据库 db1.mdb 中包含一个名称为学生信息的表,学生信息表中有四个字段分别是:学 号、、性别、专业,且四个字段均为字符型。现在要求编写一个页面,名称为 add.asp, 其作用为插入一条记录( “01”“张娜”“女”“电子商务”,并将插入记录后学生信息表 , , , ) 中的全部内容显示在网页上。要求插入新记录使用 recordset 对象的 addnew 方法,并用表格 的形式逐条显示学生信息表中的记录。请写出完整的 asp 代码。
4
答案: <% set conn=server.createobject("adodb.connection") '打开连接数据库 strProvider= "driver={Microsoft Access Driver (*.mdb)};dbq=" &; Server.MapPath("db1.mdb") conn.open strprovider set rs = server.createobject("adodb.recordset") rs.open "学生信息",conn,1,3 rs.addnew'增加记录 rs("").value= "01" rs("").value= "张娜" rs("性别").value= "女" rs("专业").value= "电子商务" rs.update rs.movefirst '建立一个表,把
查询得到的结果保存到表中 response.write "
" '表头 response.write "" for i=0 to rs.fields.count-1 response.write ""&; (rs(i).name)&;" | " next response.write "
" while not rs.eof response.write "" for i=0 to rs.fields.count-1 response.write ""&;rs(i).value&;" | " next rs.movenext response.write "
" wend response.write "
" rs.close '断开连接 set conn=nothing%> 4、更改记录操作:数据库的 db1.mdb 中包含一个 news 表,该表包含 ID(自动编号) 、title (文本) 、content(备注) 、update(时间日期) 、author(文本)五个字段。编写三个页面, 实现更改指定文章内容的操作。分别写出这三个页面的代码。 ⑴第一个页面的作用是显示数据表中的记录, 其中每个标题带有超级链接, 当单击某个标题 时,会跳转到第二个页面,并显示该条新闻的内容。效果如图所示: 1.asp
5
⑵第二个页面的作用是显示相应文章的详细内容,并用控件显示内容,可以接受用户修改。 当用户修改了内容,单击修改按钮时,跳转到 3.asp。第二个页面的显示效果如图所示: 2.asp
⑶第三个页面的作用是,保存第二个页面对文章详细内容所作的修改,并自动跳转到 1.asp。 1.asp 代码: <% Set conn = Server.CreateObject("ADODB.Connection") strProvider= "driver={Microsoft Access Driver (*.mdb)};dbq=" &; Server.MapPath("db1.mdb") conn.Open strProvider set rs=server.createobject("adodb.recordset") rs.open "select * from news",conn %>
2