我们的网站经常需要统计用户的使用情况以更好地提供相关服务。一般情况，我们需要获取用户的下面信息：

（1）访问者的IP

（2）访问者使用的浏览器类型；

（3）用户所使用的操作系统类型

（4）访问者的访问时间（进入时间，退出时间及访问时长）

下面首先介绍一下如何获取这些信息：　　（1）获得访问者IP地址

用以下的语句可以获取用户的IP地址：

Dim M_IPM_IP=Request.Servervariables("REMOTE_HOST")

（2）获得用户的浏览器信息

Dim O_Browser,M_BrowserTypeSet O_Browser=Server.Createobject("MSWC.BrowserType")M_BrowserType=O_Browser.Browser+O_Browser.Version

（3）获得访问时间

Dim M_DateTimeM_DateTime=Year(Date())&"/"&Right("0"&Month(Date()),2)&"/"Right("0"&Day(Date()),2)&"/"&Right("0"&Hour(Time()),2)&":"&Right("0"&Minute(Time()),2)&":"&Right("0"&Second(Time()),2)

（4）取得用户的操作系统类型

Dim StrUserAgentStrUserAgent=Request.ServerVariables("HTTP_USER_AGENT")