01.
<%@ Page Language=
"VB"
%>
02.
<script runat=
"server"
>
03.
04.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
05.
Application(
"Database"
) =
"mydatabase.mdb"
06.
Application(
"UserID"
) =
"myuser"
07.
Application(
"Password"
) =
"mypassword"
08.
09.
Me
.lblText.Text = Application.Count() &
" Items"
10.
End
Sub
11.
12.
</script>
13.
<html>
14.
<head>
15.
<title>ThaiCreate.Com ASP.NET - Application
Object
</title>
16.
</head>
17.
<body>
18.
<form id=
"form1"
runat=
"server"
>
19.
<asp:Label id=
"lblText"
runat=
"server"
></asp:Label>
20.
</form>
21.
</body>
22.
</html>