<% option explicit      	'放在程序首行，强制变量声明 %>
<html>
<head>
  <title>求m和n的平方和示例</title>
</head>
<body>
  <%
  dim m,n,sum          		'sum和实际参数m、n都是全局变量
  m=3
  n=4
  sum=0
  '调用子程序，显示结果
  call pingfanghe(m,n)
  response.write "在过程外部输出m和n的平方和是：" & cstr(sum) &"<br>"
  '下面是子程序，用来计算m和n的和
  sub pingfanghe (m,n)       	'm和n是形式参数
    dim sum                    	'定义一个局部变量sum，屏蔽同名全局变量sum
    sum=m^2+n^2             	'sum在此处仍是局部变量
    response.write "在过程内部输出m和n的平方和是：" & cstr(sum) &"<br>"
  end sub
  %>
</body>
</html>
