<%
Dim Conn,DB,ConnStr
db="admin/DataBase/#yicaihe.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&DB&"")
Conn.Open ConnStr
dim visiter
dim sql
dim rs
sql="select visiter from visiter where id=1"
set rs=conn.execute(sql)
visiter=rs("visiter")
'response.write sql
response.write "visiter="+cstr(visiter)
visiter=visiter+1
response.write "visiter="+cstr(visiter)
sql="update visiter set visiter='"+cstr(visiter)+"' "
rs.close
set rs=nothing
conn.execute(sql)
%>
