Beginning ASP.NET using VB.NET ¿¬½À¹®Á¦ / ÇØ´ä

Beginning ASP.NET using VB.NET ¿¬½À¹®Á¦ 6, 7Àå / ÇØ´ä

 º»¹® ÃÖÃÊ ÀÛ¼ºÀÏ : 2002³â 10¿ù 04ÀÏ
 º»¹® ÃÖÁ¾ ¼öÁ¤ÀÏ : 2002³â 10¿ù 04ÀÏ

 ÀÛ¼ºÀÚ : Áö¿ë±º(¼º Áö¿ë)
 ÆíÁýÀÚ : Áö¿ë±º(¼º Áö¿ë)

¾È³çÇϼ¼¿ä. Áö¿ë±ºÀÔ´Ï´Ù. Beginning ASP.NET using VB.NETÀÇ ¿¬½À¹®Á¦¿¡ ´ëÇÑ ÇØ´äÀÌ ¼­Àû¿¡¼­ Á¦°øµÇÁö ¾Ê¾Ò½À´Ï´Ù.

ÀÌ¿¡ ´ëÇÑ ÇØ´äÀ» ÃâÆÇ»ç ÃøÀ¸·Î ºÎÅÍ ¹Þ¾Æ¼­ °ÔÀçÇØ µå¸³´Ï´Ù.


¢Ã 6Àå. Á¦¾î ±¸Á¶¿Í ÀýÂ÷Àû ÇÁ·Î±×·¡¹Ö

Chap 6 - Q1 : A¿¡ ÀÓÀÇÀÇ °ªÀ» ³Ö¾î, ´ÙÀ½ÀÇ ºí¸®¾ð ½ÄÀÇ Âü°ú °ÅÁþÀ» Æò°¡ÇÏ¿©¶ó.

a. NOT A > 0 OR A > 5
b. A > 1 AND A < 5 OR A > 7 AND A < 10
c. A < 10 OR A > 12 AND NOT A > 20

A1 : a. ¸¸¾à A °¡ 0, 1, 2, 3, 4 ¶Ç´Â 5ÀÌ¸é °ÅÁþ. ±× À̿ܿ¡´Â Âü.
b.¸¸¾à A°¡ 2, 3, 4, 8 ¶Ç´Â 9À̸é Ž. ±× À̿ܿ¡´Â °ÅÁþ
c.True ¸¸¾à A°¡ 13, 14, 15, 16, 17, 18 ¶Ç´Â 19À̰ųª A°¡ 9 ¶Ç´Â ±× ¹Ì¸¸ÀÎ °æ¿ì Âü. ±× À̿ܿ¡´Â °ÅÁþ.

Chap 6 - Q2 : ´ÙÀ½ÀÇ ½Ã³ª¸®¿À¿¡ ÀûÀýÇÑ ¹Ýº¹¹®ÀÇ ÇüŸ¦ Á¦½ÃÇϰí, ÀÌÀ¯¸¦ ¸»Ç϶ó.
a. ±¸¸Å ¹°Ç°ÀÇ ³»¿ªÀ̳ª, ¹è¿­¿¡ ÀúÀåµÈ ¾ÆÀÌÅÛÀ» º¸¿©ÁÙ ¶§
b. ÇöÀç ¿ùÀÇ ´Þ·ÂÀ» º¸¿© ÁÙ ¶§
c. ¹è¿­¿¡¼­ ƯÁ¤ °³Ã¼ÀÇ À§Ä¡¸¦ ãÀ» ¶§
d. HTML Å×À̺íÀ» »ç¿ëÇÏ¿© ü½ºÆÇÀ» ±×¸± ¶§
º¸³Ê½º: À̵é Áß¿¡¼­ Çϳª¸¦ ¼öÇàÇÒ ¼ö ÀÖ´Â ASP.NET ÆäÀÌÁö¸¦ ÀÛ¼ºÇ϶ó.

A2 :
a. ¹è¿­¿¡ ÀÖ´Â ¸ðµç Ç׸ñÀ» ó¸®ÇÏ´Â °£´ÜÇÑ ¹æ¹ýÀ» Á¦°øÇÏ´Â For Each ±¸¹®ÀÌ ÀûÀýÇÏ´Ù.
b. ÇØ´ç ¿ùÀº ¸î ÀÏÀÌ ÀÖ´ÂÁö¸¦ ¾Ë ¼ö ÀÖ°í, ¹Ýº¹¹®À» ½ÃÀÛÇϱâ Àü¿¡ ¹Ýº¹ÇÒ È½¼ö¸¦ ¸í½ÃÇÒ ¼ö ÀÖÀ¸¹Ç·Î For¡¦Next ±¸¹®ÀÌ ÀûÀýÇÏ´Ù.
c. Do¡¦Until ±¸¹®Àº Ç׸ñÀ» ãÀ» ¼ö ÀÖ´Â µ¿¾È¿¡´Â ¹Ýº¹ ÀÛ¾÷À» ¼öÇàÇÒ ¼ö ÀÖµµ·Ï Çã¿ëÇϱ⠶§¹®¿¡, Do¡¦Until ±¸¹®ÀÌ ÀûÀýÇÏ´Ù.
d. ¾Ö¸ÅÇÑ ÀÛ¾÷ÀÌ´Ù. µÎ °³ÀÇ For¡¦Next ¹Ýº¹ ±¸¹®À» »ç¿ëÇÒ ¼öµµ ÀÖ´Ù. Çϳª´Â ³»ºÎ, ¶Ç ´Ù¸¥ Çϳª´Â ¿ÜºÎ¿¡¼­ ¹Ýº¹ ÀÛ¾÷À» Çϵµ·Ï ÇÒ ¼ö ÀÖ´Ù. 8°³ÀÇ Çà°ú °¢ ÇàÀº ´Ù½Ã ¿©´ü °³ÀÇ ¼¿À» ÇÊ¿ä·Î Çϱ⠶§¹®¿¡, µÎ ¹øÀÇ ¹Ýº¹ ÀÛ¾÷À» ÇØ¾ß ÇÑ´Ù.

Chap 6 - Q3 : µÎ °³ÀÇ Á¤¼ö¸¦ ¸Å°³º¯¼ö·Î Àü´Þ ¹Þ¾Æ¼­, µÎ Á¤¼ö »çÀÌÀÇ ÀÓÀÇÀÇ º¯¼ö¸¦ »ý¼ºÇÏ´Â ÇÔ¼ö¸¦ ÀÛ¼ºÇ϶ó. ÃÖ¼Ò°ª°ú ÃÖ´ë°ªÀ» ÀÔ·Â ¹Þ´Â ASP.NET ÆäÀÌÁö¸¦ ÀÛ¼ºÇϰí, ÀÌ ¹üÀ§ ¾ÈÀÇ ÀÓÀÇÀÇ ¼ýÀÚ¸¦ »ý¼ºÇÏ¿© º¸¿©ÁÖ¾î¾ß ÇÑ´Ù.

A3 ´ÙÀ½ÀÇ ÇÔ¼ö´Â ¸Å°³º¯¼ö·Î Àü´ÞµÈ µÎ °³ÀÇ Á¤¼ö »çÀÌ¿¡¼­ ÀÓÀÇÀÇ ¼ýÀÚ¸¦ ¹ß»ý½ÃŲ´Ù.
Function RandomNumber(a As Integer, b As Integer) As Integer
Return int((1 + b - a) * rnd) + a
End Function

´ÙÀ½ÀÇ ASP.NET ÆäÀÌÁö´Â »ç¿ëÀÚ·Î ÇÏ¿©±Ý ÃÖ´ë°ª°ú ÃÖ¼Ò°ªÀ» ÀÔ·ÂÇϵµ·Ï Çϰí, RandomNumber ÇÔ¼ö¸¦ ÀÌ¿ëÇÏ¿© ÇØ´ç ¹üÀ§ ³»¿¡¼­ ÀÓÀÇÀÇ °ªÀ» ¹ß»ý½ÃŰ´Â ÀÛ¾÷À» ¼öÇàÇÑ´Ù.

<%@ Page Language="VB" runat=server %>
<script runat=server>
Sub Page_Load()
     if num1.text="" then num1.text="0"
     if num2.text="" then num2.text="1"
     answer.text = CStr( RandomNumber( CInt(num1.text) , CInt(num2.text) ) )
EndSub

Function RandomNumber(a As Integer, b As Integer) As Integer
     Return int((1 + b - a) * rnd) + a
End Function
</script>

<html>
     <body>

          <form runat="server">
          ÃÖ¼Ò°ª: <asp:textbox id=num1 runat=server />
          ÃÖ´ë°ª: <asp:textbox id=num2 runat=server />
          <br/>

          <input type= "Submit" value= "ÃÖ´ë/ÃÖ¼Ò°ª»çÀÌÀÇ ÀÓÀÇÀÇ ¼ö">< BR>< BR>           <br />

          <font size=16pt>°ª: <asp:label id=answer runat=server /></font>
          </form>< BR>      </body>< BR> </html>

Chap 6 - Q4 : Å©¸®½º¸¶½º±îÁö ³²Àº ³¯Â¥¸¦ º¸¿©ÁÖ´Â ASP.NETÆäÀÌÁö¸¦ ÀÛ¼ºÇϵµ·Ï Ç϶ó. ´ÙÀ½ÀÇ ÇÔ¼ö°¡ ÇÊ¿äÇÒ °ÍÀÌ´Ù.
DateDiff(Interval as String, Date1 As Date, Date2 As Date)
³²Àº ÀÏÀÚ¸¦ °è»êÇϱâ À§ÇØ Interval¿¡´Â ¡°d¡±¸¦ Àü´ÞÇØ¾ß ÇÑ´Ù.
ÀÌ ÆäÀÌÁö¸¦ »ç¿ëÀÚÀÇ ¼±Åÿ¡ µû¶ó 5°¡ÁöÀÇ ´Ù¸¥ °øÈÞÀÏÀÇ ³²Àº ³¯Â¥¸¦ ¹ÝȯÇÒ ¼ö ÀÖµµ·Ï ¼öÁ¤Ç϶ó.

A4

´ÙÀ½ÀÇ ASP.NET ÆäÀÌÁö´Â Å©¸®½º¸¶½º±îÁö ³²¾Æ ÀÖ´Â ³¯Â¥ÀÇ ¼ö¸¦ Ãâ·ÂÇÑ´Ù.

<%@ Page Language="VB" runat=server debug=true %>
<script runat=server>
> Sub Page_Load()
     Dim TodaysDate As Date = Now()
     Dim XmasDate As Date = "12/25"
     lblDate.text = TodaysDate.Date 
     lblDays.text = DateDiff("d", TodaysDate, XmasDate)
End Sub
</script>

<html>
     <head>
          <title>Å©¸®½º¸¶½º±îÁöÀÇ ³¯Â¥¼ö</title>
     </head>
<body>
     <h2>¿À´ÃÀº <asp:label id="lblDate" runat="server" />ÀÔ´Ï´Ù.</h2>
     Å©¸®½º¸¶½º±îÁö´Â <asp:label id="lblDays" runat="server"/>ÀÏ ³²¾Ò½À´Ï´Ù.
</body>
</html>

»ç¿ëÀÚ°¡ ¼±ÅÃÇÑ ³»¿ª¿¡ µû¶ó¼­, 5°¡ÁöÀÇ °øÈÞÀϱîÁö ³²Àº ³¯Â¥¸¦ Á¦°øÇϵµ·Ï ÆäÀÌÁö¸¦ º¯°æÇÑ´Ù.

<%@ Page Language="VB" runat=server debug=true %>
<script runat=server>
Sub Page_Load()
     Dim TodaysDate As Date = Now()
     Dim HolDate As Date = ddlHoliday.SelectedItem.Value
     Dim ExtraDays As Integer
     If (HolDate.Date < TodaysDate.Date) Then ExtraDays =365 Else ExtraDays =0
     lblDate.text = TodaysDate.Date 
     lblDays.text = DateDiff("d", TodaysDate, HolDate) + ExtraDays
End Sub
</script>

<html>
     <head>
          <title>Days To Holiday</title>
     </head>
     <body>
          <h2>¿À´ÃÀº <asp:label id="lblDate" runat="server" />ÀÏ ÀÔ´Ï´Ù.</h2>
          <form runat="server">
               <asp:dropdownlist autopostback="true" id="ddlHoliday" runat="server">
               <asp:listitem value="01/01" text="New Years Day" />
               <asp:listitem value="06/14" text="Flag Day" />
               <asp:listitem value="07/04" text="Independence Day" />
               <asp:listitem value="11/11" text="Armistice" />
               <asp:listitem value="12/25" text="Christmas" />
               </asp:dropdownlist>
               ±îÁö´Â <asp:label id="lblDays" runat="server" /> ÀÏ ³²¾Ò½À´Ï´Ù.
          </form>
     </body>
</html>

¡¡

Chap 6 - Q5 : ÇÔ¼ö³ª ¼­ºê·çƾ¿¡ ÂüÁ¶¿¡ ÀÇÇÑ Àü´ÞÀ» ÇÒ °æ¿ì¸¦ Á¦½ÃÇϵµ·Ï Ç϶ó. ¶ÇÇÑ À̰ÍÀ» ASP.NETÆäÀÌÁö·Î ÀÛ¼ºÇ϶ó.

A5
ÀÌ´Â Æø ³Ð°Ô ÇØ¼®ÇÒ ¼ö ÀÖ´Â Áú¹®ÀÌ´Ù. µû¶ó¼­ ¾î¶°ÇÑ ÇØ°áÃ¥µµ Á¦½ÃµÉ ¼ö ¾ø´Ù.

¢Ã 7Àå. À̺¥Æ® Á᫐ ÇÁ·Î±×·¡¹Ö°ú Æ÷½ºÆ®¹é

Chap 7 - Q1 : ¿Ö À̺¥Æ® Á᫐ ÇÁ·Î±×·¡¹ÖÀÌ À¥¿¡¼­ °¡Àå ÁÁÀº ÇÁ·Î±×·¡¹Ö ¹æ¹ýÀÎÁö¸¦ ¼³¸íÇ϶ó.

A1
À̺¥Æ® Áß½ÉÀÇ À¥ ÆäÀÌÁö¿¡¼­, ÆäÀÌÁö°¡ Á¦°øµÉ ¶§¸¶´Ù ÄÚµå´Â ¹Ì¸® Á¤ÀÇµÈ ¼ø¼­¿¡ µû¶ó¼­ ¼öÇàµÇµµ·Ï Á¦ÇѵǾî ÀÖÁö ¾Ê´Ù. ¹°·Ð, ÄÚµå´Â »ç¿ëÀÚ°¡ ¹ß»ý½ÃŲ ƯÁ¤ À̺¥Æ®¿¡ ´ëÇØ¼­ ¹ÝÀÀÇÏ°Ô µÇ´Â ±â´ÉÀÇ ºí·Ïµé·Î ³ª´­ ¼ö ÀÖ´Ù. µû¶ó¼­ À¥ Æû¿¡ ÀÖ´Â ¿©·¯ °³ÀÇ µ¶¸³µÈ ÄÄÆÛ³ÍÆ®·ÎºÎÅÍ º¹ÀâÇÑ ±â´ÉµéÀ» Á¢ÇÕ½Ãų ¼ö ÀÖÀ¸¸ç, Ŭ¶óÀÌ¾ðÆ® ¼ÒÇÁÆ®¿þ¾î¿¡¼­´Â ÄÄÆÛ³ÍÆ®°¡ ¾î¶»°Ô ÇÁ·Î±×·¡¹Ö µÇ¾ú´ÂÁö¸¦ ÀüÇô ¾Ë Çʿ䰡 ¾ø´Ù.

Chap 7 - Q2 : ´ÙÀ½ÀÇ HTML Äڵ带 ÀÛ¼ºÇϰí, ºê¶ó¿ìÀú¿¡¼­ È£ÃâÇ϶ó(È®ÀåÀÚ¸¦ .htmÀ¸·Î ÀúÀåÇÏ¿©¾ß ÇÑ´Ù). ÀÌÁ¦ »ç¿ëÀÚ°¡ Ŭ¸¯ ¹öưÀ» ´­·¯¼­ Á¤º¸¸¦ Àü´ÞÇÒ ¶§, Æû¿¡ ÀÔ·ÂµÈ Á¤º¸¸¦ À¯ÁöÇϵµ·Ï Ç϶ó. ÀÌ´Â ÀÛ¼ºÇÑ HTML Äڵ带 ÀÏ·ÃÀÇ ASP.NET ¼­¹ö ÄÁÆ®·Ñ·Î º¯°æÇÔÀ¸·Î½á °¡´ÉÇÏ´Ù. ¶ÇÇÑ ÀÔ·ÂµÈ Á¤º¸°¡ Á¦´ë·Î Àü´ÞµÇ¾ú´ÂÁö¸¦ È®ÀÎÇÒ ¼ö ÀÖµµ·Ï, ¹öư¿¡ ¼­ºê ·çƾÀ» Ãß°¡Çϵµ·Ï Ç϶ó.

<html>
     <head>
          <title>HTML</title>
     </head>
<body>
     <form>
          <h4>¼º¸íÀ» ÀÔ·ÂÇϼ¼¿ä:<h4>
          <input type="text"><br /><br />
          <h4>¾ÆÄ§ ½Ä»ç·Î ¹» µå½Ã°í ½ÍÀ¸¼¼¿ä?<h4>
          <h4>½Ã¸®¾ó<input type="checkbox"><h4>
          <h4>°è¶õ<input type="checkbox"><h4>
          <h4>ÆæÄÉÀÌÅ©<input type="checkbox"><h4><br />
          <h4>ÁÖ¹®:<h4> 
          <h4>¹Ù·Î ÁÖ¹®<input type="radio" name="test"><h4>
          <h4>Â÷ÈÄ¿¡ ÁÖ¹®<input type="radio" name="test"><h4>
          <input type="submit" value="°¨»çÇÕ´Ï´Ù!">
     </form>
</body>
</html>
¡¡

A2

<%@ Page Language="VB" runat="server" %>
<script runat="server">
Sub ClickHandler(Sender As Object, E As EventArgs)
     message.text = "³»¿ë Àü¼Û."
     questions.visible = False
End Sub
</script>

<html>
     <head>
          <title>ASP.NET</title>
     </head>
     <body>
          <asp:label id=message runat=server />
          <form id=questions runat="server">

          <h4>¼º¸íÀ» ÀÔ·ÂÇϼ¼¿ä:</h4>
               <asp:textbox id=name runat="server" /><br /><br />

               <h4>¾ÆÄ§½Ä»ç´Â ¹» µå½Ã°í ½ÍÀ¸¼¼¿ä?</h4>
               <asp:checkboxlist id=food runat="server">
               <asp:listitem value="½Ã¸®¾ó"/>
               <asp:listitem value="´Þ°¿"/>
               <asp:listitem value="ÆæÄÉÀÌÅ©"/>
               </asp:checkboxlist>

               <h4>ÁÖ¹®:<h4> 
               <asp:radiobuttonlist id=when runat="server">
               <asp:listitem value="¹Ù·Î"/>
               <asp:listitem value="Â÷ÈÄ¿¡"/>
               </asp:radiobuttonlist>

               <asp:button type="submit" id= "btnSubmit" onclick= "ClickHandler" text= "°¨»çÇÕ´Ï´Ù.!"<BR>               runat="server" />

          </form>

     </body>
</html>
¡¡

Chap 7 - Q3 : Page_Load À̺¥Æ® 󸮱⿡ ¼±Åà ³»¿ªÀ» È®ÀÎÇÒ ¼ö ÀÖµµ·Ï, ´ÙÀ½ÀÇ ³»¿ëÀ» Æ÷ÇÔÇÏ´Â ASPX Äڵ带 Ãß°¡Ç϶ó
         ´Ô °¨»çÇÕ´Ï´Ù.
¾ÆÄ§À¸·Î´Â           À» ¼±ÅÃÇϼ̽À´Ï´Ù.           ÁغñÇϵµ·Ï ÇϰڽÀ´Ï´Ù.

A3

<%@ Page Language="VB" runat="server" debug = true %>
<script runat="server">
Sub ClickHandler(Sender As Object, E As EventArgs)
     dim item as listitem

     message.text = name.text & "´Ô °¨»çÇÕ´Ï´Ù."
     message.text += "¾ÆÄ§À¸·Î´Â "

     if food.items(0).Selected then message.text += food.items(0).text + " "
     if food.items(1).Selected then message.text += food.items(1).text + " "
     if food.items(2).Selected then message.text += food.items(2).text + " "

     message.text += "À» ¼±ÅÃÇϼ̽À´Ï´Ù. " + Request.Form("when") + " Áغñ Çϵµ·Ï ÇϰڽÀ´Ï´Ù."
     questions.visible = False
End Sub
</script>

<html>
     <head>
          <title>ASP.NET</title>
     </head>
     <body>

          <asp:label id=message runat=server />
          <form id=questions runat="server">

               <h4>¼º¸íÀ» ÀÔ·ÂÇϼ¼¿ä:</h4>
               <asp:textbox id=name runat="server" /><br /><br />

               <h4>¾ÆÄ§½Ä»ç´Â ¹» µå½Ã°í ½ÍÀ¸¼¼¿ä?</h4>
               <asp:checkboxlist id=food runat="server">
               <asp:listitem value="½Ã¸®¾ó"/>
               <asp:listitem value="´Þ°¿"/>
               <asp:listitem value="ÆæÄÉÀÌÅ©"/>
               </asp:checkboxlist>

               <h4>ÁÖ¹®:<h4> 
               <asp:radiobuttonlist id=when runat="server">
               <asp:listitem value="¹Ù·Î"/>
               <asp:listitem value="Â÷ÈÄ¿¡"/>
               </asp:radiobuttonlist>

               <asp:button type="submit" id= "btnSubmit" onclick= "ClickHandler" text= "°¨»çÇÕ´Ï´Ù.!"<BR>               runat="server" />

          </form>

     </body>
</html>
¡¡

Chap 7 - Q4 : ASPX ÆÄÀÏ·Î ¾ÆÁÖ °£´ÜÇÑ °¡»ó ÀüÈ­±â ÆûÀ» ÀÛ¼ºÇ϶ó. ÆäÀÌÁö¿¡´Â ÅØ½ºÆ® ¹Ú½º¿Í ¡®ÅëÈ­¡¯À̶ó´Â ¹öưÀ» »ý¼ºÇ϶ó. ÅØ½ºÆ® ¹Ú½º¿¡ ÀüÈ­¹øÈ£¸¦ ÀÔ·ÂÇϰí, 'ÅëÈ­' ¹öư¸¦ ´­·¶À» ¶§, ´ÙÀ½°ú °°Àº ÀÛ¾÷ÀÌ ÀÌ·ç¾îÁöµµ·Ï ASPX ÆÄÀÏÀ» ¼³Á¤Çϵµ·Ï Ç϶ó.

  • ÀüÈ­¸¦ °É·Á´Â ÀüÈ­¹øÈ£¸¦ È®ÀÎÇÏ´Â ¸Þ½ÃÁö¸¦ Ãâ·ÂÇ϶ó.
  • '²÷±â'¶ó´Â ¹öưÀ» Ãß°¡Çϰí, ¹öưÀÌ ´­·¯Á³À» ¶§, ÃÊ±â ÆäÀÌÁö·Î µ¹¾Æ°¡µµ·Ï Ç϶ó. À̶§ ´Ù¸¥ ÀüÈ­¹øÈ£¸¦ ÀÔ·ÂÇÒ ¼ö ÀÖµµ·Ï Ç϶ó.

A4

<%@ Page Language="VB" runat="server" debug = true %>
<script runat="server">
Sub ClickHandler(Sender As Object, E As EventArgs)
     if btnSubmit.text = "ÀüÈ­ °É±â" Then
          message.text = "ÀüÈ­ °É±â: " + number.text
          btnSubmit.text = "²÷±â"
          number.enabled = False
     else
          message.text = ""
          btnSubmit.text = "ÀüÈ­ °É±â"
          number.enabled = True
     end if
End Sub
</script>

<html>
     <head>
          <title>Phone</title>
     </head>
     <body>

          <form id=questions runat="server">
               ÀüÈ­¹øÈ£¸¦ ÀÔ·ÂÇϼ¼¿ä:<asp:textbox id=number runat="server" /><br />

               <asp:button type="submit" id= "btnSubmit" onclick="ClickHandler" text="ÀüÈ­ °É±â"< BR>                runat="server" />
               <asp:label id=message runat=server />
          </form>

     </body>
</html>
¡¡

Chap 7 - Q5 : SELECT CASE ±¸Á¶¸¦ ÀÌ¿ëÇÏ¿©, ¼¼ °³ÀÇ Æ¯Á¤ ÀüÈ­¹øÈ£¿Í ¼¼ »ç¶÷ÀÇ À̸§À» ¿¬°áÇϵµ·Ï Ç϶ó. '¿¬°á' ¹öưÀÌ ´­·¯Á³À» ¶§, È®ÀÎ ¸Þ½ÃÁö¿¡´Â ÀüÈ­¸¦ °É·Á´Â »ç¶÷ÀÇ À̸§°ú ÀüÈ­¹øÈ£°¡ Ãâ·ÂµÇ¾îÁ®¾ß ÇÑ´Ù.

A5

<%@ Page Language="VB" runat="server" debug = true %>
<script runat="server">
Sub ClickHandler(Sender As Object, E As EventArgs)
     if btnSubmit.text = "ÀüÈ­ °É±â" Then
          dim name as string
          select case(number.text)
               case "6874923"
                    name = "Jake"
               case "6874831"
                    name = "Ewan"
               case "6874624"
                    name = "Alessandro"
               case else
                    name = "<unknown>"
          end select
          message.text = name + " ¿¡°Ô " + number.text + "¹øÀ¸·Î ÀüÈ­ °É±â "
          btnSubmit.text = "²÷±â"
          number.enabled = False
     else
          message.text = ""
          btnSubmit.text = "ÀüÈ­ °É±â"
          number.enabled = True
     end if
End Sub
</script>

<html>
     <head>
          <title>Phone</title>
     </head>
     <body>

          <form id=questions runat="server">
               ÀüÈ­¹øÈ£¸¦ ÀÔ·ÂÇϼ¼¿ä:<asp:textbox id=number runat="server" /><br />

               <asp:button type="submit" id= "btnSubmit" onclick="ClickHandler" text="ÀüÈ­ °É±â"< BR>                runat="server" />
               <asp:label id=message runat=server />
          </form>

     </body>
</html>
¡¡