📄 session.aspx
字号:
<%@ Page Language="vb" AutoEventWireup="false" %>
<script language="vb" runat="server">
sub showVars()
Dim SessionKeys as NameObjectCollectionBase.KeysCollection
SessionKeys = Session.Keys
Response.write("<H3>Session对象的使用<Hr></H3>")
Response.Write("<b>Codepage:</b>"+ctype(session.codepage, string)+"<br>")
Response.Write("<b>LCID:</b> "+ctype(session.LCID,string)+"<br>")
Response.Write("<b>IsCookieless:</b>"+ctype(session.iscookieless, string)+"<br>")
Response.Write("<b>IsNewSession:</b>"+ctype(session.isnewsession, string)+"<br>")
Response.Write("<b>Mode:</b> "+ctype(session.mode,string)+"<br>")
Response.Write("<b>SessionID:</b>"+ctype(session.sessionid, string)+"<br>")
Response.Write("<b>Timeout:</b>"+ctype(session.timeout, string)+"<br><br>")
Response.Write("<b>用Session State储存以下信息</b><br><br>")
response.write("<table border=1><tr><td><b>商品</b></td><td></td><td><b>价格</b></td></tr>")
Dim iCounter As Integer
For iCounter = 0 To (Session.Count - 1)
Response.Write("<tr><td>"+ sessionkeys(iCounter) + "</td><td> = </td><td>" + session(iCounter) + "</td></tr>")
Next
response.write("</table>")
end sub
Sub addVar_Click(ByVal sender As System.Object, ByVale As System.EventArgs)
session(txtVarName.text) = txtVarValue.text
end sub
Sub RemoveVar_Click(ByVal sender As System.Object, ByVale As System.EventArgs)
session.Remove(txtRemove.text)
end sub
Sub RemoveAllVar_Click(ByVal sender As System.Object, ByVale As System.EventArgs)
session.RemoveAll()
end sub
</script>
<HTML>
<body>
<% showVars() %>
<form id="Form1" method="post" runat="server">
<br>
<table>
<tr>
<td><b>商品名</b></td>
<td></td>
<td><b>价格</b></td>
<td></td>
</tr>
<tr>
<td><asp:TextBox id=txtVarName runat="server"></asp:TextBox></td>
<td> = </td>
<td><asp:TextBox id=txtVarValue runat="server"></asp:TextBox></td>
<td><asp:Button id="btnAddVar" runat="server" Text="添加或修改" OnClick="addVar_Click"></asp:Button><br></td>
</tr>
</table>
<br>
<table>
<tr>
<td><b>商品</b></td>
<td> </td>
</tr>
<tr>
<td><asp:TextBox id=txtRemove
runat="server"></asp:TextBox></td>
<td><asp:Button id="btnRemove" runat="server"
Text="删除"
OnClick="RemoveVar_Click"></asp:Button><br></td>
</tr>
</table>
<br>
<br>
<asp:Button id="btnRemoveAll" runat="server"
Text="删除所以信息" OnClick="RemoveAllVar_Click"></asp:Button>
</form>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -