频道栏目
首页 > 资讯 > 其他 > 正文

全国计算机等级考试二级《web程序设计》习题4

14-07-01        来源:[db:作者]  
收藏   我要投稿
下面要在页面上按提交日期降序排列所有的网站信息,请填写下面程序段中的空格。假设数据库文件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("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

相关TAG标签
上一篇:全国计算机等级考试二级《web程序设计》习题3
下一篇:全国计算机等级考试二级《web程序设计》习题5
相关文章
图文推荐

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站