几个小程序运行时显示错误，不明原因 - ASP技术论坛

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

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 几个小程序运行时显示错误，不明原因

我的收件箱(0)

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

共有 409 人关注过本帖

标题：几个小程序运行时显示错误，不明原因

只看楼主加入收藏

yqiong

等　级：新手上路
帖　子：315
专家分：0
注　册：2007-7-4
结帖率：83.33%

楼主

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

几个小程序运行时显示错误，不明原因

<html><head>
<title>判断一个数的正负</title>
<script language="vbscript">
sub ispt()
dim num
num=document.form1.timetext.value
if num>0 then msgbox"正数"
else if num<0 then msgbox"负数"
else if num=0 then msgbox"你输入的是0！"
end if
end sub
</script>
</head>
<body>
<form name="form1" >请输入一个数字：
<input type="text" name="timetext" value="">  <input type="button" value="确定" onClick="call ispt()">
</form>
</body>
</html>
运行时状态栏显示有错误，到底哪错了呀？

搜索更多相关主题的帖子: 运行　

2007-08-17 20:45

yqiong

等　级：新手上路
帖　子：315
专家分：0
注　册：2007-7-4

第 2 楼

得分:0

<html>
<head>
<title>无标题文档</title>
<script language="vbscript">
sub cmdchange_onclick
set obj=creatobject("scripting.dictionary")
obj.add "0","文本1"
obj.add "1","文本2"
obj.add "2","文本3"
j=0
for each i in obj
document.textform.elements(j).value=obj.item(i)
j=j+1
next
end sub
</script>
</head>
<body>
<center><form name="textform"><input type="text"><p>
<input type="text"><p>
<input type="text"><p>
<input type="button" name="cmdchange" value="clickme"><p>
</form></center>
</body>
</html>
这个也运行不出来！

2007-08-17 20:45

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 3 楼

得分:0

if num>0 then msgbox"正数"
else if num<0 then msgbox"负数"
else if num=0 then msgbox"你输入的是0！"
end if
这个if if得好合理

2007-08-17 22:14

madpbpl

等　级：贵宾
威　望：11
帖　子：2876
专家分：244
注　册：2007-4-5

第 4 楼

得分:0

第一个问题
<html><head>
<title>判断一个数的正负</title>
<script language="vbscript">
sub ispt()
dim num
num=document.form1.timetext.value
if num>0 then
msgbox"正数"
elseif num<0 then
msgbox"负数"
elseif num=0 then
msgbox"你输入的是0！"
end if
end sub
</script>
</head>
<body>
<form name="form1" >请输入一个数字：
<input type="text" name="timetext" value="">  <input type="button" value="确定" onClick="call ispt()">
</form>
</body>
</html>
elseif连起来写
msgbox转到下一行写

2007-08-17 22:22

yqiong

等　级：新手上路
帖　子：315
专家分：0
注　册：2007-7-4

第 5 楼

得分:0

以下是引用madpbpl在2007-8-17 22:22:30的发言：
第一个问题
<html><head>
<title>判断一个数的正负</title>
<script language="vbscript">
sub ispt()
dim num
num=document.form1.timetext.value
if num>0 then
msgbox"正数"
elseif num<0 then
msgbox"负数"
elseif num=0 then
msgbox"你输入的是0！"
end if
end sub
</script>
</head>
<body>
<form name="form1" >请输入一个数字：
<input type="text" name="timetext" value="">  <input type="button" value="确定" onClick="call ispt()">
</form>
</body>
</html>
elseif连起来写
msgbox转到下一行写

运行成功了，谢谢

2007-08-17 22:30