<% 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>"
	'下面是子程序,用来计算a和b的和
	sub pingfanghe (m,n)       'm和n是形式参数
	  dim sum                    '定义一个局部变量sum
	  sum=m^2+n^2  
	  response.write "在过程内部输出m和n的平方和是：" & cstr(sum) &"<br>"
	end sub
	%>   
</body>
</html>
