我这么写的,各位兄弟帮我看下:
<%
Dim ip_addr,temp_cookies,fangwen_count,shuaxin_count
'fangwen_count=0
'shuaxin_count=0
ip_addr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ip_addr = "" Then
ip_addr = Request.ServerVariables("REMOTE_ADDR")
End If
temp_cookies=request.cookies(ip_addr)
If temp_cookies="" Then
response.cookies(ip_addr)=ip_addr
fangwen_count=fangwen_count+1
Else
shuaxin_count=shuaxin_count+1
End if
response.write"网站访问量:"&fangwen_count
response.write"网站刷新量:"&shuaxin_count