구글상단


[ASP PT] ASP로 만드는 게시판 1-1 : 공통함수는 Include File로 만들자 by 놀라운넘

 

ASP를 10년간 프로그래밍 하면서 지금까지 제작한 게시판 소스가 없다면 거짓말이겠죠.
하지만, 10년전 처음로 프로그래밍에 입문하고 놀라운넘의 스스로 힘으로 딱 한 번 만든 그 소스를 가지고 10년간 우려먹었다면 놀라지 않겠습니까?

그래서, 웹프로그램밍 과정에 있어서 게시판 프로그래밍은 기본이 되는 기술이자 고급 기술에 들어갑니다.
게시판를 소스를 응용하다 보면 기본이 되는 게시판 소스로 포탈사이트가 제작이되고, 쇼핑몰, ERP, KPI 등 수많은 시스템들이 만들어 지더군요.
또한, ASP, .NET, PHP, JSP 등 웹프로그램의 언어는 달라도 한 개 언어의 기본적인 게시판의 구조와 소스를 이해하고 제작이 가능하다면 다른 언어에서도 응용이 가능해지더군요.

이제, 10년전 풋내나던 시절에 만들어 10년간 우려먹었던 게시판 소스를 버리고, 앞으로의 놀라운넘의 기본기가 될 새로운 게시판을 제작해보려 합니다.
게시판을 만들고 싶은 분들은 놀라운넘이 하는 대로 그냥 따라 하시기 바랍니다. 질문은 사양하겠습니다. ㅋㅋㅋ~~

게시판을 작성하기전에 게시판의 구조도를 그려보겠습니다.

- Project Name : ASP로 만드는 게시판
- LIST 페이지 : 게시판 리스트가 화면에 출력되는 게시판 첫 페이지. - 일반형
  . 검색 : 검색필드를 선택하는 Select Box, 검색어를 기입하는 Text Box, 검색 Button의 구성으로 List 상단에 위치.
  . List : 한 화면에 15개의 리스트로 출력. No, 제목, 이름, 작성일, 조회수, 덧글수로 구성. 작성일 순으로 Order by
  . 페이지 : 10개 페이지 단위로 구성. 첫페이지로, 1 ~ 10, 마지막페이지로 링크로 구성.
- VIEW 페이지 : 리스트에서 선택된 글에 대한 상세보기 페이지
  . 본문 : 제목, 작성자, 작성일, 조회수, 내용, 첨부파일 순으로 화면에 나열하여 출력.
  . 덧글(REPLY) List : 내용, 작성자, 작성일, 수정 버튼, 삭제 버튼으로 구성된 덧글 List를 화면에 출력. 작성일 순으로 Order by
  . 실행 Botton : List, 수정, 삭제, 앞글, 뒷글 Botton으로 구성
- INSERT 페이지 :
  . 본문 : 계층형 게시판으로 구성하지 않고 일반형에 리플로 답변이 가능하도록 구성
    a. 제목 - Html Object : Text, DB Type : VarChar(80)
 b. 작성자 - Html Object : Text, DB Type : VarChar(20)
 c. 작성일 - Html Object : 자동입력, DB Type : DateTime
 d. 조회수 - Html Object : 기본값 0, DB Type : Int
 e. 내용 - Html Object : TextArea, DB Type : Text
 f. 첨부파일 - Html Object : File, DB Type : VarChar(200)
- UPDATE 페이지 : INSERT 페이지와 동일
- DELETE 페이지 : 해당 본문과 덧글이 동시에 삭제
- REPLY 기능
  . INSERT :
    내용 - Html Object : Text, DB Type : VarChar(200)
 작성자 - Html Object : Text, DB Type : VarChar(20)
    작성일 - Html Object : 자동입력, DB Type : DateTime
  . UPDATE : INSERT와 동일
  . DELETE : 해당 덧글 삭제
- Include File 페이지
  . DB Connection 정보
  . 공통 함수

실행 및 화면 출력 페이지를 작성전에 프로그램 뒷단에서 공통으로 쓰일 Include File, Js파일을 작성을 합니다.
특히, Include File 작성시 게시판에서 공통적으로 많이 쓰일 함수를 Include File에 작성하여 각 페이지마다 Include 시키면 프로그래밍에 시간상, 관리상 큰 효과를 가질수 있습니다.

Include File(DBConn.asp) - DB Connection 관련 함수

<!-- METADATA TYPE="typelib" NAME="ADODB Type Library" FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll"-->
<%
'-----------------------------------------------------------------------------------------
'파일명  : DBConn.asp
'제목  : DataBase 및 Function, Sub 함수 정의 파일
'작성자  : Amazing Dede
'작성일  : 2009.09.03
'주의사항 :
'-----------------------------------------------------------------------------------------
'변경이력
'2009.09.03 최초 작성
'
'
'-----------------------------------------------------------------------------------------

'-----------------------------------------------------------------------------------------
' 타이틀
'-----------------------------------------------------------------------------------------
Dim WebTitle
WebTitle = "::::: Amazing Dude'S HomePage :::::"

' 변수를 선언합니다.
Dim strcon, conn, rs, comm

' DB Connection 정보를 변수에 저장합니다.
strcon = "Provider=SQLOLEDB.1;User ID=아이디;Password=패스워드;Initial Catalog=DB명;Data Source=000.000.000.000(IP주소)"

' 여기서 부터 DB Connection, Recordset 선언과 Close 함수를 정의합니다.
'-----------------------------------------------------------------------------------------
' DB 연결
'-----------------------------------------------------------------------------------------
Sub OpenDBConnection
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.ConnectionTimeout = 6000
 conn.CommandTimeout = 6000
 conn.Open strcon
End Sub

'-----------------------------------------------------------------------------------------
' DB Close
'-----------------------------------------------------------------------------------------
Sub CloseDBConnection
 conn.Close
 Set conn = Nothing
End Sub

'-----------------------------------------------------------------------------------------
' Open RecordSet
'-----------------------------------------------------------------------------------------
Sub OpenDBRecordSet
 Set rs = Server.CreateObject("ADODB.RecordSet")
 rs.CursorLocation=adUseClient
End Sub

'-----------------------------------------------------------------------------------------
' Close RecordSet
'-----------------------------------------------------------------------------------------
Sub CloseDBRecordSet
 rs.Close
 Set rs = Nothing
End Sub

'-----------------------------------------------------------------------------------------
' Open DB Command
'-----------------------------------------------------------------------------------------
Sub OpenDBCommand
 set comm=Server.CreateObject("ADODB.Command")
End Sub

Sub CloseDBCommand
 set comm.ActiveConnection = Nothing
 set comm=Nothing
End Sub
%>


다음에 계속...

Amazing Dude' HomePage
http://www.tunningup.co.kr


이글루스 가든 - 프로그래머 최고수가 되는 길

덧글

댓글 입력 영역


[BEST] Funny baby videos

통계 위젯 (화이트)

815
81
1031671

코튜버

[TOP] KoTuber Funny videos

구글 애드센스