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

请设计一个读取并显示数据库表的字段名信息文档，假定数据库名：person.mdb，表名grade。

　　补全完成如下代码：

　　<%@ Language=vbscript %>

　　

　　

　　

　　<%




　　set conn =____________ ‘创建数据库连接实例




　　conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="______________)     ‘打开数据库




　　set rs =___________________  ‘.Execute方法创建RS记录集合




　　for_______________________   ‘遍历表字段名




　　Response.Write "



• "___________    ‘输出字段名
  

  　　next

  
  

  　　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

　　27、请利用数据库在首页开发一个计数器（提示：每次访问该页面就读取数据库中的访问次数，然后再加1后更新记录即可。假定数据库名：temp.mdb，存放数据的表：counter，表中一个字段名：number）。

　　请补全如下代码，实现如上功能。

　　<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

　　  

　　 

　　  

　　 

　　 

　　

 我的主页 

 

　　  

　　 

　　<% 

　　Dim db 

　　Set db=_____________  ‘创建数据库连接实例

　　db.Open "Dbq=" ____________________ ";Driver={Microsoft Access Driver (*.mdb)}" 

　　’ 读取计数器 

　　set rs=_____________________________   ‘创建Recordset记录集合

　　dim sql，visitnumber，rs 

　　sql="____________________ " 

　　rs.open sql，db，1，3

　　visitnumber=_______________      ‘读取表中记录的值

　　visitnumber=_______________‘增加记录的值

　　________________________________ ‘rs记录集重新赋值

　　rs._________ ‘rs记录集合更新

　　response.write " 您是第_____________________位访问者 " 

　　%> 

　　   

　　下面是我的主页的正式内容…… 

　　 

　　答：

　　Server.CreateObject("ADODB.Connection")

　　& Server.Mappath("temp.mdb") &

　　Server.CreateObject("ADODB.Recordset")

　　SELECT Number FROM counter

　　rs("number")

　　visitnumber+1

　　rs("number")=visitnumber

　　update

　　" & visitnumber & "