平山职教中心-先教专栏
<%
Response.Buffer = True
dim conn
dim connstr
dim rst,sql
dim path
path=server.MapPath("database/Upload.mdb")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & path
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql1="select * from xydt"
sql2="select * from jyinfo"
set rst1=server.CreateObject("adodb.recordset")
rst1.open sql1,conn,1,1
set rst2=server.CreateObject("adodb.recordset")
rst2.open sql2,conn,1,1
'计数器
'Application.Lock '将对象锁定
SQLcmd = "select * from counter"
set rs=conn.Execute(SQLcmd)
'Application.UnLock
%>