我在运行下面这段代码时
<%
Sub TwosTotal()
Dim j,total
For j=2 To 10 Step 2
total=total+j
Next
End Sub
MsgBox "总和为:"&total&"。"
%>
提示:
Microsoft VBScript 运行时错误 错误 '800a0046'
msgbox只能在客户端使用
asp是服务器段运行的
当然没有权限
改一下:
<%
Sub TwosTotal()
Dim j,total
For j=2 To 10 Step 2
total=total+j
Next
End Sub
response.write "<script language=vbscript>"
response.write "MsgBox '总和为:"&total&"。'"
response.write "</script>"
%>