%
Dim NumVisit
' 聲明變量.
NumVisit = Request.Cookies("chunfeng")("totalvisit")
' 檢查用戶來(lái)訪問(wèn)過(guò)多少次.
If NumVisit = "" Then
NumVisit = 0
End If
' 如果是第一次來(lái)訪,NumVisit 應(yīng)為空,所以我們將NumVisit設(shè)為0.
'*** Display how many times they have
'*** visited your web page.
Response.Write "已有: " NumVisit "人光臨隨風(fēng)起舞!"
NumVisit = NumVisit + 1
' 開始計(jì)數(shù).
Response.Cookies("chunfeng")("totalvisit") = NumVisit
' 通過(guò)他們的瀏覽器將新的總計(jì)數(shù)寫回到Cookie去
Response.Cookies("chunfeng").Expires = "January 1, 2008"
' 指明Cookie到期時(shí)間,否則, Cookie在用戶關(guān)閉瀏覽器時(shí)過(guò)期,并失去所有我們想用Cookie來(lái)儲(chǔ)存的信息.
%>