一般來(lái)說(shuō)，在實(shí)際開(kāi)發(fā)中，對(duì)于 Session 對(duì)象使用最多的就是用戶登錄部分了，這個(gè)案例將簡(jiǎn)單模擬一個(gè)用戶登錄表單、用戶是否登錄的判斷以及用戶退出的一系列功能，它一共分了以下幾個(gè)頁(yè)面。

Login.asp (用戶登錄)、Check.asp (用戶是否已經(jīng)登錄判斷)、Logout.asp (用戶退出)

Login.asp 用戶登錄部分

我們將要完成用戶登錄表單的顯示，以及提交后，對(duì)于用戶輸入密碼的判斷和寫(xiě) Session 的操作，主要代碼如下:

<% Dim sPassword '判斷是否POST提交單表，開(kāi)始登錄 If UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then'提交表單登錄，判斷密碼 sPassword = Trim(Request.Form("password"))If sPassword = "123456" Then Session("password") = "123456"Response.Write("<h3>您已經(jīng)登錄成功！請(qǐng)?jiān)L問(wèn)<a href=""Check.asp"">登錄檢查文件</a></h3>")ElseResponse.Write("<h3>您輸入的密碼有誤！</h3>")'Response.End()End If Else'顯示表單，讓用戶登錄 %><form method="post" action="">請(qǐng)輸入密碼：<input name="password" type="text"/><input type="submit" value="提交"/></form> <% End If %>

運(yùn)行效果如下：

登錄成功，顯示如下：

Check.asp 登錄判斷部分

用來(lái)檢查用戶 Session，從而判斷是否已經(jīng)登錄，主要代碼如下：

<% Dim sPassword sPassword = Trim(Session("password")) if sPassword = "" ThenResponse.Write("<h3>您還沒(méi)有登錄呢，請(qǐng)?jiān)L問(wèn)<a href=""Login.asp"">登錄表單</a></h3>") Else Response.Write("<h3>您已經(jīng)登錄了，可以訪問(wèn)<a href=""Logout.asp"">退出頁(yè)面</a></h3>") End If %>

如果成功登錄顯示：

如果沒(méi)有登錄顯示：

Logout.asp 用戶退出部分

通過(guò) Session 的 Remove 方法來(lái)清空 Cookies，從而實(shí)現(xiàn)用戶的退出。主要代碼如下：

<% Session.Contents.Remove("password") Response.Write("<h3>成功退出，可以訪問(wèn)<a href=""Login.asp"">登錄頁(yè)面</a></h3>") %>

運(yùn)行后顯示：

示例代碼下載

SessionLogin.rar

轉(zhuǎn)載于:https://www.cnblogs.com/pchmonster/p/4731366.html

總結(jié)

以上是生活随笔為你收集整理的ASP入门（十一）-Session小案例的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。