我试图将一些asp逻辑分成一个单独的页面.现在,我试图调用一个简单的函数.
这是我正在使用的简单索引页面
<html>
<head>
<title>Calling a webservice from classic ASP</title>
</head>
<body>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
%>
<!--#include file="aspFunctions.asp"-->
<%
doStuff()
End If
%>
<FORM method=POST name="form1" ID="Form1">
ID:
<INPUT type="text" name="corpId" ID="id" value="050893">
<BR><BR>
<INPUT type="submit" value="GO" name="submit1" ID="Submit1" >
</form>
</body>
</html>
这是aspfunctions.asp
sub doStuff()
Response.Write("In Do Stuff")
end sub
当我点击我的表单上的提交按钮时,我得到下面的子doStuff()Response.Write("In Do Stuff")end sub
Microsoft VBScript运行时错误'800a000d'
有谁知道我可能做错了什么？
任何帮助是极大的赞赏
感谢Damien Type不匹配:'doStuff'
/uat/damien/index.asp,第15行
我正在尝试编写一个脚本来搜索C:\及其所有子文件夹以获取特定扩展名,并将所有主题保存到CSV文件中.我试过这个但无济于事:
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\"
Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.GetExtensionName("*.txt")
Set colFiles = objFolder.Files
For Each objFile in colFiles
If objFile.Extension = "pfx" Then
Wscript.Echo objFile.Name
End If
Next
Wscript.Echo
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Wscript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Wscript.Echo
ShowSubFolders Subfolder
Next
Set WScript = CreateObject("WScript.Shell")
End Sub
我不认为我在这里走正确的道路.我不擅长vb脚本,它恰好是我唯一可以使用的东西.
我已经尝试了一段时间来寻找这个答案,但似乎无法找到我追求的东西.也许我的写法很奇怪.
我需要一个脚本,它将递归删除网络共享中每个子目录中的特定文件.
例如:
\\\share\\*\a\b\file.settings
*表示n个子目录.路径的其余部分将始终相同.好像我也许能的组合来做到这一点Get-childitem,并remove-item在PowerShell中,但我无法工作了确切的命令,我需要.
任何帮助将非常感谢!谢谢.
我有一个小脚本运行(基本上触发一个msgbox告诉人们他们的帐户密码即将过期).
我希望它在说30分钟后关闭自己,但无法正确理解它,任何人都可以帮忙吗？
下面是调用msgbox的部分
if (daysLeft < warningDays) and (daysLeft > -1) then
Msgbox "Your Password Expires in " & daysLeft & " day(s)" & " at " & whenPasswordExpires & chr(13) & chr(13) & "Please ensure that you change your password before" & chr(13) & "its expiry time to prevent any disruption of service.", 4144, "PASSWORD EXPIRATION WARNING!"
End if
-
加文.
我有一个使用Javascript构建的对象数组,我需要使用VBScript读取它(如下例所示).我找不到一种方法来循环我的VbScript代码中的数组作为myArray对象.
这个例子简化了我的问题.我无法更改页面的默认语言.该myArray对象必须使用JavaScript来构建.必须使用内联vbscript输出数组.
<%@ Language="VBScript" %>
<script language="javascript" runat="server">
var myArray = [
{
name: "object 1"
},
{
name: "object 2"
},
{
name: "object 3"
}
];
</script>
<%
Response.Write(myArray) ' [object Object],[object Object],[object Object]
'Response.Write(myArray(0)) ' ERROR
'Response.Write(myArray[0]) ' ERROR
Response.Write(myArray.[0]) ' [object Object]
Response.Write(myArray.[0].name) ' object 1
Response.Write(VarType(myArray)) ' 8
Response.Write(myArray.length) ' 3
Response.Write(VarType(myArray.[0])) ' 8
Response.Write(VarType(myArray.[0].name)) ' 8
Response.Write(TypeName(myArray)) ' JScriptTypeInfo
Response.Write(TypeName(myArray.[0])) ' JScriptTypeInfo
' ERROR
' Type mismatch: 'UBound'
'Response.Write(UBound(myArray))
' …我将最后的部分放入VBScript页面,我想要处理的一件事是通过URL传入的变量是否为空.如果是这种情况,我希望页面停止运行并显示"必须登录"消息.
我有以下代码:
<%
If (Request.QueryString("nn") = "") Then
Response.Write "<p>You must be logged in to view content. <a href='http://URL/login?ReturnUrl=/interests'>Click here</a> to log in.</p>"
WScript.Quit
End If
%>
错误抛出线WScript.Quit.有任何想法吗？
Dim globalDict
Dim localDict
.
'Data from a excel is loaded to globalDict
Set localDict=globalDict(1)
localDict(item1)="AAA"
此更新globalDict也会更新该值.它似乎localDict只是一个指针.
知道什么可能是错的吗？
谢谢,Rajesh
我试图消除所有小写字符,但VBScript正在删除所有下划线,小写字母和数字.我怎样才能使它只取出小写字母并且不会消除我的其他字符？
With CreateObject("VBScript.RegExp")
.Pattern = "[^A-Z ]"
.Global = True
For Each cell In Worksheets("Sheet1").Range("C1:C25")
If Not IsEmpty(cell.Value) Then _
cell.Value = Application.Trim(.Replace(cell.Value, ""))
Next cell
End With?
我正在重构我的代码并试图减少重复.我有这个工作代码
<% If tree <> "" or (info <> "" and info <> "links" and info <> "privacy" and info <> "talks") Then %>
write stuff
<% End If %>
我把info变量放到一个数组中
Dim info(3)
info(0) = "Talks"
info(1) = "Privacy"
info(2) = "Links"
我不清楚迭代数组
<% If tree <> "" or (info <> "" and **info <> arrayInfo** Then %>
write stuff
<% End If %>
没什么帮助.谢谢.
我有一个脚本，在其中我需要将输入的文本发送为大写。现在，我已经弄清楚了如何在键入时使它显示为大写，但它并没有发送这种方式。另外请记住，光标一直设置在某些文本的最左侧，并且在第一次按键后不能跳转到右侧。
代码的最后一部分是特定的输入框。感谢您的任何帮助！
<html>
<head>
<title>Sysprep Deployment</title>
<HTA:APPLICATION
ID="objCompDeploy"
APPLICATIONNAME="Sysprep Deployment"
SCROLL="no"
SINGLEINSTANCE="yes"
maximizeButton="no"
minimizeButton="no"
sysMenu="yes"
>
</head>
<SCRIPT LANGUAGE="VBScript">
Set WshShell = CreateObject("Wscript.Shell")
Sub Window_onLoad
window.resizeTo 400,200
ComputerNameArea.Focus
CreateObject("WScript.Shell").SendKeys "^{Home}"
'turn off setup flag in registry so we can query wmi
WshShell.RegWrite "HKLM\SYSTEM\Setup\SystemSetupInProgress", 0, "REG_DWORD"
'query wmi for serial number
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", _ …vbscript ×10
asp-classic ×4
arrays ×2
autohotkey ×1
file ×1
javascript ×1
jscript ×1
msgbox ×1
powershell ×1
qtp ×1
recursion ×1
regex ×1
string ×1
vba ×1