% 'if session("tjau")<>1 then 'set conn=Server.Createobject("adodb.connection") 'conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("count.MDB") Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" Path = "Data Source=" & Server.MapPath("count.mdb") Set conn= Server.CreateObject("ADODB.Connection") p1=Provider&Path conn.Open P1 set rs=server.CreateObject("adodb.recordset") sql="select * from item" rs.open sql,conn,1,3 rs.addnew rs("date")=now() rs("ip")=request.servervariables("remote_addr") rs.update rs.close set rs=nothing set rs1=server.CreateObject("adodb.recordset") sql1="select visiter from visiter " rs1.open sql1,conn,1,3 count=rs1("visiter") sql2="update visiter set visiter=visiter+1" rs1.close set rs1=nothing conn.execute(sql2) conn.close set conn=nothing 'session("tjau")=1 'end if %>