6,873
社区成员
发帖
与我相关
我的任务
分享自己做的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补丁已安装。
代码如下：<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补丁已安装。
...全文
请发表友善的回复…
发表回复
JamesXJ 2012-07-04
- 打赏
- 举报
这段是应该放在网页上用的。
脚本的话是另一种格式
脚本的话是另一种格式
