急（在线等），关于统计首页的访问量！

谁谁能帮我改改下面的程序，我想实现统计总的访问量和今天的访问量  
  <%  
  set   conn=CreateObject("ADODB.Connection")  
  strProvider="Driver={Microsoft   Access   Driver   (*.mdb)};   DBQ="   &   Server.MapPath("count.mdb")  
  conn.Open   strProvider  
  set   rs=Server.CreateObject("ADODB.Recordset")  
  rs.open"select   *   from   count",conn,2,2  
  Application   Lock  
  rs.movefirst  
  rs("vtotal")=rs("vtotal")+1  
  vtotal=rs("vtotal")  
  rs.movelast  
  rs.addnew  
  rs("vipadd")=Request.ServerVariables("remote_addr")  
  rs("vtime")=date()  
  rs.update  
  rs.close  
  rs.open"select   *   from   count   where   vtime=date()   ",conn,2,2  
  vline=rs.RecordCount  
  Application.unlock  
  rs.close  
  set   rs=nothing  
  conn.close  
  set   conn=nothing  
  outstring="<font   size='3'color='#ff6600'>"&"总访问量:"&vtotal&"人次&nbsp;"&"今天访问量:"&vline&"人次</font>"  
  response.write"document.write("&chr(34)&   outstring   &chr(34)&")"  
  %>  
  谁有一个这样的例子让我看看，多些了 问题点数：0、回复次数：0Top

相关问题

• 访问量
• 统计
• chr
• 总
• write

• 帖主：zjltop

• Web开发类图书