- WireFrame.ASP 란?
-
Classic ASP 에서 사용할 수 있는, MVC Pattern 의 유사 구현(설명이 다소 모호한 것은, 구현도 다소 모호해서입니다)입니다
저의 개인적인 코딩습관이 반영되어 있는데다 퍼포먼스도 안 좋은 탓에, 일반적인 웹서비스 개발 적용에는 심히 무리가 있고,
WireFrame 이라는 이름이 말해주듯, 실제 비즈니스 로직의 구현에 들어가기 전, 간단한 Prototype 제작이 주 용도입니다만...
그마저 간단하다 하기엔 좀...
- 특징
-
Controller, Model, View 가 있습니다
약간의 트릭으로 ASP 에서 Pretty Url을 구현합니다
DataBase 의 Table 과 1:1 로 매칭하는 Model 들을 손쉽게 구현합니다
무려 자체 개발(이라 쓰고 '삽질'이라 읽는다)한 js 기반 템플릿 엔진이 있습니다
- 그럼 도대체 어떻게?
-
/wireframe/index.asp 가 있다고 칩시다
index.asp 에 필요한 라이브러리를 include 하고, Action 에 사용할 Method 구현 후 RouteTable 에 등록하면 끝
대충 아래와 같은 코드
<![CDATA[<!--#include file="lib/lib.all.asp"-->
<%
Sub Main()
Response.Write "main"
End Sub
Sub Hello()
Response.Write "hello world"
End Sub
Sub SayHello()
Response.Write "hello "
Response.Write Controller.GetParam(0)
End Sub
'--Controller의 DefaultAction을 지정
Controller.DefaultAction = "Main"
'--RouteTable 에 Action 과 Url Pattern 을 등록
Controller.Map.Add "SayHello", "hello", "([a-z0-9_]+)" 'QUERY_STRING 이 "hello/asp" 인 경우 실행됨
Controller.Map.Add "Hello", "hello", "" 'QUERY_STRING 이 "hello/" 인 경우 실행됨
Controller.Init
%>]]>
기타 url 에 따른 실행 결과
http://yoursite.com/wireframe/index.asp => "main" 출력
http://yoursite.com/wireframe/index.asp?hello/ => "hello world" 출력
http://yoursite.com/wireframe/index.asp?hello/asp => "hello asp" 출력
http://yoursite.com/wireframe/index.asp?hello => hello 뒤에 / 가 없으므로 "main" 출력
http://yoursite.com/wireframe/index.asp?some/ => some 은 RouteTable 에 없으므로 "main" 출력
만약 index.asp 가 IIS 설정상 기본문서라면 url 은 좀 더 짧아집니다
http://yoursite.com/wireframe/?hello/asp -> "hello asp" 출력
- 이건 그냥 index.asp 에서 QUERY_STRING 검사 후 분기만 시켜주는거잖아...
-
예 맞습니다.
Server.Execute 나 Server.Transfer 해주면, 물음표만 제외하면 그럭저럭 이쁜 모양의 url 을 유지한 채 원하는 화면을 보여줄 수가 있습니다
더군다나 그정도 일은 위와 같은 음울한 코드의 도움없이도 손쉽게 가능한 일이지요
아... 나는 또 삽질을 했던 것인가... 하지만 저는 심하게 긍정적인 개발자이므로, 이왕 시작한 삽질 좀 더 파보기로 했습니다
- Data 까지 가져와보자
-
System.Data.DataSet, System.Data.DataTable... 애초에 이것들을 몰랐다면 얼마나 마음 편했을까요
ADODB.Recordset 만으로도 행복한 나날을 보냈었던, 과거의 한 때가 그리워 지는군요
하지만 저는 근성 있는 개발자이므로, DataSet 및 DataTable 도 구현(이라 쓰고, '얼추 비슷하게 만들기'라 읽는다)해주기로 했습니다
이는 js 로 이미 구현한 바도 있고, 히딩크님의 Recordset Helper 도 있으므로 어려운 것만은 아니었습니다
그 결과물에 대한 용례는 대충 아래와 같습니다
<![CDATA['MS SQL에서 다중레코드셋 반환
Set rs = db.Execute("SELECT * FROM TABLE1;SELECT * FROM TABLE2;",,adCmdText)
Set ds = new DataSet
ds.Load(rs) '레코드셋들을 GetRows 로 배열에 저장합니다
Set rs = Nothing
Response.Write ds(0,0,0) '첫번째 Recordset의 첫행 첫열을 출력합니다
Response.Write ds(1,1,0) '두번째 Recordset의 두번째행 첫열을 출력합니다
Set ds = Nothing]]>
그러나, 아무리 Prototype 이라도 Paging은 필요한 법. 상황에 따라 바뀌는 페이징 쿼리는 왜 이리도 귀찮은 것인지...
Table 명만 넘겨주면 그냥 쭉 뽑아쓸 수 없을까... 그래서 또 다시 시간을 투자 아래와 같은 모양새까지 이르게 되었습니다
<![CDATA[Set tables = BaseSqlModel.CreateInstance("TABLES","INFORMATION_SCHEMA")
Set dt = tables.Where("TABLE_SCHEMA!='INFORMATION_SCHEMA'").Where("TABLE_TYPE='BASE TABLE'").Select("TABLE_NAME").ToPagedList(10, 1)
Response.Write "Total " & dt.VirtualCount & " rows<br>"
For i = 0 To dt.Count - 1
Response.Write dt(i, "TABLE_NAME")
Response.Write "<br>"
Next
Set dt = Nothing]]>
BaseSqlModel은 Select, Where, OrderBy, GroupBy, Take 등의 쿼리문을 조립하는 method 와, Single, ToList, ToPagedList, ToDataRow 등의 Data 를 불러오는 method 를 가지고 있습니다
sql 관련 method 호출 시, 내부의 queryParams 에 select, where , order by 절을 미리 준비해두었다가, ToList, ToPagedList 등을 호출할 때 쿼리문을 조합하여 DataBase 에 질의하는 방식입니다
하지만 이것만으로는 무언가 부족한 경우가 있습니다
이를테면, 로그인 관련 테이블과 매칭하는 Logins 라는 Model 이 있는 경우, 로그인 정보의 조회 뿐만 아니라, 로그인 프로세스 또한 Logins 의 중요한 요소가 되어야 하기 때문이죠
이런 경우를 위해 BaseSqlModel을 확장 가능하록 만들어 보겠습니다
해당 웹어플리케이션에 사용될 Model 들을 모두 models.asp 에 기술해두었다고 칩시다
<![CDATA[
-- models.asp --
<script runat="server" language="jscript">
var Models = {};
Models.Logins = BaseSqlModel.Constructor(["LOGINS","INFORMATION_SCHEMA"],{
Login : function(id, pw) {
this.Reset(); //기존 queryParams 리셋
this.Where("login_id='" + String(id).replace(/'/g,"''") + "'");
if(this.Count() == 0) {
return 101; //아이디 없음
}
if(this.Select("login_pw").Single().login_pw != pw) {
return 102; //비밀번호 불일치
}
return 0;
}
});
...
</script>
-- index.asp --
<!--#include file="models.asp"-->
<object runat="server" id="db" progid="adodb.connection"></object>
<%
Sub Login()
Dim logins, return_value
db.Open Application("ConnectionString")
Set logins = Models.Logins()
return_value = logins.Login(Request.Form("id"), Request.Form("pw"))
Set logins = Nothing
db.Close
If return_value > 0 Then
Response.Write "로그인 실패. err code-" & return_value
Else
Response.Write "로그인 성공"
End If
End Sub
Controller.DefaultAction = "Index"
'<form action="http://yoursite.com/wireframe/?login/" ... 인 경우 Login 이 실행되게 Controller 에 Action 등록
Controller.Map.Add "Login", "login", ""
Controller.Init
%>]]>
위 코드에서 중요한 부분은 BaseSqlModel.Constructor 입니다
유연한 확장을 위해 BaseSqlModel 은 jscript 로 구현되어 있는데, BaseSqlModel.Constructor 부분을 살펴보자면...
<![CDATA[function BaseSqlModel(table, owner, withoutSchema){
...
};
// asp 의 vb 스크립트에서 Set model = new BaseSqlModel("table", "owner", True) 처럼 생성 하면 Syntax 오류이므로 아래와 같이 static 생성자를 하나 만들어 줌
BaseSqlModel.CreateInstance = function(table, owner, withoutSchema) {return new BaseSqlModel(table, owner, withoutSchema);}
BaseSqlModel.Constructor = function(initArgs, extend) {
return (function() {
//확장에 사용할 객체가 없다면 비어있는 객체 생성
extend = extend || {};
//일단 BaseSqlModel instance 생성 후, 생성된 instance 에 extend 의 속성,함수를 복사한 후, 확장된 BaseSqlModel 반환
var model = BaseSqlModel.CreateInstance.apply(null, initArgs);
for(var prop in extend)
model[prop] = extend[prop];
return model;
});
}]]>
주의할 점은, Constructor 가 instance 를 생성해서 반환하는 것이 아니고, 미리 주어진 인자를 이용해 instance 를 생성할 수 있는 함수를 반환하는 점입니다
- 그런데, 불러온 Data 는 어떻게 보여주지?
-
이제 Controller 의 Action 으로 지정한 함수 내부에서, Data 도 비교적 손쉽게 가져올 수 있게 되었습니다(라기 보다는 그렇다고 해둡시다)
Server.Execute 나 Server.Transfer 사용시, 변수를 넘겨주는 것은 거의 불가능하므로 일단 논외.
Sub Index 의 내부에서 <!--#include 를 사용해도 되지만, 이왕 Model 비스므리 까지 한거 View 까지 해보자...
그래서 두게 된 자충수가 Template engine 이었으니.(어찌된게 이놈의 삽은 한번 잡으면 놓을 수가 없는것인가)
<![CDATA[Set dt = BaseSqlModel.CreateInatance("TABLES", "INFORMATION_SCHEMA").Where("TABLE_SCHEMA='dbo'").ToList() 'loop 로 돌려줄 Data 가져오기
Helper.Template.Execute "view/index.htm", dt 'view/index.htm 에 ViewData 로 dt 할당 후 변환 실행
Set dt = Nothing
-- view/index.htm 내용 --
......
<table>
<caption><%= ViewData.Count %> rows</caption>
<!--INFORMATION_SCHEMA.TABLES 목록 조회-->
<% for(var i = 0; i < ViewData.Count; i++) { %>
<tr>
<td><%= i %></td>
<td><%= ViewData(i,"TABLE_NAME") %></td>
</tr>
<% } %>
</table>
<!--Request.ServerVariables 정보 표시-->
<dl>
<% Helper.Iterate(Request.ServerVariable, function(key,val){ %>
<dt><%= key %></dt><dd><%= val %></dd>
<% }); %>
</dl>
...]]>
템플릿 구현이 바뀌었습니다
기존의 문자열 치환 방식에서, jscript asp 구문 eval 방식으로 변경되었습니다
<% for(var i = 0; i < 10; i++){ %>
The number is <%= i %>
<% } %>
Helper.Template 에서 "<% ... %>" 부분을, 친절한 정규식씨의 도움을 얻어 아래와 같이 jscript syntax 로 변환합니다
for(var i = 0; i < 10; i++){
Response.Write("The number is ");
Response.Write(i);
}
그리고, 위의 변환된 구문을 jscript 의 eval 함수로 한방에 실행.
jscript 구문의 무한 지원이라는 득이 있는 반면, 할당한 변수만 접근가능하다는 템플릿의 일반적인 규칙에서는 벗어나게 됐습니다.
master, detail view 하에서 원활한 변수활용을 위해, <script runat="server"></script> 구문을 사용하며,
템플릿 엔진에서 번역하는 순서는 다음과 같습니다
1. master page 의 script runat="server" 구문 실행
2. detail page 의 script runat="server" 구문 실행
3. master page 의 content place holder 에 detail page 의 content 내용 대입
4. <% %> 구문이 포함된 평문 실행
하지만 여전히 통채로 eval 처리하기 때문에 view template 에서 오류가 나는 경우 디버깅하기가 매우 어렵습니다
<![CDATA[--master page의 내용--
<script runat="server">
this.title = "WebSite Title";
</script>
<%= this.title %>
Start Content
<asp:contentplaceholder id="content" />
End Content
--detail page의 내용--
<script runat="server">
this.title += " - Page Title";
</script>
<asp:content contentplaceholderid="content">
Detail Content
</asp:content>
--번역 결과--
this.title = "WebSite Title";
this.title += " - Page Title";
Response.Write(this.title);
Response.Write("\r\nStart Content\r\n");
Response.Write("\r\nDetail Content\r\n");
Response.Write("End Content");
--실행 결과--
WebSite Title - Page Title
Start Content
Detail Content
End Content
* master page 와 detail page 의 this 는 비어있는 js Object 이기 때문에, 멤버를 런타임에 선언만 해주면 master, detail 양쪽에서 모두 공유 가능합니다
]]>
- 실제 Model 활용은 어떻게?
-
그럼 실제 모델을 설계하고 활용해보겠습니다.
아래와 같은 테이블들이 있습니다
Table : wireframe.Board
| Seq |
| Name |
Table : wireframe.Article
| Seq |
| BoardSeq |
| Title |
| Content |
| Name |
| Password |
딱 봐도 wireframe.Board.Seq 와 wireframe.Article.BoardSeq 가 1:n 관계가 있겠군요
모델을 설계한다고 치면,
wireframe.Board => Models.Boards
wireframe.Board 의 1 Row => Models.Boards.Single
wireframe.Article => Models.Articles
wireframe.Article 의 1 Row => Models.Articles.Single
위와 같이 나오겠네요
그리고, 1 번 게시판에 속한 게시물의 목록을 뽑자면, Models.Articles.Where("BoardSeq=1").ToList 과 같이 되겠군요
그럼 Set board = Models.Boards().Where("Seq=1").Single() 과 같이 특정게시판의 정보를 불러올 때,
연관된 게시물 정보도 함께 가져오려면, Models.Boards.Single 을 override 하면 되겠구나...
대충 이런 시나리오가 나옵니다
<![CDATA[--models.asp--
var Models = {
Boards : BaseSqlModel.Constructor(["Board","wireframe"],{
Single : function(){
var obj = this.base.Single();
obj.Articles = function(){return Models.Articles().Where("BoardSeq=" + this.Seq);}
return obj;
}
})
, Articles : BaseSqlModel.Constructor(["Article","wireframe"],{
Single : function(){
var obj = this.base.Single();
obj.Board = function(){return Models.Boards().Where("Seq=" + this.BoardSeq).Single();}
return obj;
}
})
}
--index.asp--
Controller.Map.Add "ListArticles", "list", "(\d+)"
Controller.Map.Add "ViewArticle", "view", "(\d+)"
.....기타 설정......
Controller.Init
--controllers.asp--
Sub ListArticles()
-- ?list/[board_seq] 인 경우 실행됨
Dim boardSeq, board
boardSeq = Controller.GetParam(0)
Set board = Models.Boards().Where("Seq=" & boardSeq).Single()
Helper.View "view/list.asp", board
End Sub
Sub ViewArticle()
-- ?view/[article_seq] 인 경우 실행됨
Dim articleSeq, article
articleSeq = Controller.GetParam(0)
Set article = Models.Articles().Where("Seq=" & articleSeq).Single()
Helper.View "view/view.asp", board
End Sub
--view/list.asp--
<script runat="server">
var articles = ViewData.Articles().ToPagedList(10, 1)
</script>
<strong><%= ViewData.Name %></strong>
<ul>
<% for(var i = 0; i < articles.Count; i++) { %>
<li>
<a href="<%= Controller.GetActionUrl("ViewArticle", articles(i, "Seq")) %>"><%= articles(i, "Title") %>
<em>written by <%= articles(i, "Name") %></em></a>
</li>
<% } %>
</ul>
--view/view.asp--
<script runat="server">
var board = ViewData.Boards().Single();
</script>
<strong><%= board.Name %></strong>
<dl>
<dt>Seq</dt>
<dd><%= ViewData.Seq %></dd>
<dt>Title</dt>
<dd><%= ViewData.Title %></dd>
<dt>Content</dt>
<dd><%= ViewData.Content %></dd>
<dt>Name</dt>
<dd><%= ViewData.Name %></dd>
<dt>Password</dt>
<dd><%= ViewData.Password %></dd>
</dl>
<a href="<%= Controller.GetActionUrl("ListArticles", board.Seq) %>">Back to list</a>
]]>
|