 |
| <%
dim conn
dim connstr
connstr="dbq="+server.mappath("mydata.mdb")+";defaultDir=;driver={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("adodb.connection")
conn.open connstr
set rs=server.createObject("adodb.recordset")
'定义的SQL语句的内容是查询counter where id=1"
sql="select * from counter where id=1"
rs.open sql,conn,3,3
'将counnt字段的值加1后写回数据库
rs("count")=rs("count")+1
'更新记录
rs.update
'用response.write方法在页面上输出当前count字段的值
response.weite(rs("count"))
'关闭程序与数据库的连接
rs.close
set rs=nothing
conn.close
set conn=nothing
%> |
| |
|
|
