<% db="count.mdb" dim conn dim connstr Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.open connstr Set rs = Server.CreateObject ("ADODB.Recordset") sql="select * from [user]" rs.open sql,conn,1,3 rs("num")=rs("num")+1' rs.update response.write("document.write('"&rs("num") &"')") rs.close:Set rs=Nothing %>