<%
dim m,n,sum
  m=request.form("text1")
  n=request.form("text2")
if m<>"" and n<>"" then
  call pingfanghe(m,n,sum)
  response.write cstr(m)&"和"&cstr(n)&"平方和方和是:"&cstr(sum)
else
  response.write"请输入两个数字"
end if
sub pingfanghe(a,b,c)
  c=a^2+b^2
end sub
%>
