<% 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 %>

公告

站内搜索

最新留言

在线投票

资源下载         More...