统计当日访问量 重复IP不作记录 主要一些数据转换的函数不清楚，我获取IP地址后和数据库判断的时候，数据类型老出错
然后录入数据库后，统计出总访问量

<%
set cs=server.CreateObject("ADODB.Connection")
cs.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=;Initial Catalog=GAZZB;Data Source=GAZZB"
%>

<%

response.buffer=ture'打开缓冲

ip=session("ip")

response.write(ip)
iptime=now
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ipdizhi where ip地址= '" & ip & "'"
rs.open sql,cs,3,1'判断该IP地址在不在数据库中，在就执行下面语句！
if not rs.eof then

Set rs2=Server.CreateObject("ADODB.Recordset")
sql="select 日期 from ipdizhi where ip地址= '" & ip & "'"
rs2.open sql,cs,3,1
if rs2("日期")=Null then
rs2.addnew
rs2("日期")=request(iptime)
rs2.update

else
bijiao=request(iptime)-rs2("日期")
if hour(bijiao)>24 then
rs2.addnew
rs2("日期")=request(iptime)
rs2.update
else
response.end
end if

end if

end if


%>
以上是处理页面如果对应的IP没有则不作处理，如果对应的IP在数据库里面有，就作处理！
日期字段为空再把得到系统时间弄上去，如果不为空，则判断是不是今天该IP已经刷新过，如果刷新过 便不作处理，没刷新过，则作处理！把今天的新时间弄到日期里面 ！其实也就是判断 该IP今天登陆过没 ，登陆过不加时间 ，没有登陆过则加新时间！IP地址固定的在数据库字段里的！

<script language=vbscript runat=server>
sub session_onstart()
session("ip")=trim(request.servervariables("remote_host"))'当有人打开会话时，不管是谁！只要有人打开，就获取他的IP地址！
end sub
</script>
这个是ASA文件



或者大哥给个获取今天访问量的代码，重新IP不作统计！也就是获取今天有多少个不同的IP进行了对该页进行刷新！
谢谢了！

谢谢，但是这个只是得到当前时间啊！