补全完成如下代码:
<%@ 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 & "