自己做的vbscript代码出错错误代码800A0400 - ASP技术论坛

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

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 自己做的vbscript代码出错错误代码800A0400

我的收件箱(0)

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

共有 1290 人关注过本帖

标题：自己做的vbscript代码出错错误代码800A0400

只看楼主加入收藏

yuhua101042

等　级：新手上路
帖　子：8
专家分：0
注　册：2012-7-4
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：14

自己做的vbscript代码出错错误代码800A0400

代码目的是根据input数值将下拉列表后几项隐藏（变成灰色）
代码如下：<html>
<head>
<script type='text/vbscript'>
Sub abcd()
Dim i
Dim n
n=document.aa.a.options.length
For i=val(input1.text) To n-1
document.aa.a.options(i).disabled='disabled'
Next i
End Sub
</script>
</head>
<body>
<form id=='aa'>
<input name='input1' type='text' size=1 onchamge='abcd()'></input>
<Select id='a'>
<Option>
曾用名一
</Option>
<Option>
曾用名二
</Option>
<Option>
曾用名三
</Option>
<Option>
曾用名四
</Option>
<Option>
曾用名五
</Option>
<Option>
曾用名六
</Option>
<Option>
曾用名七
</Option>
</Select>
</form>
</body>
</html>

运行时，显示行1，字符1，错误。错误代码800A0400。
我是个vbscript初学者，请大侠们帮忙！
还有就是XP系统的KB917344补丁已安装。

搜索更多相关主题的帖子: head　曾用名　

2012-07-04 07:52

coretear

等　级：业余侠客
威　望：1
帖　子：102
专家分：244
注　册：2012-6-5

第 2 楼

得分:20

别的不说<input name='input1' type='text' size=1 onchamge='abcd()'></input>
</input> 不存在删掉
onchamge = onchange

[ 本帖最后由 coretear 于 2012-7-4 15:18 编辑 ]

2012-07-04 15:16

coretear

等　级：业余侠客
威　望：1
帖　子：102
专家分：244
注　册：2012-6-5

第 3 楼

得分:0

习惯用 js 给你做了你个参考一下吧呵呵

程序代码：


<script>
function abcd(obj){
var i,l,val,sel;
sel = document.getElementById("a");
val = parseInt(obj.value) - 1;
l = sel.length;
for(var i=0; i<=l; i++)
    if(i>=val)
        sel.options(i).disabled = true;
    else
        sel.options(i).disabled = false;
}
</script>
</head>
<body>
<form id=='aa'>
<input name='input1' type='text' size=10 onchange='abcd(this)'>
<Select id='a'>
    <Option> 曾用名一 </Option>
    <Option> 曾用名二 </Option>
    <Option> 曾用名三 </Option>
    <Option> 曾用名四 </Option>
    <Option> 曾用名五 </Option>
    <Option> 曾用名六 </Option>
    <Option> 曾用名七 </Option>
</Select>

[ 本帖最后由 coretear 于 2012-7-4 15:48 编辑 ]

2012-07-04 15:45

yuhua101042

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

第 4 楼

得分:0

谢谢大侠，可3楼的程序代码还是不能出现想要的效果！

2012-07-04 18:28

yuhua101042

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

第 5 楼

得分:0

这回的代码是这样：
<html>
<head>
</head>
<body>
<script type="text/javascript">
function abcd(obj){
var i,l,val,sel;
sel = document.getElementById("a");
val = parseInt(obj.value) - 1;
l = sel.length;
for(var i=0; i<=l; i++)
    if(i>=val)
        sel.options(i).disabled = true;
    else
        sel.options(i).disabled = false;
}

</script>
<form>
<input name="input1" type="text" size="10" onchange="abcd(this)" />
<Select id='a'>
    <Option> 曾用名一 </Option>
    <Option> 曾用名二 </Option>
    <Option> 曾用名三 </Option>
    <Option> 曾用名四 </Option>
    <Option> 曾用名五 </Option>
    <Option> 曾用名六 </Option>
    <Option> 曾用名七 </Option>
</Select>
</body>
</html>

报错内容为：options(...)为空或不存在不是对象！~
请指教。

2012-07-04 19:41

coretear

等　级：业余侠客
威　望：1
帖　子：102
专家分：244
注　册：2012-6-5

第 6 楼

得分:0

我用ie运行没问题

2012-07-04 20:53

coretear

等　级：业余侠客
威　望：1
帖　子：102
专家分：244
注　册：2012-6-5

第 7 楼

得分:0

你是啥浏览器 IE 几 ,还是其它，这样效果并不是所有浏览器都支持，最好的方法用jq写
下面做了一下浏览器兼容，ff chrome ie 都支持

程序代码：

<script>
function abcd(obj){
var i,l,val,sel;
sel = document.getElementById("a");
val = parseInt(obj.value) - 1;
l = sel.length;
for(var i=0; i<=l; i++)
    if(i >= val)
        sel.options[i].disabled = true;
    else
        sel.options[i].disabled = false;
}
</script>
</head>
<body>
<form>
<input name='input1' type='text' size=10 onchange='abcd(this)'>
<Select id='a'>
    <Option> 曾用名一 </Option>
    <Option> 曾用名二 </Option>
    <Option> 曾用名三 </Option>
    <Option> 曾用名四 </Option>
    <Option> 曾用名五 </Option>
    <Option> 曾用名六 </Option>
    <Option> 曾用名七 </Option>
</Select>
</form>