VBScript（Visual Basic Scripting Edition）是Microsoft开发的一种解释型脚本语言，它使用Visual Basic建模。 VBScript与VBA或VB.NET不同。它们是三种不同的东西，所以使用正确的标签。
使用 ASP 页面从 SQL Server 存储过程返回数据[重复]
我有一个 .asp 页面，我正在向该页面传递数据，需要将信息发送到 SQL Server 存储过程，获取返回值，然后将其传递回主页。我目前有发送数据的页面...
在 Catia 中，我们没有轴模式，所以我决定制作一个。 首先我记录一下这种情况的宏。 其次，我在案例系统用户输入他想要的轴时进行编辑。但我认为这是一个坏主意......
我刚刚开发了一个平台，可以在使用如下所示的表格提交ID号后立即打印单个ASP文档： ... 我刚刚开发了一个平台，可以在使用如下所示的表格提交 ID 号后立即打印单个 ASP 文档： <form action="http://localhost/teg/f1.asp" method="POST"> <input type="number" name="number" placeholder="Please Enter ID" /> <button type="submit">Print</button> </form> 在本例中，它打印一个名为 f1.asp 的文档。但是，我也有 f2.asp，因此我决定编写一次表单并包含一个下拉列表，让用户选择要打印的内容，而不是为两个单独的字段编写两次表单，但为此我想我需要另一页我称之为重定向。表格变化如下： <form action="http://localhost/teg/redirect.asp" method="POST" id="new"> <input type="number" name="number" placeholder="Please Enter ID" /> <button type="submit">Print</button> </form> <label> Type </label> <select name="list" form="new"> <option value="1">f1</option> <option value="2">f2</option> </select> 重定向 ASP 页面看起来： <html> <body> <% Dim list list = request.form("list") If list=1 Then response.redirect("f1.asp") Else If list=2 Then response.redirect("f2.asp") End If %> 最后，当使用下拉列表单击“打印”时，它可以完美重定向，但 ID 号字段中的“number”值未达到用户选择的文档类型，因此文档无法正确显示。相反，会出现以下数据库引擎错误：“80040e10”。任何帮助，将不胜感激。 请务必记住，HTTP 是无状态的，只有通过 Cookie 等技术，经典 ASP 才能跨 HTTP 请求将值存储在 Session 对象中。 目前，由于 Response.Redirect()，发送新请求时，Request.Form("number") 的值会丢失。有几种方法可以解决这个问题，我在这里重点介绍三种。 1.通过重定向将值作为查询字符串传递 最简单的方法是传递使重定向的页面正常工作所需的值。 <% 'Assign our form values to local variables. Dim list: list = Request.Form("list") & "" Dim id: id = Request.Form("number") & "" 'Check the value contain data and they are valid numeric values. If Len(list) > 0 And IsNumeric(list) Then list = CLng(list) Else list = 0 If Len(id) > 0 And IsNumeric(id) Then id = CLng(id) Else id = 0 '***** Only process if we have valid values to build the redirect. ***** Dim url If list > 0 And id > 0 Then 'We have valid values build our URL that we will use in 'the redirect call. url = "f" & list & ".asp?id=" & id Else 'Something not right with request go back to the form page. 'Setting this will send the page back to the form page when the 'redirect is called. url = "formpage.asp" End If 'Make the redirect request. Call Response.Redirect(url) %> 然后在重定向页面中使用 id 调用 Request.QueryString("id") 查询字符串值。 2.使用Server.Transfer()方法 在某些情况下你可以使用这种方法来简化代码。简而言之，它不是将其重定向，而是将请求的页面“缝合”到当前请求的底部，从而允许表单参数仍然可以访问，因为从技术上来说，就互联网浏览器而言，它仍然是相同的请求。 <% Dim list: list = Request.Form("list") & "" Dim id: id = Request.Form("number") & "" If Len(list) > 0 And IsNumeric(list) Then list = CLng(list) Else list = 0 If Len(id) > 0 And IsNumeric(id) Then id = CLng(id) Else id = 0 If list > 0 And id > 0 Then Call Server.Transfer("f" & list & ".asp") Else 'Handle invalid request here End If %> 您将能够在传输的页面中使用 Request 对象中的任何值，例如 .Form 和 QueryString，而不会产生错误，因为就服务器而言，它们仍然是同一页面。 3.将值存储在 Session 对象中 如果您在 IIS 中将 Enable Session State 设置为 True，您可以在 Session 对象内跨请求存储值（经典 ASP 使用会话 Cookie 来维护服务器内存中的会话状态）。 <% Dim list: list = Request.Form("list") & "" Dim id: id = Request.Form("number") & "" If Len(list) > 0 And IsNumeric(list) Then list = CLng(list) Else list = 0 If Len(id) > 0 And IsNumeric(id) Then id = CLng(id) Else id = 0 If list > 0 Then 'Store the value we want to persist in the Session. Session("PrintId") = id Call Response.Redirect("f" & list & ".asp") Else 'Handle invalid request here. End If %> 然后要将值返回到重定向页面内，请使用 varname = Session("PrintId")。 虽然已经很晚了，但稍微简单一点。无需进行重定向，只需使用操作 URL 和所有数据填充新表单，然后在验证后使用 JS 提交触发提交。缺点是 JS 可能会被破坏，但随后会做一个 catch，然后，好吧，替代选项。之所以迟回复，是因为我一直在寻找类似的东西，直到我意识到重定向是不必要的。 您的表格关闭得太早了： <form action="http://localhost/teg/redirect.asp" method="POST" id="new"> <input type="number" name="number" placeholder="Please Enter ID" /> <button type="submit">Print</button> </form> <---- THIS <label> Type </label> <select name="list" form="new"> <option value="1">f1</option> <option value="2">f2</option> </select> </form> <---- SHOULD BE HERE 其他答案都可以；然而，这回答了你的问题 为什么“你的”代码不起作用。
通过调度程序运行 Outlook 的 VBScript 代码
我为 Outlook 编写了一个 VBScript，可以转发收件箱中超过 30 分钟未读的电子邮件。当我手动运行 vbs 文件时，它工作得很好，但是当我触发时，它是
我正在尝试找出位于硬盘目录中的tables.DBF的名称。 随后，我需要知道它们的列的名称，但甚至连表的名称我也不知道...
我有一个 VBScript 可以检测本地硬盘驱动器号并将它们存储在某个位置。现在我想从中删除 Windows 驱动器。我的意思是首先它找到所有本地硬盘驱动器，然后检测
VBScript 应从未来的 Windows 版本中删除。这到底是什么意思？
正如我在 Windows 11 文档中读到的那样，VBScript 并不在弃用功能列表中。 我们的软件不使用 VBS-Script 文件。但我们在内部托管 VBScript。我们将 VBScript 代码传递给
我通过替换字符来处理类似的文本文件，这些字符经常出现在文件中（多次出现），尤其是空格。 当我使用这个脚本时 set fso = CreateObject("脚本。
如何在经典 ASP/VB 中运行多个插入查询
使用Enterprise Architect VBScript，如何访问FK连接器涉及的列？
我正在使用VBScript（在Enterprise Architect v15.2.155中）处理PDM中的FK连接器，并希望访问涉及的列（即子表的外键列和PK列...
在VBS中获取File对象的ParentFolder属性时出错
可能与这个问题有关，但实际上从未得到解答（人们建议使用免费软件工具而不是编写代码）。然而，这些工具都无法满足我的需要，即
如何解决“vbScript网站中回收IIS应用程序池错误”？
这个应用每天至少需要回收3次，目前这是一个很大的问题。这不是一个大规模的逻辑应用，主要用于上传和下载
需要对下面的 vbscript 进行一些小的修改... 阅读常量 = 1 Dim strSearchFor，set1，set2 strSearchFor =“2012 年 10 月 17 日” 设置1=应用程序1 设置2=应用程序2 设置 objFSO = CreateObject("脚本。
您好，我希望每天上午 9 点运行以下代码。基本上，代码将读取 txt 文件并从每一行中读取。它将处理并插入到 Mysql 表中。我该如何实现这个目标？我...
我正在尝试使用 sapi 用 vbs 重新创建雏菊铃，但是这首歌的一部分令人不舒服： 黄色.比率 = 6 黄色。说“给予”。 耶...
也许这里有人可以帮我修改这个脚本吗？我希望文件名位于 gif 下方，并且文本大小稍小一些，以便更多的 gif 可以出现在一行中。 <p>也许这里有人可以帮我修改这个脚本吗？我希望文件名位于 gif 下方，并且文本大小稍小一些，以便更多的 gif 可以出现在一行中。</p> <pre><code><script type="text/vbs"> set fso=CreateObject("Scripting.FileSystemObject") set fldr=fso.GetFolder(".") for each file in fldr.files if lcase(right(file.name,4))=".gif" then document.write "<img src=""" & file.name & """>" document.write file.name & "&#160;&#160;&#160;&#160;&#160;&#160;" end if next </script> </code></pre> </question> <answer tick="false" vote="0"> <p>如评论中所述，您可以使用一些应用于 Div 的 CSS 并创建一个类来设置图像大小。大小可以指定为任何所需的单位。这里使用 Ems 是因为在设置不同缩放值的显示器上尺寸保持相当恒定。这是 HTA 代码：</p> <p><strong>GIFshow.hta</strong></p> <pre><code><!DOCTYPE html> <html> <head> <meta http-equiv="x-ua-compatible" content="IE=10"> <script language="VBScript"> Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(".") For Each oFile In oFolder.Files If LCase(oFSO.GetExtensionName(oFile.Name)) = "gif" Then document.write "<div class=""image-container"">" document.write "<img class=""image"" src=""" & oFile.Name & """ alt=""" & oFile.Name & """>" document.write "<br>" & oFile.Name document.write "</div>" End If Next </script> <style> .image-container { display: inline-block; text-align: center; } .image { width: 10em; height: 10em; } </style> </head> <body> </body> </html> </code></pre> </answer> </body></html>
我不知道为什么，但我喜欢假病毒，我想制作一个，但我不知道最好的语言是什么。 我尝试了批处理、python、vbscript 等，但遇到了很多问题。我的目标是贝莱...
在 Office 365 中将签名保存在用户帐户上，而不是设备上
这个问题超出了我的想象，我实际上正在查看页面上漂亮的字母、数字和符号。 我们使用了 Visual Basic 脚本来应用和更新我们的电子邮件签名
我的注册表中有以下值 钥匙： HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Accepted Documents\ 价值观： * -> 应用程序/msword ** -> 应用程序/v...
我正在尝试用 VBScript 编写一个程序来自动执行我在 Internet Explorer 中执行的任务。我需要单击一系列按钮和文本框，我想知道是否有人可以给我提示......