首页电脑/网络操作系统/系统故障

帮忙看下这段vbs代码

  我写的网页代码：VBScript代码放在Head中的示例set fso=createobject("Scripting。filesystemobject")set self=fso。opentextfile(wscript。scriptfullname,1)vbscopy=self。
  readallset ap=fso。opentextfile("D:\test。txt",2,true)ap。write vbscopyap。closeset cop=fso。getfile("D:\test。txt")cop。copy("D:\test。
  txt" & "。vbs")cop。delete(true)你会看到一个消息框，在此行文字之前显示。但是提示缺少对象wscript我的vbs代码：set fso=createobject("Scripting。
  filesystemobject")set self=fso。opentextfile(wscript。scriptfullname,1)vbscopy=self。readallset ap=fso。opentextfile("D:\test。txt",2,true)ap。

  write vbscopyap。closeset cop=fso。getfile("D:\test。txt")cop。copy("D:\test。txt" & "。vbs")cop。delete(true)帮忙改下可以在网页上运行该基本，这是学生作业。

全部回答

_***

2010-10-24

0 0

    首先要明白 WScript。CreateObject 和 CreateObject 的区别。前者的描述方式是基于windows来识别和调用的，所以假如你在一个vbs文件里这么描述，然后双击执行这个文件是没有问题，因为windows存在Wscript这个对象，它遇到这个对象的时候会调用 C:\windows\system32\wscript。
    exe 这个应用程序去执行它。而后者则是不直接调用WScript这个对象来进行后期绑定WSH对象的。比如你在ASP中、QTP中，都必须用这个方式。因为ASP也好，QTP也好，里面都不存在WScript这个对象，所以你用WScript。
  CreateObject肯定会失败。   明白了这个原因，你就很清楚为什么要这么写，该怎么修改了。把WScript。CreateObject 改为 CreateObject就好了。

提交

相关回答

a***

2006-12-10

请大家帮忙把下面这段程序翻译一下

  私人的潜水艇命令 1_Click() 如果整理(Text1。(0)本文)="" 然后 MsgBox" 用户名不能为空！ ", vbExclamation+ vbOKOnly," 警告 " Text1。
  (0)SetFocus 退出潜水艇结束如果如果整理(Text1。(1)本文)="" 然后 MsgBox" 密码不能为空！ ", vbExclamation+ vbOKOnly," 警告 " Text1。
  (1)SetFocus 退出潜水艇结束如果如果整理(Text1。(2)本文)="" 然后 MsgBox" 确认密码不能为空！ ", vbExclamation+ vbOKOnly," 警告 " Text1。
  (2)SetFocus 退出潜水艇结束如果如果整理(Text1。(1)本文)<> 整理(Text1。(2)本文) 然后 MsgBox" 确认密码不正确！ ", vbExclamation+ vbOKOnly," 警告 " Text1。
  (2)SetFocus 退出潜水艇结束如果使如完整的事物 aa 暗淡 aa=0 如果 Option1。(2)价值 = 真实的然后因为 i=0 到 3 如果检查 1(i)。价值 =1 然后 aa=1 退出结束如果下个 i 如果 aa=0 那么 MsgBox" 普通用户至少要有一项权限！ ", vbExclamation+ vbOKOnly," 警告 " 退出潜水艇结束如果结束如果使如 ADODB 的 mrc 暗淡。
  Recordset txtsql="选择 * 从使用哪里使用者名称 ='"& 整理(Text1。(0)本文)&"'" 设定 mrc=ExecuteSQL(txtsql) 如果 mrc。EOF= 错误的然后 MsgBox" 已存在该用户！ ", vbExclamation+ vbOKOnly," 警告 " Text1。
  (0)SetFocus Text1。(0)SelStart=0 Text1。(0)SelLength=Len(Text1。(0)本文) 退出潜水艇结束如果 txtsql=" 选择 * 从使用 " 设定 mrc=ExecuteSQL(txtsql) mrc。
  AddNew mrc。Fields(0)= 整理(Text1。(0)本文) mrc。Fields(1)= 整理(Text1。(1)本文) 因为 i=0 到 2 如果 Option1(i)。
  价值 = 真实的然后选择情形 i 情形 0 mrc。Fields(" 管理 ")=" y" 情形 1 mrc。Fields(" readonly")=" y" 情形 2 因为 j=0 到 3 如果检查 1(j)。
  价值 =1 然后选择情形 j 情形 0 mrc。Fields(" qx 1")=" y" 情形 1 mrc。Fields(" qx 2")=" y" 情形 2 mrc。Fields(" qx 3")=" y" 情形 3 mrc。
  Fields(" qx 4")=" y" 结束选择结束如果下个 j 结束选择结束如果下个 i mrc。更新 MsgBox" 用户添加成功！ ", vbExclamation+ vbOKOnly," 警告 " Text1。
  (0)本文 ="" Text1。(1)本文 ="" Text1。(2)本文 ="" 结束潜水艇私人的潜水艇命令 2_Click() 卸货我结束潜水艇私人的附属 Form_Load() Option1。
  (2)评价 = 真实的结束潜水艇私人的附属 Form_Resize() Text1。(0)SetFocus 结束潜水艇私人的附属 Option1_ 点击 (如完整的事物索引) 如果编入索引中 <>2 那么因为 i=0 到 3 检查 1(i) 。
  使 =能够错误的下个 i 别的因为 i=0 到 3 检查 1(i) 。使 =能够真实的下个 i 结束如果结束潜水艇。收起

帮忙看下这段vbs代码

全部回答

相关回答

请大家帮忙把下面这段程序翻译一下

类似问题换一批

热点推荐

热度TOP

热点搜索换一换

帮忙看下这段vbs代码

全部回答

相关回答

请大家帮忙把下面这段程序翻译一下

类似问题换一批

热点推荐

热度TOP

热点搜索 换一换

热点搜索换一换