[Resolvido] Array

Çolussão a baixo!

<input type="text" name="campo" />
<input type="text" name="campo" />
<input type="text" name="campo" />
<input type="text" name="campo" />
<input type="text" name="campo" />

For K = 1 To Request.Form("campo")
Response.Write("campo")(K) & "<br/>")
Next

<% Function fetchmonth(mNumber)

Dim mArray(11)
mArray(0)="January"
mArray(1)="February"
mArray(2)="March"
mArray(3)="April"
mArray(4)="May"
mArray(5)="June"
mArray(6)="July"
mArray(7)="August"
mArray(8)="September"
mArray(9)="October"
mArray(10)="November"
mArray(11)="December"

fetchmonth=mArray(mNumber)
End Function

Response.Write "O dia do mês em número " & Month(Date()) & "<br>"
Response.Write "O dia do mês é de caracteres é" & fetchmonth(Month(Date())-1)

%>

No VBScript, um array pode ser definido em mais de uma maneiras. Uma maneira demonstrada acima, ou seja, de imediato, como definir a matriz

<%Dim mArray(11) %>

Depois de declarar a matriz, preenchemos os valores dentro dele. Acima temos entrado meses na capacidade índice indivíduo. Usando a função Array (), este também poderia ter sido feito assim:

<% Dim mArray(11)
mArray=Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
%>

Se você quiser saber o tamanho de um array, você pode obtê-lo por

<% UBound(mArray) – LBound(mArray) + 1 %>

onde UBound () retorna o índice mais alto e LBound () retorna o índice mais abaixo. LBound () sempre deve retornar zero, pois todas as matrizes no ASP tem 0 (zero) como seu primeiro índice. É por isso que temos de acrescentar uma para chegar ao tamanho da matriz numérica.

Nosso mArray, aquele que contém meses, tem 12 itens, porque UBound (mArray) - LBound (mArray) significa 11-0, e quando você soma 1 a ele, dá-nos 12.

Nós podemos mudar o tamanho de um array já existente usando ReDim. Portanto, se queremos adicionar 7 dias da semana para a nossa mArray, primeiro temos que:

<% ReDim Preserve mArray(18) %>

e, em seguida, preenchê-lo com dias contados mArray (12) em diante. Se você não usar Preserve, o tamanho da matriz é alterada , mas os valores antigos se foram. Então, se você quiser usar ReDim e redimensionar o array, use Preserve também.

Depois de eu ter resolvido alguém posta! uahsus

Responde uma coisa nada ver com a minha dúvida ainda.

na verdade não é um array, o que você quer ...

e sim apenas recuperar todos os input

olha este exemplo que recupera todos os request.form e já insere na string SQL

Dim item
For Each item In Request.Form("id_produto")

 strSql = " SELECT id,produto,valor FROM produtos "
 strSql = strSql & " WHERE id_cliente = "& cint(id_cliente_p)
 strSql = strSql & " AND id = "& cint(item)
 set rs = cn2.execute(strSql)

 Response.Write "ID do Produto: "& rs("id") &"<br>"
 Response.Write "Produto: "& Replace(rs("produto"),vbcrlf,"<br>") &"<br>"
 Response.Write "Valor: "& FormatNumber(rs("valor"),2) &"<br>"
 Response.Write "---------------------------------------------------<br>"

Next