Contents
Class #13: 웹 데이타베이스 응용시스템 개발
in place June 2, 2002, last modified June 2, 2002, working ...
MS Active Server Pages(ASP) 소개
Server Side Script
- CGI 방식중 Web Server가 요구되는 파일중 특정 Extension (예 *.asp)를 가진 파일을 Script 파일로 인식하고 이를 Interpret 하는 방식 (그림 13-3 참조)
- 많이 쓰는 언어로는 MS Active Server Pages(ASP), Java Server Pages(JSP) 등이 있다.
- ASP 경우 화일 확장자가 asp 인경우 IIS 확장(Frontpage Server Extension)에서 이를 Interpret 함.
- 문법 형식은 Visula Basic과 유사한 VB Script를 사용 - Function도 같은 형식으로 지원
- CGI 및 Session을 위해 몇가지 특별한 객체 제공 - Request, Response, Application, Session
- Database Connection을 위해 특별한 객체 제공 - ADO 객체 제공
- 외의 많은 3rd Party Component를 이용하여 쉽게 Web Application 개발 가능 - Upload Components
ASP Architecture
그림 13-1 ASP를 이용한 동적 HTML 서비스
ASP 개발을 지원하기 위한 Visual Studio 내부의 IDE
ASP 기능
- Request - FORM의 INPUT Tag에서 입력된 Parameter 값을 Return
- Response - Web 화면에 출력
- Database Connections - Database Connection, SQL 실행, 결과 Record Set Return
- Session 변수 - Session 이 진행되는 동안 해당 변수의 값을 서버에서 저장관리해 줌
- Server Component - 서버의 여러가지 일을 처리하는 Componet - Upload, Tree등
ASP Example (1) - 사용자 등록
- HTML Form file 과 연동된 ASP 파일 - Request 객체
- 데이타베이스 Connection - ADO 객체
입력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는 노출될수 있으므로 평소쓰지 않는 임의의 내용을 넣을것
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 파일 - 등록된 사용자 출력
- ADO 객체를 이용한 Query 관리
- Response 객체를 이용한 화면 출력
<%
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>")
%>
결과
| id | name | celphone | |
| dnc | 도남철 | namchul@hanmail.net | 016-437-2305 |
ASP Example (3) - 제품구조 출력
- Recursive Query
- Server Side Component - Tree component
제품구조를 나타내는 데이타베이스 구조
부품 목록 PART_MASTER Table
| OID | part_no | part_name |
| 1 | A | table |
| 2 | B | board |
| 3 | C | leg |
| 4 | D | mount |
| 5 | E | foot |
부품간의 관계 - 제품 구조 STRUCTURE Table
| OID | parent | child |
| 1 | 1 | 2 |
| 2 | 1 | 3 |
| 3 | 3 | 4 |
| 4 | 3 | 5 |
| A | ||
| - | B | |
| - | C | |
| - | - | D |
| - | - | E |
제품구조에 관한 Query
- A 부품의 자식 노드를 찾는 Query
SELECT c.part_no FROM a.PART_MASTER a, STRUCTURE b, PART_MASTER c
WHERE a.part_no = 'A' AND a.OID = b.parent AND b.child = c.part_no - A 부품의 모든 하위 노드를 찾는 Application
- A 부품의 자식 노드를 찾는 Query를 Recursive하게 이용
FUNCTION print_node(Parent_part)
{
PRINT Parent_part;
RECORD_SET = SELECT c.part_no FROM a.PART_MASTER a, STRUCTURE b, PART_MASTER c
WHERE a.part_no =Parent_part AND a.OID = b.parent AND b.child = c.part_no;
FOR RECORD_SET[i]{
print_node(RECORD_SET[i])
}
}
Server Side Component
- 3rd Party의 서버 사이드 Componet 추가
- Active X Componet 를 이용한 Tree 메뉴 생성
- 데이타베이스에서 제품구조를 Query한 후 결과로 Tree 구조 생성
출력 예
ASP 프로그램
<%
'====================================
' Navigate without Effectivity
'====================================
SUB Tree_Navi(part_no,part_version,part_name,struct_str,name_str,off_img,on_img,sibling_count,qty, oid, edge_id, vpmdb)
off_img= off_img & "7"& ";"
on_img= on_img & "7"& ";"
name_str = name_str & part_no &" "&part_version& " "&part_name&";"
query = "SELECT c.part_no, c.part_version, c.part_name, b.qty, b.child_oid, b.oid "
query = query + " FROM PART_ASSY a, REL_ASSY b, PART_ASSY c "
query = query + "where a.oid = '"+oid+"' "
query = query + " and a.oid =b.parent_oid and b.child_oid =c.oid "
'Response.Write(" " + query + " ")
Call db_connection(vpmdb)
Set rs = vpmdb.execute(query)
sibling_num = 0
Do Until rs.EOF
sibling_num = sibling_num+1
length=len(cstr(sibling_num))
temp = String(4-length,"0")
new_sibling_count = sibling_count + temp+cstr(sibling_num)
struct_str = struct_str& new_sibling_count & ";"
CALL Tree_Navi(rs(0),rs(1),rs(2),struct_str, name_str,off_img,on_img, new_sibling_count, CStr(rs(3)), CStr(rs(4)), Cstr(rs(5)) ,vpmdb)
rs.MoveNext
loop
rs.close
Set rs = Nothing
END SUB
'====================================
' END of SUBROUTINE
'====================================
oid=request("oid")
part_no=request("part_no")
part_version=request("part_version")
part_name=request("part_name")
struct_str="10;"
name_str= ""
off_img = ""
on_img = ""
Call db_connection(DbCon)
Call Tree_Navi(part_no,part_version,part_name,struct_str,name_str,off_img,on_img,"10"," ",oid," ",DbCon)
%>
<HTML>
<HEAD>
<SCRIPT language=Javascript>
<!--
//-->
</SCRIPT>
<!-- 오른쪽 버튼 클릭시 -->
<SCRIPT LANGUAGE=javascript FOR=jwTB EVENT=OnItemRClicked(menuID)>
<!--
Node = document.frm.jwTB.GetSelNodeCode();
Name = document.frm.jwTB.GetSelNodeName();
/* extracts part no, version from displayed labels */
delim_loc = Name.indexOf(" ");
/* env = Name.substr(0,1); */
parent_part_no_ = frm.parent_part_no.value;
parent_part_version_ = frm.parent_part_version.value;
part_no=Name.substring(0,delim_loc);
part_version =Name.substr(delim_loc+1,3);
switch (menuID)
{
case 1000: //Copy
alert ("Same function is implemented in the part list window.\r\n Please use that function.");
break;
case 1001: //Add
alert ("Same function is implemented in the part list window.\r\n Please use that function.");
break;
case 1002: //Cut
window.open ("../edit/CutPart.asp?part_no="+part_no+"&part_version="+part_version+"&parent_part_no="+parent_part_no_+"&parent_part_version="+parent_part_version_,null,"height=200,width=400,status=yes,toolbar=no,menubar=no,location=no");
break;
case 1003: //Replace
window.open ("../edit/ReplacePart.asp?part_no="+part_no+"&part_version="+part_version+"&parent_part_no="+parent_part_no_+"&parent_part_version="+parent_part_version_,null,"height=200,width=400,status=yes,toolbar=no,menubar=no,location=no");
break;
}
//-->
</SCRIPT>
<SCRIPT language=Javascript FOR=jwTB EVENT=NodeClicked(Node,Name)>
<!--
/* extracts part no, version from displayed labels */
delim_loc = Name.indexOf(" ");
part_no=Name.substring(0,delim_loc);
part_version =Name.substr(delim_loc+1,3);
parent.doc.location = "../search/StrBrowsePart.asp?env=ASSY&part_no="+part_no+"&part_version="+part_version;
//-->
</SCRIPT>
</HEAD>
<body topmargin="0" leftmargin="0">
<FORM name="frm">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="263" valign="top" bgcolor="#FFFFFF" colspan="2">
<OBJECT CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<PARAM NAME="LPKPath" VALUE="../bin/jwTreeBar_ETRI.lpk">
</OBJECT>
<OBJECT id=jwTB codeBase="../bin/jwTreeBar_ETRI.cab#version=1,0,0,18"
classid="clsid:742EFB3F-4361-42F3-89C9-5DF104EC8245" width=98% height=300>
<param name="NodeCode" value="<%=struct_str%>">
<param name="NodeName" value="<%=name_str%>">
<param name="OffImg" value="<%=off_img%>">
<param name="OnImg" value="<%=on_img%>">
<param name="TextColor" value="0,0,0">
<param name="BgColor" value="255,255,255">
<param name="MenuName" value="copy part;-;add part;cut part;replace parts;">
<param name="IsRMenu" value="true">
</OBJECT>
</td>
</tr>
</table>
<INPUT TYPE=HIDDEN NAME=parent_part_no VALUE=<%=part_no%>>
<INPUT TYPE=HIDDEN NAME=parent_part_version VALUE=<%=part_version%>>
</FORM>
</body>
</html>
Clinet Side Script - Java Script
Client Side Script 란
- Web Server에 파일 형태로 저장되어 있다가 Client의 요청에 의하여 Client 쪽에 Download되어 실행되는 Script Language
- Java Applet과 비교 - Applet은 Binary Code가 Download되어 실행
- Web Browser 내에 해당 언어에 대한 Interpreter가 설치되어 이를 해석하여 실행
- Server 연결이 필요없는 Client 쪽의 Process를 담당할 수 있어 부하 분산의 효과가 있음
- 종류로는 Java Script, J Script, VB Script 등이 있음
그림 13-4 Client Side Script
Java Script 란
- Web Server에 파일 형태로 저장되어 있다가 Client의 요청에 의하여 Client 쪽에 Download되어 실행되는 Script Language
- Java Applet과 비교 - Applet은 Binary Code가 Download되어 실행
- Web Browser 내에 해당 언어에 대한 Interpreter가 설치되어 이를 해석하여 실행
- Server 연결이 필요없는 Client 쪽의 Process를 담당할 수 있어 부하 분산의 효과가 있음
- 종류로는 Java Script, J Script, VB Script 등이 있음
%>
<HTML>
<script language="javascript">
function ch_input() {
if((form1.path.value=="")||(form1.title.value==""))
{
alert("제목과 upload할 파일 이름을 입력해야 합니다.")
form1.path.focus()
}
else
{
form1.submit()
}
}
</script>
<HEAD>
</HEAD>
<BODY>
<blockquote>
<TABLE border=0 cellpadding=4 cellspacing=1 bgcolor=gray width=80%>
<TR><TD class=TH>이름<TD><%=CStr(rs("std_name"))%>
<TD class=TH>학번<TD><%=std_id%>
<TD class=TH>과목<TD>
<%
rs.close
query = "SELECT a.class_no, a.class_name, b.id FROM CLASS a, COURSE b, STUDENT c "
query = query + "WHERE c.std_id='"+std_id+"' AND b.std_id = c.std_id "
query = query + " AND b.class_id = a.class_id "
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open query, DbCon
IF rs.EOF OR rs.BOF THEN
response.write("<P>존재하지 않는 수업입니다.")
END IF
Response.Write("<FORM method=post action=upload.asp id=form1 name=form1 ENCTYPE='multipart/form-data'>")
Response.Write("<SELECT NAME=course_id>")
DO WHILE NOT rs.EOF
Response.Write("<OPTION value="+CStr(rs("id"))+">"+CStr(rs("class_name"))+"("+CStr(rs("class_no"))+")")
rs.MoveNext
LOOP
Response.Write("</SELECT>")
%>
</TABLE>
<P>
과목란에서 해당하는 <B>과목</B>을 선택한 후,
<BR>숙제의 제목을 입력하고 파일을 Upload 하세요.
<TABLE border=0>
<TR><TD>
<TR><TD>제목: <TD><INPUT TYPE=TEXT width=100 cols=100 name=title> (100자이하)
<TR><TD>파일: <TD><INPUT TYPE=FILE name=path id=path>
<TR><TD><TD><INPUT TYPE=button value='입력' id=submit1 name=submit1 onclick=ch_input()>
</FORM>
</TABLE>
</blockquote>
<% call footnote() %>
</BODY>
</HTML>
DHTML 과 CSS Class 12 참조
Knowledge & Engineering Databases (c) copyright Namchul Do, 2002