Dim : 변수를 선언. (예: Dim strName, Dim strName (5) : 배열로 선언, 0~5인덱스인 '6칸' 배열이다) (dimension의 약자)

Set : 객체를 생성. (예:  Set rs = Server.CreateObject("ADODB.RecordSet")) 객체는 다 쓰고 메모리에서 해제하는 것이 중요하다.

Dim myPhone
Set myPhone = Server.CreateObject("Telephone.Headphone")

myPhone.color = "black"
myPhone.number = "010-1234-5678"

myPhone.call("02-000-9876")
myPhone.hangup()

Set myPhone = Nothing		// 객체를 메모리에서 해제.(더이상 사용하지 않을 때)

 

IF ~ THEN 샘플

<%
IF intNumber = 1 THEN
    Response.Write "intNumber 에 들어있는 수는 1입니다!"
ELSEIF intNumber = 2 THEN
    Response.Write "intNumber 에 들어있는 수는 2입니다!"
ELSEIF intNumber = 3 THEN
    Response.Write "intNumber 에 들어있는 수는 3입니다!"
ELSE
    Response.Write "intNumber 에 들어있는 수는 1,2,3 이 아닌 다른 숫자입니다!"
END IF
%>

SELECT CASE 샘플

<%
SELECT CASE intNumber
CASE 1
    Response.Write "intNumber 에 들어있는 수는 1입니다!"
CASE 2
    Response.Write "intNumber 에 들어있는 수는 2입니다!"
CASE 3,4,5
    Response.Write "intNumber 에 들어있는 수는 3,4,5 중 하나입니다!"
CASE ELSE
    Response.Write "intNumber 에 들어있는 수는 1부터 5 사이의 정수가 아닙니다."
END SELECT
%>

FOR ~ NEXT

<%
DIM intLoop
FOR intLoop = 1 TO 10 STEP 1
    Response.write intLoop & "<BR>"
NEXT
%>

DO WHILE

<%
DIM intLoop
intLoop = 11
DO WHILE intLoop <= 20
    Response.write intLoop & "<BR>"
    intLoop = intLoop + 2
LOOP
%>

 

실습

<%@Language="VBScript" CODEPAGE="65001" %>
<%

  Response.CharSet="utf-8"
  Session.codepage="65001"
  Response.codepage="65001"
  Response.ContentType="text/html;charset=utf-8"
%>

<HTML>
<HEAD><title>main.asp</title>
</HEAD>
<BODY>
<P>&nbsp;</P>
가상 디렉토리입니다.<br />
<% for i = 1 to 3 step 1 %>
   Hello world! ASP <br>
<% next %>
<br />
<%
DIM intLoop
FOR intLoop = 1 TO 10 STEP 2
    Response.write intLoop & "<BR>"
NEXT
intLoop = 2
DO WHILE intLoop <= 10
    Response.write intLoop & "<BR>"
    intLoop = intLoop + 2
LOOP
%>
</BODY>
</HTML>

+ Recent posts