如何檢測用戶第一次訪問我的網站并顯示友好信息？
< %@ LANGUAGE="VBscript" % >
< %
RequestName = Request.Form("Name")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")
If RequestName < >"" or RequestLeaveMeAlone < >"" then
' 在同一個頁面中檢查表單變量.
Response.Cookies("MySiteVisitorName") = RequestName
Response.Cookies("MySiteVisitorName").Expires = #January 01, 2008#
Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2008#
' 如果表單變量存在,就創(chuàng)建Cookie,并設置到期時間.
End if
VisitorName = request.Cookies("MySiteVisitorName")
LeaveMeAlone = request.Cookies("MySiteLeaveMeAlone")
' 讀取Cookie.
If VisitorName ="" and LeaveMeAlone ="" then
' 如果用戶機子上不存在該Cookie,就創(chuàng)建一個表單詢問相關信息.
% >
< html >
< head >
<title>隨風起舞歡迎你!</title>
< /head >
< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
< DIV ALIGN="CENTER" >
< form action="index.asp" method="POST" >
< H2 >歡迎光臨精彩春風< /H2 >
您的網上昵稱是< input type="text" name="name" > (您可以選擇不回答而直接點擊"發(fā)送"按鈕)
< br >< br >
< input type="hidden" name="LeaveMeAlone" value="x" >
< input type="submit" value="發(fā)送" >
< /FORM >
< /DIV >
< /body >
< %
End if
If VisitorName < > "" then
Response.write "歡迎您," & VisitorName & "! 這兒就是您的家!"
' 如果Cookie和用戶名都已存在,則顯示一個歡迎頁面.
End if
' 結束其余代碼.
% >
[1]
相關文章
如何在線更改密碼？...2006-11-11
如何驗證日期輸入是否正確？...2006-11-11
如何用Cookie進行登錄驗證？...2006-11-11
如何拒絕同一張表單被多次提交？...2006-11-11
oblog_4.6_SQL 語句...2007-09-09
如何利用當前時間生成隨機函數？...2006-11-11
如何準確地獲得一個整數？...2006-11-11
為什么用磁盤序列號加密過的代碼不能被復制安裝？...2006-11-11
如何做一個文本書寫器？...2006-11-11
如何獲知文件被改動的情況？...2006-11-11