希望楼主加上在head中加入
否则我电脑上打开是乱码，加入代码后解决。
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
否则我电脑上打开是乱码，加入代码后解决。
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]XP下用VBS写的代码编辑器
查看 10,128 回复 62
第 31 楼
发表于 2007-01-19 15:50 · 中国 上海 杨浦区 电信
第 32 楼
看不太懂
发表于 2007-01-26 06:38 · 中国 福建 漳州 联通
看不太懂
第 33 楼
发表于 2007-01-26 07:28 · 中国 安徽 马鞍山 电信
赞啊,楼主,我正在学VBS,跟你学了,多发代码啊,尤其是初级人员(比如我)看的代码
第 34 楼
发表于 2007-01-26 07:40 · 中国 安徽 马鞍山 电信
请教楼主，我是新手，简单问一下您代码的意思：
==================================
Sub OptionAdd(fExt)
str = "<select size=""1"" name=""objOption"" onChange=""TestSub"">"
Set objDataFiles = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colFiles = objDataFiles. _
ExecQuery("Select * from CIM_DataFile where extension = '" & fExt & "'")
For Each objFile in colFiles
str = str & "<option value=""" & objFile.name & """>" & _
objFile.name & "</option>"
next
str = "<label>本地脚本文件:</label>" & str & "</select>"
forOption.innerHTML = str
end Sub
==========================
可以简单对这每个语句做下解释吗？我有点看不懂，而且正好在学这个，谢谢了！！
==================================
Sub OptionAdd(fExt)
str = "<select size=""1"" name=""objOption"" onChange=""TestSub"">"
Set objDataFiles = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colFiles = objDataFiles. _
ExecQuery("Select * from CIM_DataFile where extension = '" & fExt & "'")
For Each objFile in colFiles
str = str & "<option value=""" & objFile.name & """>" & _
objFile.name & "</option>"
next
str = "<label>本地脚本文件:</label>" & str & "</select>"
forOption.innerHTML = str
end Sub
==========================
可以简单对这每个语句做下解释吗？我有点看不懂，而且正好在学这个，谢谢了！！
第 35 楼
发表于 2007-01-27 12:58 · 中国 福建 泉州 电信
好东西
第 36 楼
发表于 2007-01-29 03:12 · 中国 天津 河北区 联通
楼主真牛人也
第 37 楼
发表于 2007-01-30 06:23 · 中国 四川 绵阳 电信
学习中
第 38 楼
发表于 2007-02-23 13:31 · 中国 湖北 黄冈 电信
"支持" 这两个字怎么弄出来的?真厉害! 我在前面加了 echo 在控制台显示,谢了!
第 39 楼
发表于 2007-02-23 13:57 · 中国 吉林 四平 联通
真是佩服楼主你啊
第 40 楼
发表于 2007-03-01 23:22 · 中国 广东 东莞 电信
我这里已经下载了MS的哪个脚本编辑器,很小,没有什么功能，但是比较方便.
第 41 楼
发表于 2007-03-04 14:46 · 中国 安徽 宣城 电信
呵呵,都是好东西,可就是俺看不懂,......
心当随人，人勿随心， 心误人，心亦杀身。
第 42 楼
发表于 2007-03-28 15:39 · 中国 广东 深圳 宝安区 电信
好，，，，，，，，，，，，，，，，，，，，，，，
第 43 楼
发表于 2007-03-30 01:48 · 中国 浙江 绍兴 电信
好深厚啊，我不会
第 44 楼
发表于 2007-05-22 08:31 · 中国 北京 联通
真实牛人呀。佩服！
第 45 楼
发表于 2007-09-20 13:59 · 中国 山东 青岛 联通
好
论坛跳转: