关于Inputbox的问题 - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 关于Inputbox的问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1240 人关注过本帖

标题：关于Inputbox的问题

取消只看楼主加入收藏

站军姿的狗

等　级：新手上路
帖　子：11
专家分：0
注　册：2006-3-1

楼主

问题点数：0 回复次数：6

关于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

没有权限？不知何故

搜索更多相关主题的帖子: Guess　Inputbox　Microsoft　

2006-03-03 23:32

站军姿的狗

等　级：新手上路
帖　子：11
专家分：0
注　册：2006-3-1

第 2 楼

得分:0

能不能讲一讲<script></script>阿？我是个初学者

2006-03-04 11:28

站军姿的狗

等　级：新手上路
帖　子：11
专家分：0
注　册：2006-3-1

第 3 楼

得分:0

可是三楼的说得有点模糊，有人能对我的问题再说详细点吗？谢谢

2006-03-04 12:27

站军姿的狗

等　级：新手上路
帖　子：11
专家分：0
注　册：2006-3-1

第 4 楼

得分:0

知道了！谢谢版主

2006-03-04 14:50

站军姿的狗

等　级：新手上路
帖　子：11
专家分：0
注　册：2006-3-1

第 5 楼

得分:0

谢谢版主，我运行过了谢谢

2006-03-04 14:54

站军姿的狗

等　级：新手上路
帖　子：11
专家分：0
注　册：2006-3-1

第 6 楼

得分:0

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<%
Dim go
go=request("go")
If go="doing" then
Dim guess
guess=request.form("text1")
If Len(guess)>0 then%>
<script language="vbscript">
MsgBox ("你的输入为：" &guess) '运行后guess的值没显现出来
</script>
<%Else%>
<script language="vbscript">
MsgBox("你的输入不能为空")
</script>
<%End If
else
%>