标题:vbscript中的CreatObject("Scripting.Dictionaty")问题
取消只看楼主
zmhdxy
Rank: 1
等 级:新手上路
帖 子:452
专家分:0
注 册:2007-9-27
 问题点数:0 回复次数:3 
vbscript中的CreatObject("Scripting.Dictionaty")问题
一个 它是干什么的,有什么用
二个下面一段代码那里错了,
望高手们帮忙了
<html><head><title>for each....next语句</title>
<script language="vbscript">
Sub cmdChange_OnClick
set Obj=CreatObject("Scripting.Dictionaty")
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><div align =center >
<form name="textForm">
<input type="text "><br>
<input type="text "><br>
<input type="text "><br>
<input type="button" name="cmdChange" value ="单击此处">
</form>
</div>
</body></html>
搜索更多相关主题的帖子: Scripting vbscript Obj Dictionaty 
2008-02-27 13:47
zmhdxy
Rank: 1
等 级:新手上路
帖 子:452
专家分:0
注 册:2007-9-27
得分:0 
人呢 高手呢 难道放假了
那我怎么办
不会是凉拌吧

2008-02-27 22:06
zmhdxy
Rank: 1
等 级:新手上路
帖 子:452
专家分:0
注 册:2007-9-27
得分:0 
这个就没人会吗
大家帮帮忙吗

2008-02-28 23:20
zmhdxy
Rank: 1
等 级:新手上路
帖 子:452
专家分:0
注 册:2007-9-27
得分:0 
你是对的
正确的前台代码
<html><head><title>For Each ... Next语句</title></head>
<script language="VBScript">
Sub cmdChange_OnClick
    Set Obj = CreateObject("Scripting.Dictionary")
    Obj.Add "0","文本1"     '添加键和项目
    Obj.Add "1","文本2"
    Obj.Add "2","文本3"
    '将对象Obj各项目的值赋予各文本框
    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="单击此处"><p>
  </form></center></body></html>

2008-03-01 12:02



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-201115-1-1.html




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

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