<HTML>
<HEAD>
<TITLE>Select Case문</TITLE>
</HEAD>
<BODY>
<%
Dim strScore
strScore = "Gold"
Select Case strScore
Case "Gold"
Response.Write"회원님의 등급은 골드입니다."
Case "Silver"
Response.Write"회원님의 등급은 실버입니다"
Case Else
Response.Write"회원님의 등급은 일반입니다"
End Select
%>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE> ELSE IF 문</TITLE>
</HEAD>
<BODY>
<%
Dim intScore
intScore=8
If intScore>10 Then
Response.Write "회원님의 등급은 골드입니다"
ElseIf intScore>5 Then
Response.Write "회원님의 등급은 실버입니다"
Else
Response.Write "회원님의 등급은 일반입니다"
End If
%>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE> IF문 </TITLE>
</HEAD>
<BODY>
<%
Dim intScore
intScore = 1
If intScore = 1 Then
Response.Write "회원입니다."
Else
Response.Write "회원이 아닙니다."
End If
%>
</BODY>
<HTML>
<HTML>
<HEAD>
<TITLE>2차원 배열</TITLE>
</HEAD>
<BODY>
<%
Dim strMember(2,2)
strMember(0,0) = "홍길동"
strMember(1,0) = "19세"
strMember(2,0) = "hong@shop.com"
strMember(0,1) = "성춘향"
strMember(1,1) = "15세"
strMember(2,1) = "seng@asp.com"
strMember(0,2) = "한석봉"
strMember(1,2) = "17세"
strMember(2,2) = "han@shop.com"
Response.Write strMember(0,0) & ""
Response.Write strMember(1,0) & ""
Response.Write strMember(2,0) & "<BR>"
Response.Write strMember(0,1) & ""
Response.Write strMember(1,1) & ""
Response.Write strMember(2,1) & "<BR>"
Response.Write strMember(0,2) & ""
Response.Write strMember(1,2) & ""
Response.Write strMember(2,2) & "<BR>"
%>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>동적 배열</TITLE>
</HEAD>
<BODY>
<%
Dim strMember()
redim strMember(3)
strMember(0) = "홍길동"
strMember(1) = "성춘향"
strMember(2) = "이몽룡"
Response.Write strMember(0) & "<BR>"
Response.Write strMember(1) & "<BR>"
Response.Write strMember(2) & "<BR>"
%>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>고정 배열</TITLE>
</HEAD>
<BODY>
<%
Dim strMember(3)
strMember(0) = "홍길동"
strMember(1) = "성춘향"
strMember(2) = "이몽룡"
Response.Write strMember(0) & "<BR>"
Response.Write strMember(1) & "<BR>"
Response.Write strMember(2) & "<BR>"
%>
</BODY>
</HTML>