<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Application("Database") = "mydatabase.mdb"
Application("UserID") = "myuser"
Application("Password") = "mypassword"
Application.RemoveAll()
If Application.Count = 0 Then
Me.lblText.Text = "Application is nothing"
Else
ViewApplication()
End If
End Sub
Sub ViewApplication()
Dim items As Object
For Each items In Application.Keys
Me.lblText.Text = Me.lblText.Text & items & " = " & Application(items) & "<br>"
Next
End Sub
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Application Object</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label>
</form>
</body>
</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
