須佐能乎2017.09.22 回答

Response。Cookies（“CookieUser”）（“name”） = ad

Response。Cookies（“（”CookieUser“）（”Pname“） = pm

Response。Cookies（”（“CookieUser”）。Expires = Date（）+30

response。redirect “index。asp”

讀取的時候是這樣的

UserName=Request。Cookies（“CookieUser”）（“UserName”）

Pname=Request。Cookies（“CookieUser”）（“Pname”）

if UserName=“” or Pname=“” then

response。write “沒有登陸”

else

response。write xxxxxxxxx

end if

遇你๑2017.09.22 回答

以下程式碼是模擬操作：

1。登入頁面 login。html

使用者名稱： 密 碼：

2。檢測使用者頁面 checkuser。asp

<%

dim sql

dim rs

dim ad

dim pm

ad=trim（request。form（“ad”））

pm=trim（request。form（“pm”））

if ad=“” then

response。write “”

response。end

end if

if pm=“” then

response。write “”

response。end

end if

if ad<>“user” or pm<>“user” then ‘模擬登入fs

response。write “”

response。end

else

response。cookies（“cookie”）（“n”） = ad

response。cookies（“cookie”）（“p”） = pm

response。cookies（“cookie”）（“qx”） = 1 ’假設許可權為1

response。cookies（“cookie”）。expires = date（）+30 ‘設定為一個小時過期

response。redirect “index。asp”

end if

%>

3。登入成功頁面 index。asp

許可權1可開啟|許可權2可開啟 | 退出（清除cookie）

4。判斷是否有登入cookies

<%

dim qx

if request。cookies（“cookie”）（“n”） = “” or request。cookies（“cookie”）（“p”）=“” then

response。write “沒有登入，else reponse。write ”網站發生錯誤！請聯絡管理員“ response。end end if %> 5。退出登入 out。asp <% response。cookies（”cookie“）。expires= （now（）-1） response。redirect ”index。asp“ ’測試一下是不是清除cookies ，應該會直接顯示登入 %> 6。模擬許可權的兩個頁面 qx1。asp qx2。asp qx1。asp <% if qx <> 1 then response。write ”您沒有許可權操作這個頁面“ response。end end if %> ………………。其它操作 qx2。asp： <% if qx <> 2 then response。write ”您沒有許可權操作這個頁面“ response。end end if %> ………………。其它操作