网站历史访问人数 出错了 帮忙看看
<% 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
