<%  ip = Request.ServerVariables("REMOTE_ADDR") GuestDate=date()
 set accon=Server.CreateObject("adodb.connection")   
connstr="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("IP.mdb")
 accon.Open connstr    '来访者IP   
set rsAdd=server.CreateObject("adodb.recordset")   
rsAdd.addnew   
rsAdd("ID")="2"   
rsAdd("GuestIp")=ip   
rsAdd("GuestDate")=date()   
rs.update      '网站历史访问人数  
set rs=server.CreateObje("adodb.recordset")  
sql = "select  * from PE_GuestRecord"   
rs.open sql,accon,1,1  
 AllRecord= rs.RecordCount