帮忙看下 代码哪里错了，无法弹出 输入数据对话框，现实结果，实现的功能是
求 1+2^2+3^2+...n^2
<head><title>无标题文档</title>
</head>
<body>
<script language="VBScript">
dim result=0,i,n
n=InputBox("输入一个正整数：")
for i=1 to n
result+=i^i
next
response.Write("结果为:" & result)
</script>
<p><a href=# onclick="input()">输入数字</a></p>
</body>
</html>