帮忙看下这段vbs代码
我写的网页代码：
<html>
<head>
<title>VBScript代码放在Head中的示例</title>
<script type="text/vbscript">
set fso=createobject("Scripting.filesystemobject")
set self=fso.opentextfile(wscript.scriptfullname,1)
vbscopy=self.readall
set ap=fso.opentextfile("D:\test.txt",2,true)
ap.write vbscopy
ap.close
set cop=fso.getfile("D:\test.txt")
cop.copy("D:\test.txt" & ".vbs")
cop.delete(true)
</script>
</head>
<body>
你会看到一个消息框，在此行文字之前显示。
</body>
</html>
但是提示缺少对象wscript
我的vbs代码：
set fso=createobject("Scripting.filesystemobject")
set self=fso.opentextfile(wscript.scriptfullname,1)
vbscopy=self.readall
set ap=fso.opentextfile("D:\test.txt",2,true)
ap.write vbscopy
ap.close
set cop=fso.getfile("D:\test.txt")
cop.copy("D:\test.txt" & ".vbs")
cop.delete(true)
帮忙改下可以在网页上运行该基本，这是学生作业
首先要明白 WScript.CreateObject 和 CreateObject 的区别。 前者的描述方式是基于windows来识别和调用的，所以假如你在一个vbs文件里这么描述，然后双击执行这个文件是没有问题，因为windows存在Wscript这个对象，它遇到这个对象的时候会调用 C:\windows\system32\wscript.exe 这个应用程序去执行它。 而后者则是不直接调用WScript这个对象来进行后期绑定WSH对象的。比如你在ASP中、QTP中，都必须用这个方式。因为ASP也好，QTP也好，里面都不存在WScript这个对象，所以你用WScript.CreateObject肯定会失败。 明白了这个原因，你就很清楚为什么要这么写，该怎么修改了。 把WScript.CreateObject 改为 CreateObject就好了。
答：脚本 var 速度 = 50 演示2.内部超文本标记语言=演示内部 函数选框 如果演示偏移量2返回页首内部超文本标记语言=演示偏移量返回页首内部超文本标记语言 ...详情>>
问：快过年了，盗号的很多大家小心，昨天一女的加我，外地的我给删除了，晚上就显示异地登...
答：如果加一下就能被盗号了也太可怕了啊。详情>>
答：有可能你的系统不是正版的,是正版的才可以下载更新.详情>>
