<!--#include file="../../conn/conn.asp"-->
<%  
customer=request.cookies("customer") '讀取cookies,cookies的名為：“customer”。 
if customer="" then '判斷cookies是不是空，如果是空，那么肯定是新朋友，否則是老朋友。 

sql="SELECT * FROM web_manage_log where log_id=-1" 
set rs=server.createobject("ADODB.Recordset") 
rs.Open sql,conn, 1, 3 
rs.addnew '如果是新訪客的話，在庫(kù)中新增一條記錄。 
rs("cs")=1 '記下訪問(wèn)次數(shù)為1 
rs("ip")=request.servervariables("remote_addr") '記下IP， 
rs("dat")=now '記下當(dāng)前的日期時(shí)間
if session("master_username")>"" then
rs("admin_username")=session("master_username")&"(manage頁(yè))" 
else
rs("admin_username")="嘗試登陸(manage頁(yè))"
end if
rs("dat1")=date '記下當(dāng)前的日期，以后用來(lái)做第一次訪問(wèn)的日期， 
response.cookies("customer")=rs("log_id") '寫(xiě)入一個(gè)cookies，內(nèi)容就和ID一樣。 
response.cookies("customer").expires=date+365 '設(shè)置cookies的有效日期從現(xiàn)在開(kāi)始，365天， 


else '以上是新朋友的處理辦法，對(duì)老朋友怎么辦呢？看下面的： 
sql="SELECT * FROM web_manage_log where log_id="&customer '到庫(kù)中去找出我們老朋友的記錄 
set rs=server.createobject("ADODB.Recordset") 
rs.Open sql,conn, 1, 3 
rs("cs")=rs("cs")+1 '好啦，找到啦，把訪問(wèn)次數(shù)加上1 
rs("admin_username")=session("master_username")&"(manage頁(yè))"
rs("ip")=request.servervariables("remote_addr") '看看他的IP是多少了，記下來(lái)。 
rs("dat")=now '記下現(xiàn)在的時(shí)間，也就是最后一次訪問(wèn)的時(shí)間， 
response.cookies("customer")=rs("log_id") '再把cookies寫(xiě)進(jìn)去，我不知這句是否多余，沒(méi)有試。 
response.cookies("customer").expires=date+365 '設(shè)置cookies過(guò)期時(shí)間，免得一年到了我就不認(rèn)得他了。 


end if 

rs.update '該記的都記下了，更新庫(kù)吧。 
rs.close '關(guān)閉recordset對(duì)象。 
set conn=nothing '釋放conn，我還是認(rèn)為connection要隨開(kāi)隨關(guān)才對(duì)，放到SESSION中我認(rèn)為最不可取。4 


%>