Class #13

backwad forwad Contents

Class #13: Web Application °³¹ß
in place May 14, 2002, last modified May 29, 2002, working ...


Server Side

MS Active Server Pages(ASP) ¼Ò°³

ASP ±â´É

ASP Example (1) - »ç¿ëÀÚ µî·Ï

ÀÔ·ÂFORM

<B>»ç¿ëÀÚ µî·Ï</B></P>
<HR>
<UL>
<LI>»ç¿ëÀÚ Login ÀÌ Áߺ¹µÇÁö ¾Êµµ·Ï ÇÒ°Í <A HREF="example02.asp">user list</A>
<LI>°ø¶õÀ» µÎÁö ¸»°Í.
<LI>passwd´Â ³ëÃâµÉ¼ö ÀÖÀ¸¹Ç·Î Æò¼Ò¾²Áö ¾Ê´Â ÀÓÀÇÀÇ ³»¿ëÀ» ³ÖÀ»°Í
</UL>
<TABLE border=0>
<FORM NAME=NEW_USER ACTION=example0302.asp METHOD=POST >
<TR><TD>user id<TD><INPUT NAME=user_id TYPE=TEXT>
<TR><TD>¼º<TD><INPUT NAME=last_name TYPE=TEXT>
<TR><TD>À̸§<TD><INPUT NAME=first_name TYPE=TEXT>
<TR><TD>¸ÞÀÏÁÖ¼Ò<TD><INPUT NAME=email TYPE=TEXT>
<TR><TD>ÈÞ´ëÀüÈ­¹øÈ£<TD><INPUT NAME=celphone TYPE=TEXT>
<TR><TD>Æнº¿öµå<TD><INPUT NAME=passwd TYPE=PASSWORD>
<TR><TD><TD><INPUT TYPE=SUBMIT value="INSERT">
</FORM>

»ç¿ëÀÚ µî·Ï

  • »ç¿ëÀÚ Login ÀÌ Áߺ¹µÇÁö ¾Êµµ·Ï ÇÒ°Í user list
  • °ø¶õÀ» µÎÁö ¸»°Í.
  • passwd´Â ³ëÃâµÉ¼ö ÀÖÀ¸¹Ç·Î Æò¼Ò¾²Áö ¾Ê´Â ÀÓÀÇÀÇ ³»¿ëÀ» ³ÖÀ»°Í
user id
¼º
À̸§
¸ÞÀÏÁÖ¼Ò
ÈÞ´ëÀüÈ­¹øÈ£
Æнº¿öµå

example0302.asp ÆÄÀÏ - ½ÇÁ¦ µ¥ÀÌŸº£À̽º¿¡ Á¢±ÙÇÏ¿© ÀÔ·Â

<%
user_id = Request("user_id")
last_name = Request("last_name")
first_name = Request("first_name")
email = Request("email")
celphone = Request("celphone")
passwd = Request("passwd")


Dim DbCon, strDbCon

Set DbCon = Server.CreateObject("ADODB.Connection")
    strDbCon = "Provider=sqloledb;Data Source=murano;Initial Catalog=MAIN;User Id=kedb;Password='';"
    DbCon.Open strDbCon

sql="INSERT INTO USERS(user_id ,last_name,first_name,e_mail,celphone, passwd) "
sql = sql + "VALUES('"
sql = sql +user_id+"', '"+last_name+"','"+first_name+"', "
sql = sql + "'"+email+"','"+celphone+"','"+passwd+"' "
sql = sql + ")"

Set Result=DbCon.Execute(sql)

response.redirect("example02.asp")
%>

ASP Example (2) -example02.asp ÆÄÀÏ - µî·ÏµÈ »ç¿ëÀÚ Ãâ·Â

<% Dim DbCon, strDbCon Set DbCon = Server.CreateObject("ADODB.Connection") strDbCon = "Provider=sqloledb;Data Source=murano;Initial Catalog=MAIN;User Id=kedb;Password='';" DbCon.Open strDbCon sql="SELECT user_id, last_name, first_name, e_mail, celphone " sql = sql+ " FROM USERS " Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, DbCon IF rs.EOF OR rs.BOF THEN response.write("<P>No user exist !") END IF Response.Write("<blockqutoe>") Response.write("<TABLE border=1 cellpadding=2 cellspacing=0>") Response.Write("<TR><TD class=TH>id<TD class=TH>name<TD class=TH>email<TD class=TH>celphone") DO WHILE NOT rs.EOF Response.Write("<TR><TD>"+CStr(rs("user_id"))+"<TD>"+CStr(rs("last_name"))+" "+CStr(rs("first_name"))+"<TD>"+CStr(rs("e_mail"))+"<TD>"+CStr(rs("celphone"))+" ") rs.MoveNext LOOP Response.Write("</TABLE>") %>

°á°ú

idnameemailcelphone
dncµµ³²Ã¶namchul@hanmail.net016-437-2305

VB Script ±â´É

Clinet Side

Clinet Side Script - Java Script

DHTML °ú CSS Class 12 ÂüÁ¶

backwad forward Contents


Knowledge & Engineering Databases (c) copyright Namchul Do, 2002