<%
datafile="dtxy.asp"
connstr="DBQ="+server.mappath(datafile)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Set RS=Server.Createobject("ADODB.Recordset")
SQL="Select * from LeadBBS_SiteInfo"
RS.open sql,conn,3,3
RS("UserCount")="35"
RS.update
Response.write RS("usercount")
Response.end()
RS.close:Set RS=nothing
%>

