'Coding'에 해당되는 글 2건
- 2006.07.22 Stored Procedure(저장 프로시져) 코딩을 쉽게 하자
- 2006.07.20 Request 개체로 넘어오는 값들을 쉽게 알아내고, 코딩하자 2
Written by Ssemi™(semin Seol), www.Ssemi.net
귀차니즘에 빠진 Ssemi™의 Library 제 3탄 - SP_CodingMaker를 소개합니다.
제가 쓰는 에디터 프로그램은 EditPlus입니다.
그러다 보니 모두 하드코딩(Hard Coding)을 하게 되는데요
ASP작업시에 Command 개체를 통해서 Stored Procedure를 사용하는 코드를 작성할 때, Parameter 값을 입력하게 됩니다.
이부분은 거의 뭐 직접 작성하기 보단, Ctrl + C (복사하기) 와 Ctrl + V (붙이기)로 작성을 해나가는데요.
이게 나름대로 귀찮은 작업니다. 이걸 간편히 하고자 부분 수정만 하면 편하게 사용할 수 있게 하나 만들어 놓았었습니다.
나름대로 지저분하게 만들어 놓았던 것을 약간 스타일링(!) 하고, 코드 좀 수정(!)해서 배포합니다.
Store Procedure Coding Maker
귀차니즘의 ASPer에게 이것이 아주 도움이 되기를 희망하면서..... ^_^
후에 ASP를 실행하시면 아래와 같은 결과창이 뜨게 됩니다.
제일 아래는 DBHelper Class를 사용하는 사용자(?)를 위해 특별히(..) - 저도 요즘 써보고 있거든요;;;;
파일안에서 @RETURN_VALUE에 대한 내용을 아예 삭제시켰거든요 ^_^;
MSSQL2000에서는 @RETURN_VALUE가 제대로 안먹어서 @변수 하나 만들어서 OUTPUT으로 빼서 사용하는편이 훨씬 좋아서요!
데이터타입을 Decimal 혹은 Numeric 값을 쓸 경우 Precision 과 NumericScale 을 정의해야 하는데,
이 부분을 제가 사용한 적이 없어서 코드에 넣어두지 않았습니다.
앞으로 업데이트 할 예정이니 ^_^ 일단은 사용해주시기 바랍니다.
귀차니즘에 빠진 Ssemi™의 Library 제 3탄 - SP_CodingMaker를 소개합니다.
제가 쓰는 에디터 프로그램은 EditPlus입니다.
그러다 보니 모두 하드코딩(Hard Coding)을 하게 되는데요
ASP작업시에 Command 개체를 통해서 Stored Procedure를 사용하는 코드를 작성할 때, Parameter 값을 입력하게 됩니다.
With oCmd
.ActiveConnection = strConnect
.CommandType = 4
.CommandText = "sp_Login"
.Parameters.Append .CreateParameter("@UserID", 200, &H0001, 16, UserID)
.Parameters.Append .CreateParameter("@Password", 200, &H0001, 20, Password)
.Parameters.Append .CreateParameter("@OutError", 3, &H0002, 0)
.Execute, , 128
OutError = .Parameters("@OutError").Value
IF isNull(OutError) OR Len(OutError) = 0 Then OutError = 0 ELSE OutError = CLng(OutError) End IF
SET oRs = .Execute
.Parameters.Delete "@UserID"
.Parameters.Delete "@Password"
.Parameters.Delete "@OutError"
End With
이부분은 거의 뭐 직접 작성하기 보단, Ctrl + C (복사하기) 와 Ctrl + V (붙이기)로 작성을 해나가는데요.
이게 나름대로 귀찮은 작업니다. 이걸 간편히 하고자 부분 수정만 하면 편하게 사용할 수 있게 하나 만들어 놓았었습니다.
나름대로 지저분하게 만들어 놓았던 것을 약간 스타일링(!) 하고, 코드 좀 수정(!)해서 배포합니다.
Store Procedure Coding Maker
귀차니즘의 ASPer에게 이것이 아주 도움이 되기를 희망하면서..... ^_^
▶ 다운로드(Download)
invalid-file▶ 사용법
파일을 열어보시면 아래와 같은 부분이 있습니다. 해당 정보를 입력해주세요.'-----------------------------------------------------------
' // 디비 연결
'-----------------------------------------------------------
Dim DBSrv, DBName, DBID, DBPW
DBSrv = ""
DBName = ""
DBID = ""
DBPW = ""
'-----------------------------------------------------------
' // 객체 이름 지정
'-----------------------------------------------------------
Dim RecordSetObjectName, CommandObjectName
RecordSetObjectName = "oRs"
CommandObjectName = "oCmd"
'-----------------------------------------------------------
후에 ASP를 실행하시면 아래와 같은 결과창이 뜨게 됩니다.
파일 실행한 화면
▶ 주의사항
@RETURN_VALUE를 안쓴다는 가정하에 진행된 스크립트 파일입니다.파일안에서 @RETURN_VALUE에 대한 내용을 아예 삭제시켰거든요 ^_^;
MSSQL2000에서는 @RETURN_VALUE가 제대로 안먹어서 @변수 하나 만들어서 OUTPUT으로 빼서 사용하는편이 훨씬 좋아서요!
데이터타입을 Decimal 혹은 Numeric 값을 쓸 경우 Precision 과 NumericScale 을 정의해야 하는데,
이 부분을 제가 사용한 적이 없어서 코드에 넣어두지 않았습니다.
앞으로 업데이트 할 예정이니 ^_^ 일단은 사용해주시기 바랍니다.
Enjoy Your Coding!
2006. 7. 22. 11:03
Written by Ssemi™(semin Seol), www.Ssemi.net
개발자는 코드를 짜면서 재사용이 많은 코드들은 라이브러리로 모아두고 사용하게 됩니다.
지금부터 소개하려는 코드는 ASP를 해오면서 가장 타이핑하기 귀찮았던 form.submit() 시켰을 당시에 Request 개체로 반환되는 Form Data들을 일목요연하게 보여주는 코드가 되겠습니다. ^_^
ASP(Active Server Pages) 웹 개발에서 가장 일반적으로 수행되는 작업 중 하나는 처리를 위해 페이지 간에 데이터를 전달하는 것입니다.
FormData가 보내지는 방식에는 POST, GET의 2가지의 방식이 존재합니다.
Request 개체는 각각의 방식에 따라 Form, QueryString 이라는 컬렉션(Collection)이 존재합니다.
POST 방식으로 보냈을 시에는 Request.Form 을 통해 받게 됩니다.
GET 방식으로 보냈을 시에는 Request.QueryString 을 통해 받게 됩니다.
물론 Request 개체만을 통해서 POST, GET의 구분 없이 받을 수도 있습니다.
다음 예제를 살펴보기로 합시다.- ex1.htmForm, QueryString 으로 구분해 받는 이유중 가장 중요한 2가지는 보안과 구분입니다.
<html>
<head>
<title>FormData GET / POST Example</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr" />
</head>
<body>
<form action="getData.asp" method="GET" id="form1" name="form1">
Name : <input type="text" id="firstName" name="firstName" size="10">
<br>
<input type="submit" value="Submit">
</form>
</body>
</html>
- getData.asp
<%
' method="GET" 방식일 경우
Response.Write Request.QueryString("firstName")
' method="POST" 방식일 경우
Response.Write Request.Form("firstName")
' GET, POST 구분 없이 받을 경우- 컬렉션을 사용안함
Response.Write Request("firstName")
%>
아래 예제는 구분을 보여줍니다- ex2.htm
<html>
<head>
<title>FormData GET / POST Example</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr" />
</head>
<body>
<form action="getData.asp?firstName=test" method="POST" id="form1" name="form1">
Name : <input type="text" id="firstName" name="firstName" size="10">
<br>
<input type="submit" value="Submit">
</form>
</body>
</html>
- getData.asp
<%
Response.Write Request.QueryString("firstName") ' test가 출력
Response.Write "<br />"
Response.Write Request.Form("firstName") ' input text에 입력한 값이 출력
%>
어떤가요? 이해가 조금은 가시는지요? 막간을 이용한 FORM-Data에 대한 설명이었습니다.
자~ 위의 예제에서 느끼게 되는 포스를 느끼게 되었는지요?
<input> 태그를 통해 Form-data로 넘기는 값을 모두 getData.asp 라는 소스파일에서 각각 Request("넘어오는값") 으로 받게 됩니다.
그런데 만약 <input>태그가 10개가 넘어간다면? 혹은 20개, 30개, .......가 된다면??
그럴때 지금부터 설명하는 코드 생성 프로시져가 빛을 발하게 됩니다.
Form-Data Check Procedure
지금부터 설명하는 프로시져는 여러분들의 반복되는 Form-data를 넘기는 과정의 ASP코딩을 한결 쉽고 편하게 도와드릴 것입니다.
본 프로시져는 3개로 구성되어져 있습니다.
- Request.Form Check Procedure
- Request.QueryString Check Procedure
- Request.Cookies Check Procedure
▶ 사용법
아래 코드를 적당한 곳(라이브러리 파일 / 공통 include 함수 파일 등)에 넣어주시고, Request를 써야만 하는 곳.즉, Form-data를 받는 파일(FORM Action="파일이름")에다가 아래 코드를 넣으면 됩니다.
- formchk()
- Response.End
▶ 코드
' Request.Form Check
Sub Formchk()
Dim key
For Each key in Request.Form
Response.Write " Dim " & key & "<BR>"
Next
For Each key in Request.Form
Response.Write key & " = " & "Trim(Request.Form("""& key &""")) " & "<BR>"
Next
Response.Write "<HR>"
For Each key in Request.Form
Response.Write key & " = " & Request.Form(key) & "<BR>"
Next
Response.Write "<HR>"
For Each key in Request.Form
Response.Write key & " = CheckWord(" & key & ")<BR>"
Next
End Sub
' Request.QueryString Check
Sub Querychk()
Dim key
For Each key in Request.QueryString
Response.Write " Dim " & key & "<BR>"
Next
For Each key in Request.QueryString
Response.Write key & " = " & "Trim(Request.QueryString("""& key &""")) " & "<BR>"
Next
Response.Write "<HR>"
For Each key in Request.QueryString
Response.Write key & " = " & Request.QueryString(key) & "<BR>"
Next
Response.Write "<HR>"
For Each key in Request.QueryString
Response.Write key & " = CheckWord(" & key & ")<BR>"
Next
End Sub
' Request.Cookies Check
Sub Cookiechk()
Dim key, dickey
For Each key in Request.Cookies
Response.Write " Dim " & key & "<BR>"
Next
For Each key in Request.Cookies
IF Request.Cookies(key).HasKeys Then
For Each dickey in Request.Cookies(key) '딕셔너리에 있는 모든 키들을 검색하기 위해 또 다른 For Each 를 사용
Response.Write "(" & key & ")(" & dickey & ") = " & Request.Cookies(key)(dickey) & "<BR>"
Next
ELSE
Response.Write key & " = " & Request.Cookies(key) & "<BR>"
End IF
Next
Response.WRite "<HR>"
For Each key in Request.Cookies
IF Request.Cookies(key).HasKeys Then
For Each dickey in Request.Cookies(key)
Response.Write dickey & " = Request.Cookies("""& key &""")("""& dickey &""") " & "<BR>"
Next
ELSE
Response.Write key & " = Request.Cookies("""& key &""")" & "<BR>"
End IF
Next
End Sub
▶ 추가 코드
아래 코드는 문자열 Replace코드입니다. Check Procedure와 같이 쓰입니다Request로 받은 Form-data를 Replace처리합니다.
'CheckWord
Function CheckWord(str)
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, "'", "''")
str = Replace(str, """", Chr(34))
str = Replace(str, "|", Chr(124))
CheckWord = str
End Function
▶ 출력 결과
' Request.Form Check Procedure Execute
Dim userid
Dim password
Dim username
Dim birth_year
Dim birth_month
Dim birth_day
Dim birth_solar
userid = Trim(Request.Form("userid"))
password = Trim(Request.Form("password"))
username = Trim(Request.Form("username"))
birth_year = Trim(Request.Form("birth_year"))
birth_month = Trim(Request.Form("birth_month"))
birth_day = Trim(Request.Form("birth_day"))
birth_solar = Trim(Request.Form("birth_solar"))
userid = ssemi
password = 1234
username = 쎄미
birth_year = 1983
birth_month = 10
birth_day = 6
birth_solar = y
userid = CheckWord(userid)
password = CheckWord(password)
username = CheckWord(username)
birth_year = CheckWord(birth_year)
birth_month = CheckWord(birth_month)
birth_day = CheckWord(birth_day)
birth_solar = CheckWord(birth_solar)
▶ 마치며
어떻습니까? 좀 더 수월하게 좀 더 편하게 코드를 만들 수 있었습니다.물론 이 코드와 비슷한 기능을 하는 프로시져 또는 함수를 구현하신 분이 많으셨으리라 생각합니다.
필요한 부분은 여러분들에 맞게 적절하게 조정해서 써야 하겠습니다.
이 코드들은 실제로 제가 가장 많이 쓰는 프로시져들 중에 하나입니다.
웹개발을 일을 하면서 가장 중요한 것은 시간과의 싸움입니다. ^_^
시스템 프로그램 개발에서 각 코드들을 컴포넌트화 시켜 개발시간을 단축시키는 것과 같이,
웹 개발도 시간을 단축시킬 수 있는 방법을 많이 찾아서 알게 되면 좋겠습니다.
2006. 7. 20. 05:38
Recent comment