% dim Num Num=Request.Cookies("Visit_num") if Num>0 then Num=Num+1 Response.write "您已是第" Num "次訪問本站點了。" else Response.write "歡迎您首次訪問本站。" Num=1 end if Response.Cookies("Visit_num")=Num %> 在該例子中,首先讀取Cookies變量Visit_num,看用戶端計算機是否保存有Cookies變量。如果有該變量,則說明用戶已經(jīng)訪問過該頁面,同時輸入出訪問次數(shù)。如果用戶是首次訪問該頁面,則其計算機內(nèi)不會有Cookies變量,程序會顯示“歡迎”字樣,然后將Cookies變量Visit_num存到用戶計算機中,以便該用戶下一次訪問該頁面時給出“訪問的次數(shù)”信息。
%For each cookie in Request.Cookies if Not cookie.HasKeys then Response.write cookie "=" Request.Cookies(cookie) Else for each key in Request.Cookies(cookie) Response.write cookie"("key")""=" Request.Cookies(cookie)(key) next end if next %>