标签: vbscript

我有几个关于VBScript和ASP Classic的问题:

1. 在VBScript/ASP中访问MS SQL Server数据库的首选方法是什么？

2. 关于从控制器中分离模型的最佳实践是什么？

3. 关于VBScript或ASP,我应该知道的任何其他事情？

如果您没有注意到,我是VBScript编码的新手.我意识到数字2和3是一种过于笼统的巨型"黑洞"问题,所以不要以为我希望从这里学到关于这两个问题的所有知识.

我正在尝试将正在运行的MS Access查询转换为在通过VB脚本(.asp)访问的Oracle数据库上运行.这是WHERE子句的最后一部分:

sql = sql & "WHERE (UAT.HB.MB_MODE = 'A' AND   UAT.HB.PRINT_DATE >= '" 
& SD & "' AND UAT.HB.PRINT_DATE <= '" & ED  &"'  )"

变量"SD"(即"开始日期")是一个文本字符串,可以包含诸如"11/11/2008"之类的值.变量"ED"(即"结束日期")也是如此.

但是,日期不起作用.Oracle是否需要特殊的方式来使用日期？

日期是否必须转换？我是否像在MS Access中一样用'#'关键字包围它们？

我想使用一个我在代码顶部多次声明一次的数组.防爆.

Const Quarters = ["Q1","Q2","Q3","Q4"]

对于每个季度q q.做一些工作

等等.

这可以在VBScript中完成吗？

如何使用VisualBasicScript(.vbs)运行文件？

该文件是'file.bat',它与.vbs位于同一个目录中.

我在Windows中创建了一个VBS脚本.我将运行此脚本来获取文件的大小.

我让它永远奔跑.(即使这是我的要求).

我怎么知道它是在运行还是停止？

------ Exact Script starts here ----- 
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set FSO_check=CreateObject("Scripting.FileSystemObject") 
do while infiniteLoop=0     
----- This code is lasting for ever ----
Loop

我的问题清楚了吗？

当我尝试在VBScript中添加MHTML文件作为电子邮件的附件时,ContentMediaType会错误地将其设置为"message/rfc822"(RFC 822).根据我的理解,根据微软的说法,这是正确的,但根据RFC 2557规定它应该是不正确的"multipart/related".这是一个问题,因为大多数(如果不是全部)邮件客户端都将其解释"message/rfc822"为电子邮件.由于文件扩展名".mht"和".mhtml"不匹配的电子邮件的任何有效的文件扩展名,邮件客户端追加的一个".msg",".eml"等来的文件名.当用户打开附件时,它将作为电子邮件消息打开,并且由于MHTML文件和电子邮件的保存方式不同而无法正确显示.

Sub SendEmail(FromAddress, ToAddress, Subject, Body, Attachment)
  Call Err.Clear
  On Error Resume Next

  Schema = "http://schemas.microsoft.com/cdo/configuration/"
  Set Configuration = Sys.OleObject("CDO.Configuration")
  Configuration.Fields.Item(Schema + "sendusing") = 2
  Configuration.Fields.Item(Schema + "smtpserver") = SMTPServer
  Configuration.Fields.Item(Schema + "smtpserverport") = 25
  Configuration.Fields.Item(Schema + "smtpauthenticate") = 1
  ' Configuration.Fields.Item(schema + "sendusername") = ""
  ' Configuration.Fields.Item(schema + "sendpassword") = ""
  Call Configuration.Fields.Update

  Set Message = Sys.OleObject("CDO.Message") …

我试图将参数连接到一个字符串,以传递给另一个脚本.下列:

WScript.Echo(Join(WScript.Arguments))

给我一个错误:

Error: Wrong number of arguments or invalid property assignment
Code: 800A01C2

那句法有什么问题？

我正在尝试编写一个使用Google语音来发送消息的vbscript .

我必须将代码保存到带有UTF8编码的 notepad ++中,而没有BOM和发音很好,但是消息框的显示不适合重音字符.如何解决这个问题呢 ？

谢谢!

Option Explicit
Call Ip_Publique()
'***********************************************************************************************************************************************************
Sub Ip_Publique()
    Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches,ip_public
    Dim Message,URLFR
    Message = "Vous êtes connecté à internet !" & VbCrlf & "Votre IP Publique est : "
    URLFR = "http://translate.google.com/translate_tts?ie=UTF-8&tl=fr&q=" & Message
    Titre = "Adresse Ip Publique !"
    URL = "http://monip.org"
    If OnLine("smtp.gmail.com") = True Then 
        Set ie = CreateObject("InternetExplorer.Application")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        ie.Navigate (URL)
        ie.Visible=False
        DO WHILE ie.busy
            Wscript.Sleep 100
        Loop
        Data = ie.document.documentElement.innertext
        Set …

我正在尝试使用VBScript运行.bat文件.我可以在与.bat相同的文件夹中执行时使VBScript工作,但是,我无法弄清楚如何在文件夹外部成功运行它.

Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "C:\Users\js\Desktop\createIndex\createindex.bat"

我的机器上安装了两个版本的excels(2010和2016).我想在excel 2016上运行一个vbscript.

然而

CreateObject("Excel.Application") 

只创建excel 2010.如何将此更改为2016？