%=Session.SessionId%> 是單獨生成的唯一ID標(biāo)識,可刷新調(diào)試。 |
%Session.TimeOut=10%> |
% '是提取url中變量loginout的值是否為true,若為真,就執(zhí)行Session.Abandon()。 if Request.QueryString("loginout")="true" then Session.Abandon() end if '只有在當(dāng)點擊了submit按鈕的前提下,再來判斷提取的東西都不為空,則建立Session對象。 submitname=request.form("submit1") if submitname="submit" then if Request.Form("name")>"" and Request.Form("pwd")>"" then Session("name")=Request.Form("name") Session("pw")=Request.Form("pwd") end if end if %> % '如果Session("name")不為空,則顯示Session("name")的值,并且做一個到info.asp的鏈接。 if Session("name")>"" then response.write("你的name值是:"Session("name")) response.write("br>a href='info.asp'>顯示你的資料/a>") else '否則,即Session("name")為空不存在,則顯示表單用以輸入建立Session的平臺。 %> form action="login.asp" method="post"> 姓名:input type="text" name="name">br> 密碼:input type="password" name="pwd">br> input type="submit" value="submit" name="submit1"> /form> !--同樣做了一個到info.asp的鏈接。--> a href="info.asp">顯示你的資料/a> %end if%> |
% '如果session對象值為空則跳轉(zhuǎn)到login.asp if session("name")="" then Response.Redirect("login.asp") '否則就顯示個人信息 else Response.Write("你的姓名:"session("name")"br>") Response.Write("你的密碼:"session("pw")"br>") end if %> a href="login.asp">返回/a> a href="login.asp?loginout=true">退出/a> |
SCRIPT RUNAT=Server Language=VBScript> ....... Sub Session_OnStart ....... End Sub ....... /SCRIPT> |
SCRIPT RUNAT=Server Language=VBScript> ....... Sub Session_OnEnd ....... End Sub ....... /SCRIPT> |
%if session("num") 2 then%> body onunload=javascript:window.open("bug.asp")> %session("num")=session("num")+1%> %else%> script> self.close() /script> %end if%> |
標(biāo)簽:馬鞍山 遼陽 朝陽 四平 湖北 平頂山 孝感 防城港
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP編程入門進(jìn)階(八):內(nèi)置對象Session》,本文關(guān)鍵詞 ASP,編程,入門,進(jìn)階,八,內(nèi)置,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。