<%
Dim conn
Dim connstr
connstr="DBQ="+Server.mappath("db1.mdb")+";DefaultDIR=;driver={Microsoft Access Driver (*.mdb)};"
Set conn=Server.Createobject("ADODB.CONNECTION")
conn.open connstr
Set rs=Server.Createobject("ADODB.RecordSet")
sql="select * from counter where id=1"
rs.open sql,conn,3,3
rs("count")=rs("count")+1
rs.update
Response.write(rs("count"))
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
公告
站内搜索
最新留言
在线投票