标签: vbscript

从存储过程经典asp返回一个值

作为存储过程的菜鸟,我无法理解如何让经典的 ASP (vbscript) 页面从存储过程返回值。我可以将数据写入表中,这只是检索让我卡住的东西。

如果我使用一个非常基本的例子。这是一个应该返回表中记录计数的存储过程:

CREATE PROCEDURE [dbo].[SP_RecordCount] 

AS

SELECT COUNT(*) FROM MyTable
Run Code Online (Sandbox Code Playgroud)

我需要编写哪些经典 ASP 代码(以及对 SPROC 进行哪些更改)才能在浏览器中显示该值?

一旦我了解了如何获得这样的基本输出,我就希望(!)能够建立在知识的基础上。

谢谢。

sql vbscript stored-procedures asp-classic

2
推荐指数
1
解决办法
1万
查看次数

通过 VB 脚本停止/启动服务

我从以下站点获取了以下 VB 脚本:http : //www.itninja.com/question/how-do-i-stop-start-service-in-vbscript

我在这个 VB 中做了一些小改动(取消功能)

这个VB的目标是控制服务——停止或启动服务

所以我尝试停止警报器服务

我不明白为什么服务没有停止,或者还有其他问题?在 VB 脚本中?

 '//    Name:    ControlServiceWMI
 '//  Purpose:    Controls services using WMI
 '//    Input:    strComputer        - String    - the computer on which we want to       control the service. Null means local machine
 '//            strService        - String    - the name of the service. If     blank,       the    function will use strDisplayName
 '//            strDisplayName        - String    - the display name of the service.    If   blank, the function will use strService …
Run Code Online (Sandbox Code Playgroud)

windows vbscript service

2
推荐指数
1
解决办法
2万
查看次数

sAMAccountName 和区分大小写

我可以通过以下 vbs 代码获取特定 ADS 用户的用户详细信息。

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
    "<LDAP://"& objDomain.Get("distinguishedName") &">;" & _
    "(&(objectclass=user)(objectcategory=person)(sAMAccountName=" & strUserName & "));" & _
    "cn,displayName;subtree"
objCommand.Execute
Run Code Online (Sandbox Code Playgroud)

我在这里也想申请LCasesAMAccountName与之前相比strUserName。这可能吗?

vbscript active-directory

2
推荐指数
1
解决办法
4033
查看次数

如何在不看到窗口的情况下以编程方式打开 Powerpoint?

我有这个脚本,由另一个用户制作

它打开输入文件,将其转换为 .pdf 并将其另存为输出文件。

但是,PowerPoint 也会打开,我看到实际的窗口已加载。

这个过程将在服务器上运行,所以我认为每次用户想要转换某些东西时加载 GUI 将是不必要的资源密集型。

有没有办法在不弹出 GUI 的情况下以编程方式打开 PowerPoint?


我试过更换

objPPT.Visible = True

objPPT.Visible = False

但这会引发一个错误,告诉我它不能那样。

我也试过更换

objPPT.Presentations.Open inputFile

objPPT.Presentations.Open inputFile,,,msoFalse

但这给了我一个错误说:

Microsoft PowerPoint 2013:Application.ActivePresentation:请求无效。没有活动的演示文稿。

错误是从Set objPresentation = objPPT.ActivePresentation线路触发的 。


通过对该主题的一些研究,我发现有些人通过使用Open 方法取得了成功

第四个参数是WithWindow。理论上,如果设置为 false,这应该打开没有窗口的演示文稿。

但我对它所做的一切似乎都不起作用。

WithWindow:= false 给我一个语法错误


' Courtesy BillP3rd of superuser.com

Option Explicit

Sub WriteLine ( strLine )
    WScript.Stdout.WriteLine strLine
End Sub

' http://msdn.microsoft.com/en-us/library/office/aa432714(v=office.12).aspx
Const msoFalse = 0   ' False.
Const msoTrue = -1   ' …
Run Code Online (Sandbox Code Playgroud)

vbscript msdn powerpoint ms-office

2
推荐指数
1
解决办法
1万
查看次数

无效的 For 循环控制变量,嵌套的 ResultSet SQL

我试图使用来自初始 SQL 查询的结果集中的记录作为循环控制并将值填充到后续 SQL 语句中。后面的 SQL 语句 resultSet 将用于填充 HTML 表格。

在尝试实现这一目标时,我遇到了这个问题

Microsoft VBScript 编译错误“800a0410”

无效的“for”循环控制变量

/ps/testcli.asp,第 83 行

对于 RS.Fields 中的每个 objFieldValue

-----------------------^

我最初的想法是它无法区分 clientRS 和 RS,但情况似乎并非如此。下面的行从 39 - 97 开始

SQLDel = "DELETE * FROM ClientModuleList"
SQLDel2 = "DELETE FROM PSS.dbo.TestCli"

'------   
SQLGetClientsV1MVSOld = "SELECT ClientID FROM PSS.dbo.CLIENTS WHERE CardpacVersion='Cardlink 1.0' AND OS='MVS'AND Base='Old'AND Active='1'"
SQLGetClientsV1MVSNew = "SELECT ClientID FROM CLIENTS WHERE CardpacVersion='Cardlink 1.0' , OS='MVS', Base='New', Active='1'"
SQLGetClientsV1AS4Old = "SELECT ClientID FROM CLIENTS WHERE CardpacVersion='Cardlink 1.0' , …
Run Code Online (Sandbox Code Playgroud)

sql vbscript asp-classic

2
推荐指数
1
解决办法
3232
查看次数

VBSCRIPT MsgBox VbYesNo倒计时

试图寻找答案,一切都太简单了,或者与我需要的不符。我有一个消息框,我让它正确显示信息。我有一个是和否按钮。我想要一个计时器,所以当计时器用完时,它会继续。如果有人点击是,它会继续执行代码,如果他们点击否,那么它会将用户返回到其他地方。这就是我所拥有的,请帮助。

akey = MsgBox ("Image OS = " & ImageType & vbcrlf & _
  "ComputerName = " & ComputerName & vbcrlf & _
  "TimeZone = " & TZone & vbcrlf & _
  "Ghost Server = " & Server & vbcrlf & _
  "Broadcast Method = " & BMethod & vbcrlf & _
  "Ghost Session = " & GhostSession _
  , vbyesno + vbquestion,VN & " Please Confirm") 
Run Code Online (Sandbox Code Playgroud)

vbscript

2
推荐指数
1
解决办法
7977
查看次数

如何获取当前选定文件的路径

VBScript 是否具有获取文件资源管理器中当前选定文件的路径的功能?如果有,它的功能是什么?我正在寻找类似的东西

Set fileObj = CreateObject("Scripting.FileSystemObject")
dim filepath 
filepath = fileObj.GetCurrentSelection() 'doesn´t exist
dim result
result = filepath 'communicate with LiveCode
Run Code Online (Sandbox Code Playgroud)

vbscript explorer selection livecode

2
推荐指数
1
解决办法
4396
查看次数

Microsoft VBScript 编译错误:预期的语句结束

我试图在下面的 VB 脚本的帮助下将一些记录插入到 MS Access 表中。但是当我尝试执行它时,它会抛出编译错误:预期的语句结束。有人可以帮我弄清楚我哪里出错了。

Private Sub Form_Click()
Dim dbs         As DAO.Database
Dim DbFullNAme  As String

DbFullName = "D:\G\Diamond\FINAL MS-Access\MS-Access project.accdb"
Set dbs = OpenDatabase(DbFullName)

dbs.Execute "INSERT INTO [2014_Status] ( Prompt, Project_Name, STATUS,Release_Name )SELECT     RoadMap.SPRF_CC, RoadMap.SPRF_Name, RoadMap.Project_Phase,RoadMap.Release_Name FROM RoadMap WHERE (((Exists (select 1 FROM [2014_Status] where RoadMap.SPRF_CC = [2014_Status].[Prompt]))=False));"
dbs.Close
End Sub
Run Code Online (Sandbox Code Playgroud)

vbscript ms-access vba

2
推荐指数
1
解决办法
4万
查看次数

理解 VBScript 中的 ON ERROR

我正在尝试修改 vbscript 并将其转换为 Powershell。我的函数 SearchAD 上有一段代码块,带有 On Error。

on error resume next
Set objRS = command.execute

SearchAD = objRS.RecordCount
on error goto 0
Run Code Online (Sandbox Code Playgroud)

我的问题是代码的哪一部分可以触发 RESUME Next,哪一部分用于 GOTO 0。

vbscript

2
推荐指数
2
解决办法
3万
查看次数

使用 vbscript 创建 XML 元素时如何避免 xmlns 属性?

添加新元素时,我看到xmlns添加了空字符串的属性。我怎样才能避免这种情况?我看到的答案很少,但它们要么是 Java 要么是 .Net。仍然尝试了这些,但它们不起作用。我需要一个 VBScript 的解决方案。

'load the xml file
Set objXMLDoc = CreateObject("Microsoft.XMLDOM")  
objXMLDoc.load(strFilePath)

'get all <MainError> nodes in the xml
Set mainNode = objXMLDoc.documentElement.SelectNodes("//MainError")

'get child nodes for the first <MainError> node
Set childNodes = mainNode(0).ChildNodes

Set objErrorNode = objXMLDoc.createElement("ChildError")
objErrorNode.text = "somevalue"
mainNode(0).appendChild(objErrorNode)
Run Code Online (Sandbox Code Playgroud)

输出:

<MainError><ChildError xmlns="">somevalue</ChildError></MainError>
Run Code Online (Sandbox Code Playgroud)

xml vbscript xml-namespaces xmldom

2
推荐指数
1
解决办法
2205
查看次数