간단한 배열 정의
ASP에서 배열을 정의하고 초기화하는 방법에는 두 가지가 있습니다. 각각의 예를 살펴보겠습니다.
방법 1:
MyArray = Array("1월","2월","3월","4월","5월","6월","7월","8월","9월","10월", "11월","12월 ")
배열의 크기는 초기화된 요소의 수에 따라 결정됩니다.
방법 2:
다음과 같이 코드 코드를 복사합니다.
Dim myArray(2) '배열 크기를 지정합니다
myArray(0)="1월"
myArray(1)="2월"
어레이 동적 확장
다음과 같이 코드 코드를 복사합니다.
DIM myArray()
REDIM myArray(20) '배열 크기를 20으로 재정의합니다.
ReDim Preserve MyArray(i) 'Preserve는 배열의 원본 데이터를 유지합니다.
2차원 배열
예:
Dim MyArray(5,10) '2차원 배열을 정의합니다.
2차원 할당의 예:
MYArray(3,3)=100
2차원 배열에 대한 위장된 구현 방법도 있습니다.
희미한MyArray(5)
MyArray(0)=Array(...) '1차원 배열
MyArray(1)=Array(...)'1차원 배열
...
접근할 때 MyArray(x)(y) 형식을 사용하세요.
배열 인덱스
위의 방법을 사용하여 배열을 정의합니다. 각 차원 배열의 첫 번째 요소의 첨자는 0이고, 마지막 요소의 첨자는 요소 수 -1입니다.
그러나 다음과 같이 배열의 첨자를 지정할 수도 있습니다.
희미한 MyArray1(3 to 10) ' 아래 첨자는 3부터 10까지이며 MyArray(3)는 첫 번째 요소의 값을 가져옵니다.
유용한 배열 함수
Ubound(배열 이름) 함수--배열의 마지막 요소의 첨자를 반환합니다.
Lbound(배열 이름) 함수--배열의 첫 번째 요소에 대한 첨자를 반환합니다. 기본값은 0입니다.
더 많은 응용 프로그램:
배열 정렬 기능
[암호]
함수 정렬(ary)
KeepChecking = TRUE
KeepChecking까지 수행 = FALSE
KeepChecking = 거짓
I = 0에서 UBound(ary)까지
I = UBound(ary)이면 다음을 위해 종료합니다.
ary(I) > ary(I+1)이면
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = 두 번째 값
ary(I+1) = FirstValue
KeepChecking = TRUE
종료 조건
다음
고리
정렬 = 아리
기능 종료
배열 정렬 기능 적용 예
다음과 같이 코드 코드를 복사합니다.
DimMyArray
MyArray = 배열(1,5,123,12,98)
MyArray = 정렬(MyArray)
I = Lbound(MyArray)에서 Ubound(MyArray)로
응답.MyArray(I) 및 "<br>" 쓰기
다음
문자열을 분할하고 배열을 반환
다음과 같이 코드 코드를 복사합니다.
DimMyArray
MyArray = 분할(문자열, 구분 기호)
I = Lbound(MyArray)에서 Ubound(MyArray)로
응답.MyArray(I) 및 "<br>" 쓰기
다음
애플리케이션 및 세션에서 배열 사용
응용프로그램.잠금
Application("StoredArray") = MyArray
응용 프로그램.잠금 해제
LocalArray = 애플리케이션("StoredArray")
응용 프로그램의 배열 덮어쓰기
응용프로그램.잠금
애플리케이션("StoredArray") = LocalArray
응용 프로그램.잠금 해제
세션 사용법은 애플리케이션과 동일합니다.
데이터베이스에서 배열로 데이터 가져오기
DimMyArray
모든 기록 가져오기
MyArray = RS.GetRows
처음 10개의 레코드 가져오기
MyArray = RS.GetRows(10)
행 = 0에서 UBound(MyArray, 2)로
col = 0의 경우 UBound(MyArray, 1)
응답.쓰기(열, 행) & "<br>"
다음
다음
배열을 다른 페이지로 전달
배열을 다른 페이지에 전달하는 방법에는 여러 가지가 있습니다. 현재 세 가지 방법이 있습니다.
쉼표로 구분된 문자열을 정의한 후 다음 페이지의 Split 함수를 사용하여 배열을 다시 만듭니다.
세션 변수에 배열을 저장하고 다음 페이지에서 호출합니다.
배열은 폼의 숨겨진 영역을 통과하여 자동으로 쉼표로 구분된 다음 Split 기능을 사용하여 배열을 다시 생성합니다.
처음 두 가지 방법은 좋지만 둘 다 세 번째 방법보다 더 복잡합니다. 여기서는 가장 간단하고 효과적인 세 번째 방법만 소개하겠습니다.
1. ASP:
<%
나는 어둡다
희미한 myArray(20)
I=0 ~ 20인 경우
myArray(I)="항목 " & I
다음
%>
<html>
<본문>
<form method="post" action="2.asp">
<%
I=0에서 ubound(myArray)까지
response.write "<입력 유형=숨겨진 이름=myArray 값='" & myArray(I) & "'>"
다음
%>
<p>
<입력 유형="제출">
</form>
</body>
</html>
위에서 수행한 작업은 별도의 암시적 필드를 사용하여 배열의 각 요소를 양식에 저장하는 것입니다.
2.asp
<html>
<본문>
<%
희미한 문자열
희미한 내 배열
나는 어둡다
arrString=요청("myArray")
myArray = 분할(arrString,",")
I=0에서 ubound(myArray)까지
response.write "항목 "&I&" = " & myArray(I) & "<br>" & vbCrLf
다음
%>
</body>
</html>
관심을 가질 만한 기사: