我用ASP编写了以下代码：
<%@ Language= "VBScript" %>
[...]
dim myarray(4)
redim myarray(5)
当我尝试执行代码时，我得到了处理URL时在服务器上发生错误的错误，如浏览器中所示。
我认为myarray可能需要像dim myarray()那样声明为Integer才能声明为动态数组，但仅仅声明它会导致相同的错误。
也许ASP不支持使用VbScript调整数组大小，尽管我会发现这一事实非常奇怪。
我是否遗漏了什么可以让数组适当调整大小的东西？
浏览 0提问于2017-11-27得票数 0
我试图在VBscript中创建二维数组，但是我不知道数组的大小，所以我将变量放入其中，但是这段代码没有编译：
Dim countA: countA = 1
Dim countB: countB = 1
Dim countArray(countA, countB)
使用该代码的经典ASp页面不会编译，而
Dim countArray(1, 1)
效果很好。
我还能用变量来实现一个二维数组吗？
浏览 4提问于2017-08-23得票数 0
回答已采纳
我正在重新设计网页的一部分，使其更容易在未来更新。目前，它是一系列硬编码的表。要重新设计表(例如，按照我想要的方式对其进行字母排序)，需要在html中手动交换大量的值。
这就是我想要做的:创建一个带有标题和链接变量的url_Link对象，分别保存显示名称和url。创建一个url_Link对象数组，并将其填充到页面的.asp文件的顶部。对这些数组执行for each循环，以构建和填充表
这本身并不是很糟糕，但我遇到了两个问题。首先，我希望不必定义数组大小，因为这使得在更改链接数量时必须更改第二个位置。将会有一些逻辑来阻止某些url_Link对象被显示(例如，一些用户不能访问某些页面，所以他们看不
浏览 2提问于2013-07-27得票数 6
回答已采纳
我使用以下For loop显示文件夹中的所有文件，扩展名为.asp的文件除外。
我想将文件名添加到一个数组中，以便将objFileItem.Name添加到tmpArray中的每个元素中。
我试着使用tmpArray(k) = objFileItem.Name，但是抛出了一个错误。
For Each objFileItem In objFolderContents
strFileExtension = LCase(Mid(objFileItem.Name, _
InStrRev(objFileItem.Name, ".", -1, 1) + 1))
浏览 2提问于2013-09-25得票数 1
回答已采纳
1回答
基本上，我正在编写一个.asp文件来创建一个由数组中的字符串组成的HTML。
我需要数组是动态的，这样我就可以从文本文件中向数组中添加任意数量的字符串。我在创建动态数组时遇到了问题。
到目前为止，我尝试的是：
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile("c:\inetasp\test.txt",1)
dim row
do Until f.AtEndOfStream = true
f.Skipline
loop
row=CInt(f.L
浏览 4提问于2015-11-19得票数 0
回答已采纳
3回答
我在ASP中有这个数组
CONST CARTPID = 0
CONST CARTPRICE = 1
CONST CARTPQUANTITY = 2
dim localCart(3,20)
我像这样动态地向这个数组添加项
localCart(CARTPID,i) = productId
localCart(CARTPRICE,i) = productPrice
localCart(CARTPQUANTITY,i) = 1
问题是，在4个项目之后，我仍然可以添加项目，但UBound总是返回3。这导致我的条件失败。
我想在运行时增加这个数组的大小，这样UBOUND就可以返回最新的值。
请让我知道我该
浏览 2提问于2012-01-03得票数 5
回答已采纳
如何在asp经典中不使用维度来声明数组？我想要的是显示recordset并将其保存在数组中。
<tr>
<td>Call Type</td>
<%
dim agentWithCallType( )
agentWithCallTypeCtr=0
if not RsAgentEffectivenessPerCallType.eof then
do while not RsAgentEffectivenessPerCallType.eof
%>
<td><% =RsAgentEffectiven
浏览 3提问于2014-03-11得票数 1
回答已采纳
我正在尝试将ASP中的SQL查询序列化为json对象，如下所示：
["name1"，"phone1"，"email1"，"address1"，"name2"，"phone2"，"email2"，"address2"]
我已经做了两个循环来遍历db的列和行，这就是我到目前为止的结果；
<!--#include file="JSON_2.0.4.asp"-->
SQL = "SELECT name, phone, email, ad
浏览 2提问于2012-09-01得票数 2
回答已采纳
1回答
ASP新入门。尝试从窗体创建多维数组。在php中，它将类似于
<?php
$myArray = array();
for($i = 0 $i< $myArray.size() $i++){
myArray[$i] = array(field1=>"var1",field2=>var2);
}
?> //syntax not exactly correct but you get the picture
我不得不在ASP中做类似的事情，但我似乎可以弄清楚，尽管它应该很简单
我需要从表单中获取行中的值，然后将值放入
浏览 3提问于2014-08-23得票数 1
1回答
我是经典asp的新手。我想在经典的asp的CPF验证功能。
以下链接有CPF验证功能的javascript和vb.net，但我想它在经典的asp /vbscript
谢谢
浏览 2提问于2012-07-26得票数 1
回答已采纳
我最近继承了一个用ASP写的网站，这个网站我并不熟悉。昨天，其中一个页面开始抛出错误：
Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'i'
default.asp, line 19
下面是13-27行的代码：
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM VENDORS_LIST_TBL WHERE inStr('"&am
浏览 1提问于2012-06-16得票数 3
回答已采纳
我有一个用经典asp编写的二维数组，比如
1-5
1-3
2-5
我需要以下格式的数组输出
1-8
2-5
请帮帮我
浏览 4提问于2013-01-10得票数 0
回答已采纳
我是编程新手，我想知道什么是最好的计时和优化代码的方法？我目前想要计时的代码是在VBA中对MS-Access的一系列查询，但我也想计时VB.NET和ASP.NET中的代码。
因此，重申一下，为每种语言计时和优化代码的最好方法是什么？
请给出原因和解释，帮助我理解如何做。
提前谢谢。
浏览 1提问于2009-07-27得票数 0
回答已采纳
2回答
删除数组中的项
、、
我有这段代码，可以浏览VBA中的所有文件类型。它已经在工作，但我现在要做的是删除数组中的项，如果它是被阻塞的文件类型之一。
Const exts = _
".ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp.gadget" & _
".hlp.hta.inf.ins.isp.its.js.jse.ksh.lnk.mad.maf.mag.mam.maq.mar.mas.mat" & _
".mau.mav.maw.mda.mdb.mde.mdt.mdw
浏览 0提问于2016-11-14得票数 1
回答已采纳
我在Classical ASP中有以下代码：
dim arr(2,3)
arr(0,0) = "proc"
arr(1,0) = "code"
arr(2,0) = "hour"
arr(0,1) = "11111"
arr(1,1) = "01"
arr(2,1) = "5"
arr(0,2) = "22222"
arr(1,2) = "02"
arr(2,2) = "6"
arr(0,3) = "33333"
arr(
浏览 0提问于2012-01-11得票数 2
2回答
我已经尝试了所有其他相关主题的可用帮助，但没有解决这个问题，代码如下
VB6 (DLL代码)：
Public Function enterorder(vals() As Variant, ordhdr() As Variant) As String
................... code ............
enterorder = "done"
End Function
ASP：
SET objdll = server.createobject("dllproname.classname")
Dim values(1, 4)
Dim ordh
浏览 0提问于2013-05-20得票数 0
回答已采纳
我试图在经典ASP中使用Server的结果填充HighCharts数据集，但似乎无法正确地降低语法。这是一个非常基本的开始，我的定制，我认为得到的数据集渲染，一切都很容易从那里。
下面的循环工作正常，并正确地从我的sproc抓取数据。我认为我的问题是在实际的data[]部分的var options =部分
dim xAxisData()
dim yAxisData()
j = 0
adoRsGraph.MoveFirst
if adoRsGraph.EOF = false then
Do Until adoRsGraph.EOF
浏览 2提问于2013-10-29得票数 1
回答已采纳
我在php中有这一行代码，它返回一个文件名数组，如下所示；
1 => folderName/elev-a.jpg
1 => folderName/elev-b.jpg
1 => folderName/elev-c.jpg
1 => folderName/elev-d.jpg
。。这是代码
$elev = glob($folderName.'/elev-[a-z].jpg');
我现在需要在ASP的一个程序中使用它。到目前为止，我读到的内容听起来像是我需要使用一个字典对象、一个文件系统对象、一个Regex对象和一些循环。这似乎是因为我在VBscript中遗
浏览 3提问于2013-06-27得票数 1
1回答
我有一个access数据库，我是通过vbscript从一个asp页面访问。我需要查询数据库并返回一个记录集，修改记录集中的一些数据，然后执行透视。如何在修改后的记录集上执行透视？
我有返回的记录集和完成的数据修改，但不知道现在如何执行透视。数据修改涉及检查记录集中的每一项(计划请求)，以查看它是否跨越筛选器日期范围。如果是，则调整开始和/或结束时间，并重新计算请求的时间。这不是SQL查询本身可以完成的事情。
浏览 2提问于2012-08-07得票数 1
回答已采纳
我目前上传文件到SharePoint 2010文档库使用ASP FileUpload控件。
这个过程可以用于OFfice 92-2003文档、TXT、RTF甚至PDF，直到它满足Office 2010文档为止。
问题是：可以成功上传文件。该文件位于SharePoint服务器上。但下载到本地后，打开该文件将显示该文件有不可读内容(或损坏)，需要恢复读取。恢复后，它将正常打开。
我记得在某个地方读到Office 2010文档上传流与Office 2003略有不同，但不记得到底是怎么回事。
这是我的密码：
ASPX
<asp:FileUpload ID="UploadContro
浏览 4提问于2013-07-18得票数 0
回答已采纳
1回答
我有这段代码来获取所有的文件类型。然后，如果它的扩展名在数组中，则应该将其存储在excludedFile数组中，并在执行后显示。
Dim excludedFile() as String
Const exts = _
".ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp.gadget" & _
".hlp.hta.inf.ins.isp.its.js.jse.ksh.lnk.mad.maf.mag.mam.maq.mar.mas.mat"
Dim file As Va
浏览 0提问于2016-08-12得票数 0
回答已采纳
5回答
以下面的数组为例...
arr(0)(0) = 3
arr(0)(1) = name
arr(0)(2) = address
arr(1)(0) = 7
arr(1)(1) = name
arr(1)(2) = address
arr(2)(0) = 14
arr(2)(1) = name
arr(2)(2) = address
我需要从数组中删除中间的元素(id=7)。我知道我需要遍历数组，并将每个不需要删除的记录移动到一个新的数组中。我试着这样做...
Dim newArr,i
Redim newArr(Ubound(arr))
For i = 0 to Ubound(arr)
浏览 0提问于2013-07-20得票数 6
回答已采纳
1回答
我想在下面的CSV文件中读取经典ASP中的值。
首先，我将上传文件并将其存储在服务器中。然后，我将读取该文件，并尝试使用循环将每个列的值存储在变量中，然后将该变量传递给某个方法。我已经编写了代码，但在循环这些值时似乎有问题。代码似乎存储并正确打开了文件，但未能将其中的值循环到变量中。
这是我的代码：
<HTML>
<HEAD>
<!--#include file="clsUpload.asp"-->
</HEAD>
<BODY>
<FORM ACTION = "clsUploadTEST
浏览 2提问于2021-07-13得票数 0
回答已采纳
我继承了一个ASP项目，我是一个没有ASP知识的PHP程序员。对不起，如果这篇文章太长了，我只想尽可能多地提供一些信息。
我在为这一段代码而挣扎。
Dim resultArray As String()
For Each resultitem In resultArray
' Do something with each element of the array
hash.Add(dllFunctionObj.ReturnTemplateField(i), resultitem)
i = i + 1
Next
错误：
Exception!!: Index was
浏览 3提问于2013-02-15得票数 1
回答已采纳
我使用PHP将数据发送到ASP数据库文件。真正的问题是，Request.QueryString('data')似乎附加数据，而不是在循环中使用新数据，就像它的缓存一样。
“守则”(简化)
在PHP方面:这是一个5x的循环，ProductID将是001,002,003,004,005
$fields = array(
'OrdersID' => $orderid, //001,002
'productID' => $row2['orderprodid']
}
send_
浏览 0提问于2013-11-07得票数 0
我使用PDFsharp项目将许多pdf文档合并到一个文件中，这个文件工作得非常完美和流畅。但是我也需要从典型的ASP服务器页面调用这个方法。
同样有效，但奇怪的是通过调用该方法来处理param值。
C#定义：
public void MergeMultiplePDF(object[] files, string outFile)
{
// note: get an array from vbscript, so files need to be a object array, not string array.
// Open the output document
PdfDoc
浏览 2提问于2013-02-21得票数 0
回答已采纳
当我试图在我的“班次”类中创建一个新成员时，我遇到了一个错误。该子项用于填充以下变量(在类的顶部声明)：
Private ShiftMembers() As String
Private ShiftCallSigns() As String
Private ShiftAssignments() As String
Private ShiftStatuses() As String
Public Sub AddMember(ByVal Name As String, ByVal CallSign As String, ByVal Assignment As String, Optional B
浏览 4提问于2015-01-30得票数 1
回答已采纳
2回答
我目前正在尝试弄清楚如何在ASP经典的行接续语句中添加注释。我们的代码管理需求要求我们编写一个开始块和结束块来标记我们做了更改的地方。例如。
旧代码
arrayName = Array("FIRST_NAME", _
,"LAST_NAME" _
,"ADDRESS"
)
新代码
arrayName = Array("FIRST_NAME" _
,"LAST_NAME" _
浏览 2提问于2011-09-27得票数 2
回答已采纳
因此，我有一个数据结构的东西是相当开放的，以存储的数据量结束。数据通过一系列结构存储。下面是我使用的结构和变量：
Dim CurrentRec As Year
Structure Year
Dim Months() As Month
End Structure
Structure Month
Dim Dayz() As Days
Dim MiscExpend(,) As String
End Structure
Structure Days
Dim Incomes(,) As String
Dim Expenditures(,) As String
浏览 4提问于2014-12-01得票数 1
回答已采纳
1回答
我在dreamweaver中创建了以下记录集，它查找所有具有以下cat_id的机器
<%
Dim rsTest
Dim rsTest_cmd
Dim Test_numRows
Set Test_cmd = Server.CreateObject ("ADODB.Command")
Test_cmd.ActiveConnection = MM_test_STRING
Test_cmd.CommandText = "SELECT * FROM machinery WHERE main_site='yes' AND(Cat_id=13 OR
浏览 1提问于2014-06-29得票数 0
回答已采纳
我正在工作的经典ASP组织图的东西在工作。问题是我得到了一个“超出范围的子脚本：‘objRS(.)’”错误。如果全名数组的index_one等于部门数组的index_one中的公司，而全名数组的index_two等于部门的index_two，那么理论上这应该意味着用户在部门中，所以我会回显这个名称。
我有以下代码
'Define the AD OU that contains our users
dim ADUser, department, fullname, index_one, index_two, index_three
fullname = Arra
浏览 3提问于2015-09-09得票数 0
2回答
创建具有可变元素数的数组变量
、、、、
我想要定义一个数组变量，根据搜索返回的结果的m个，有一个可变的元素数。我在以下方面得到一个错误“常量表达式必需”：
Dim cmodels(0 To m) As String
这是我的完整代码
Dim foundRange As Range
Dim rangeToSearch As Range
Set rangeToSearch = Selection
Set foundRange = rangeToSearch.Find(What:="Lights", After:=ActiveCell,
LookIn:=xlValues, LookAt:= _
xl
浏览 5提问于2013-08-23得票数 2
回答已采纳
我在Excel中创建一个二维动态数组。我可以找到的大多数代码示例如下所示：
Dim companyArray() As Variant
Dim height, width As Integer
width = 2
height = WorksheetFunction.CountA(Worksheets(1).Columns(1))
ReDim companyArray(height, width)
在获得了height变量的值之后，我不想声明数组，这有什么原因吗？如果可能的话，我不想避免使用ReDim吗？
浏览 4提问于2017-02-15得票数 1
回答已采纳
1回答
VBA添加到ReDim值
、、、
好的，我在使用ReDim数组时遇到了问题；有人告诉我这就是解决这个问题的方法。我只是不确定应该把它放在哪里，或者必须添加到函数的第一个Integer ((n，n))中。仅供参考，"Dim PropArray(0，5) As String“位于代码的最顶部，其中"Option Compare Database”是。
Dim PropArray(0, 5) As String
Public Function ShowBeam()
For Each ctl In [Forms]![frmShelfBuilder]
If Left(ctl.Name, 3) = "B
浏览 22提问于2020-02-22得票数 1
索引超出了数组的界限。
每次我尝试记录数据，例如，两个农场和一个公牛，我会得到这个错误.我认为这可能与ReDim有关。
每当有更多的农场，那么就有公牛，我有这个错误.然而，如果它是一个农场，它可以带走同样多的公牛。
Private Farm() As FarmInfo
Private Farms, Bulls, Weekends As Integer
Private Structure FarmInfo
Public FarmName As String
Public FarmSize As Double
Public
浏览 4提问于2017-04-29得票数 0
回答已采纳
1回答
我正在处理一个VB Windows窗体，这里我有一个关于初始化数组(友元变量)的问题。
我有一个BookInfo类，如下所示：
Public Class BookInfoForm
Friend _books() As BookInfo
...
EndClass
在我的主表单中，我希望将这个_books数组初始化为大小为4。
我尝试过的是：
_bookInfoForm._books(4) = New BookInfo
但是这没有起作用，它抛出了一个异常
Object reference not set to an instance of an object.
我想知道如何才能将数组初始化
浏览 4提问于2012-05-11得票数 0
回答已采纳
这是使用VBScript的asp经典，不，它不会移动到.net的任何东西，所以不要问。
好的，从数据库中获取数据的经典方法是使用GetRows：
Dim MyRecords
Dim rs, conn
[...database opening stuff...]
If Not rs.EOF Then
MyRecords = rs.GetRows
End If
[...close database & set to Nothing...]
请注意，MyRecords并不是作为一个数组变暗的；它只在GetRows调用之后变成一个数组。
我的问题是，我如何在不使用GetRows的情况下
浏览 0提问于2009-12-05得票数 1
回答已采纳
我正在尝试创建一个动态数组，在循环中添加单元。每次尝试redim并添加一个单元时，我都会得到以下错误：
下标超出范围
我的代码：
dim arr()
strSql = "SELECT item from dupEmail"
Set rs = CurrentDb.OpenRecordset(strSql)
rs.MoveFirst
ReDim arr(0)
Do While Not rs.EOF
arr(UBound(arr, 1)) = rs.Fields(0)
ReDim Preserve arr(1, UBou
浏览 4提问于2016-06-09得票数 0
回答已采纳
1回答
这里是新的，一般的VBA和编程都是新的。
我正在尝试重用多个数组(通过一个循环)，但我假设在重用它们之前我需要清除它们？我试着搜索这些问题，但我找不到解决办法，或者坦率地说，如果它们有效的话，我就无法理解这些解决方案。
Dim WS As Worksheet
For Each WS In Worksheets
If Right(WS.Name, 4) = "Data" Then Comp = Comp + 1
Next WS
Dim CompArray(10, 50) As Variant
Dim RatesArray(10, 1 To 50) As Variant
浏览 2提问于2013-12-03得票数 2
回答已采纳
我正在尝试将一个值添加到一个动态数组中，但是一直得到一个运行时错误。我找到了一些不同的来源，说这应该是答案，所以我不知道我做错了什么……
Sub addtoarray()
Dim catSheets() As String
ReDim Preserve catSheets(UBound(catSheets) + 1)
catSheets(UBound(catSheets)) = "Chemicals"
End Sub
浏览 2提问于2015-08-11得票数 2
1回答
Dim n As Integers
Public AAA() As Integer
Public QQQ() As String
Sub Initialise()
n = 0
End Sub
Sub WrongAnswer(oShape As Shape)
A = oShape.TextEffect.Text
SendWrongAnswer
End Sub
Sub SendWrongAnswer()
ReDim QQQ(500)
QQQ(n) = Q
ReDim AAA(500)
AAA(n) = A
n = (n) + 1
End Sub
当我制作数组AAA()和QQQ()并将数据
浏览 0提问于2020-03-12得票数 0
回答已采纳
2回答
我有一个三维数组。我想从Excel中的几个模块访问这个数组。出于这个原因，我使用Public来声明它。目前，我使用以下代码：
Public MyData(1 To 400, 1 To 10, 1 To 3000) As Double
我希望在启动代码时，根据数据的大小，在一定值下初始化第一个和第三个变量。
由于ReDim只能用于数组中的最后一个变量，所以我尝试这样做，尽管这是不可能的：
If x < 400 and z < 3000 Then
Public MyData(1 To 400, 1 To 10, 1 To 3000) As Double
End If
浏览 2提问于2020-08-23得票数 2
回答已采纳
1回答
我有这样的密码。
Dim sums() As Single
dim n as integer
For n = 0 To ActiveCell.Value - 2
sums(n) = Abs(Application.WorksheetFunction.SumIf(Range(Cells(i + m, 6), Cells(j - 1, 6)), Range("F" & i + m).Value, Range(Cells(i + m, 17), Cells(j - 1, 17))))
Next n
我收到了sums(n)= ....的错误消息，我想按照公式填充数组中的
浏览 3提问于2017-09-18得票数 0
回答已采纳
1回答
我已经声明了一个范围数组
Dim aRange(1 to 5) as Range
我无法在以后的代码中重新调整数组的大小。
ReDim Preserve aRange(1 to a)
有什么事情是我做错了，还是我无法调整范围数组的大小。
浏览 4提问于2014-04-02得票数 1
我真的很感谢在这件事上能得到的任何帮助。
我试图遍历一个列，寻找重复的名称，然后从同一行中获取该列和其他几个数据，并将它们放入一个二维数组中，我想使用另一个函数，但它不起作用。
我真的需要你的帮助来弄清楚为什么我不能在不保留数据的情况下重定向这个数组。
Dim oRange As Range, aCell As Range, bCell As Range
Dim ws As Worksheet
Dim SearchString As String, FoundAt As String
Dim tArray() As Variant
Dim iR As Long
Dim LastRow As L
浏览 3提问于2013-12-19得票数 2
回答已采纳
1回答
我不知道如何创建一个动态多维数组。目前，我已经将我的数组声明为Dim fArr(0 To 4, 0 To 9)。它在一个维度中总是(0到4)，而其他维度(0-9)总是可变的，那么我该如何做呢？
我像下面的例子一样填充数组
Select Case fTyp
Case Is = "A"
fArr(0, aRow) = j
Case Is = "B"
fArr(1, aRow) = j
Case Is = "C"
浏览 1提问于2015-10-28得票数 1
回答已采纳
我刚开始使用VBA，并试图将数组输出到范围中，但当我将范围设置为数组时，得到的是空白单元格。如果我将范围设置为一个特定的索引，比如"titlearray(1，3)“，那么它就会打印出正确的输出。
下面是我的完整代码。
Sub GenerateList()
baseyr = 2019
mnthct = 1
mnthyr = InputBox("Actuals up to: (xx/xxxx format)")
Sheets("Parameters").Cells(4, 2) = mnthyr
yr
浏览 22提问于2021-05-28得票数 0
我想做什么
我想要一个循环，如果它不适合他的存储位置的产品存储位置移除。在这个循环中，我希望将artikelDetail_ID保存在数组中。循环结束后，我希望能够看到所有在循环期间被删除并放入数组中的artikelDetail_ID。
当代码运行时，它将删除6条记录。
我的解决方案
Dim verwijderdeID() As Variant
Dim lengte As Integer
lengte = 0
With recordset_opslag_detail_info
Do Until recordset_opslag_detail_info.EOF
If (hu
浏览 1提问于2020-01-29得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
