关于Inputbox的问题
<%Dim myrnd
myrnd=Rnd (1)
rndum=Int((100)*myrnd+1)
Guess = CInt(InputBox("Enter your guess:",,0))
Do
If Eval("Guess = RndNum") Then
MsgBox "祝贺你!猜对了!"
Else
Guess = CInt(InputBox("对不起,请再试一次",,0))
End If
Loop Until Guess = 0
%>
以上代码运行后显示
Microsoft VBScript 运行时错误
错误 '800a0046'没有权限: 'InputBox'
/0.asp,行5
没有权限?不知何故