| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1290 人关注过本帖
标题:自己做的vbscript代码 出错 错误代码800A0400
只看楼主 加入收藏
yuhua101042
Rank: 1
等 级:新手上路
帖 子: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
Rank: 4
等 级:业余侠客
威 望:1
帖 子:102
专家分:244
注 册:2012-6-5
收藏
得分: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
Rank: 4
等 级:业余侠客
威 望:1
帖 子:102
专家分:244
注 册:2012-6-5
收藏
得分: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
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2012-7-4
收藏
得分:0 
谢谢大侠,可3楼的程序代码还是不能出现想要的效果!
2012-07-04 18:28
yuhua101042
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2012-7-4
收藏
得分: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
Rank: 4
等 级:业余侠客
威 望:1
帖 子:102
专家分:244
注 册:2012-6-5
收藏
得分:0 
我用ie运行没问题
2012-07-04 20:53
coretear
Rank: 4
等 级:业余侠客
威 望:1
帖 子:102
专家分:244
注 册:2012-6-5
收藏
得分: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>


[ 本帖最后由 coretear 于 2012-7-4 21:10 编辑 ]
2012-07-04 20:57
yuhua101042
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2012-7-4
收藏
得分:0 
我用的是IE6.0  谷歌chrome浏览器也试了,没有效果。
我双击运行时候打开的是搜狗高速浏览器(虽然搜狗浏览器不是我的默认浏览器)
错误最开始显示出现了运行时间错误!
请大侠指点!
2012-07-05 08:42
coretear
Rank: 4
等 级:业余侠客
威 望:1
帖 子:102
专家分:244
注 册:2012-6-5
收藏
得分:0 
换个电脑试试吧
2012-07-05 13:20
yuhua101042
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2012-7-4
收藏
得分:0 
谢谢coretear,在360安全浏览器里试过,可以实现!
2012-07-05 16:18
快速回复:自己做的vbscript代码 出错 错误代码800A0400
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041136 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved