|
|
<% Option Explicit %>
<HEAD>
<TITLE>Global code in ASP</TITLE>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Dim x
x = 10
Function Increment(lVar)
lVar = lVar + 1
Increment = lVar
End Function
Function Decrement(lVar)
lVar = lVar - 1
Decrement = lVar
End Function
</SCRIPT>
</HEAD>
<BODY>
<H2><CENTER>An Active Server Page</CENTER></H2>
The current value of x is <%= x %> <BR>
<%
Dim y
y = 20
If x = 0 Then x = 10
%>
Value returned by Increment function: <%= Increment(x) %> <BR>
Value returned by Increment function: <%= Increment(x) %> <BR>
Value returned by Decrement function: <%= Decrement(x) %> <BR>
The value of <I>x</I> is now <%= x %>.
The value of <I>y</I> is <%= y %>.
</BODY>
</HTML> |
|
发表于 2012-6-6 07:50:59
