?? application.aspx
字號:
<%@ Page Language="vb" AutoEventWireup="false" %>
<script language="vb" runat="server">
sub showAppVars()
Response.write("<H3>Application對象的使用<Hr></H3>")
Response.Write("<b>用Application State儲存以下信息</b><br><br>")
Dim iCounter As Integer
response.write("<table border=1><tr><td><b>商品</b></td><td></td><td><b>價格</b></td></tr>")
For iCounter = 0 To (Application.Count - 1)
Response.Write("<tr><td>"+Application.GetKey(iCounter) + "</td><td> = </td><td>" + Application(iCounter) + "</td></tr>")
Next
response.write("</table>")
end sub
Sub addAppVar_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)
application.lock()
application(txtAppVarName.text) =txtAppVarValue.text
application.unlock()
end sub
Sub RemoveAppVar_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)
application.Remove(txtRemove.text)
end sub
Sub RemoveAllAppVar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
application.RemoveAll()
end sub
</script>
<HTML>
<body>
<% showAppVars() %>
<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=txtAppVarName
runat="server"></asp:TextBox></td>
<td> = </td>
<td><asp:TextBox id=txtAppVarValue
runat="server"></asp:TextBox></td>
<td><asp:Button id="btnAddAppVar" runat="server"
Text="添加或修改"
OnClick="addAppVar_Click"></asp:Button><br></td>
</tr>
</table>
<table>
<br>
<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="RemoveAppVar_Click"></asp:Button><br></td>
</tr>
</table>
<br>
<asp:Button id="btnRemoveAll" runat="server"
Text="刪除所有信息" OnClick="RemoveAllAppVar_Click"></asp:Button>
</form>
</body>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -