|
|
aixue
发表于 2010-11-21 03:38:16
|
显示全部楼层
我找到了那组控制这个统计程序的时间代码,但是是这样的,不知如何修改,才能达到目的:
'--------获取常规变量并写进数据库--------
fyear=year(now)'判断当前年份
fmonth=month(now)'判断当前月份
fday=day(now)'判断当前日期
fhour=hour(now)'判断当前小时
fweek=weekday(now)'判断当前星期
fweeknum=Datepart("ww",now())'判断当前周数
fsystem=browser(Request.ServerVariables("HTTP_USER_AGENT"))'获取浏览器
fwindows= system(Request.ServerVariables("HTTP_USER_AGENT"))'获取操作系统
furl=request("webcome") '获取来访地址
fip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if fip = "" then fip = Request.ServerVariables("REMOTE_ADDR")'获取来访ip
sql="select vdate,vtotal,vtoday,vip,vmonth,vyear,vnowmonth,vweek,vweeknum from vcount where vuser='"&view&"'"
set rs=conn.execute(sql)
if not rs.eof then
sql1 ="insert into fcount (fuser,fyear,fmonth,fday,fweek,fweeknum,fhour,fsystem,fwindows,furl,fip) values('"&view&"','"&fyear&"','"&fmonth&"','"&fday&"','"&fweek&"','"&fweeknum&"','"&fhour&"','"&fsystem&"','"&fwindows&"','"&furl&"','"&fip&"')"
conn.execute(sql1)
'--------结束写进-------- |
|