<%
'-----------------------------------------------------
'Description :
'Notice :
'Filename : incHeader.asp
'Creator : Jong-Ho Lee
'DateTime : 2002-12-26
'-----------------------------------------------------
%>
<% 'DataBase ClassFile, Style, Script Include %>
<% 'DataBase ClassFile Include %>
<%
'-----------------------------------------------------
'Description : This Class File is Used For Board
'Notice :
'Filename : clsBoard.asp
'Creator : Jong-Ho Lee
'DateTime : 2003-01-09
'
'Class Example Code:
'
'
'
'-----------------------------------------------------
class clsBoard
'Board variable
Private m_BoardID
Private m_Boardname
Private m_BoardDesc
Private m_BoardAdminID
'Error variable
Private m_TotalItem
Private m_TotalPage
Private m_FileValid
Private m_FileSize
Private m_AnswerValid
Private m_ReadValid
Private m_WriteValid
Private m_RegDate
Private m_BlockPage
Private m_ListPage
Public Property Get BoardID()
BoardID = m_BoardID
end Property
Public Property Get BoardName()
BoardName = m_BoardName
end Property
Public Property Get BoardDesc()
BoardDesc = m_BoardDesc
end Property
Public Property Get BoardAdminID()
BoardAdminID = m_BoardAdminID
end Property
Public Property Get TotalItem()
TotalItem = m_TotalItem
end Property
Public Property Get TotalPage()
TotalPage = m_TotalPage
end Property
Public Property Get FileValid()
FileValid = m_FileValid
end Property
Public Property Get FileSize()
FileSize = m_FileSize
end Property
Public Property Get AnswerValid()
AnswerValid = m_AnswerValid
end Property
Public Property Get ReadValid()
ReadValid = m_ReadValid
end Property
Public Property Get WriteValid()
WriteValid = m_WriteValid
end Property
Public Property Get RegDate()
RegDate = m_RegDate
end Property
Public Property Get BlockPage()
BlockPage = m_BlockPage
end Property
Public Property Get ListPage()
ListPage = m_ListPage
end Property
Public Function Init(BoardID)
Dim m_inParam(0)
Dim m_objDBRS
m_inParam(0) = Cint(BoardID)
If (objDBClass.ExecStoredProcRS("sp_GetBoardInfo", m_inParam ,m_objDBRS) = True) then
if Not m_objDBRS.EOF then
m_TotalItem = m_objDBRS("ValidCnt")
m_TotalPage = m_objDBRS("TotalPage")
m_BoardID = m_objDBRS("BoardID")
m_BoardName = m_objDBRS("BoardName")
m_BoardDesc = m_objDBRS("BoardDesc")
m_BoardAdminID = m_objDBRS("BoardAdminID")
m_FileValid = m_objDBRS("FileValid")
m_FileSize = m_objDBRS("FileSize")
m_RegDate = m_objDBRS("RegDate")
m_ListPage = m_objDBRS("ListPage")
m_BlockPage = m_objDBRS("BlockPage")
m_AnswerValid = m_objDBRS("AnswerValid")
m_ReadValid = m_objDBRS("ReadValid")
m_WriteValid = m_objDBRS("WriteValid")
End if
Init = CBOOL(True)
m_objDBRS.close
else
m_TotalItem = Cint(0)
m_TotalPage = Cint(0)
m_BoardID = Cint(0)
m_BoardName = CSTR("")
m_BoardDesc = CSTR("")
m_BoardAdminID = Cint(0)
m_FileValid = Cint(0)
m_FileSize = Cint(0)
m_RegDate = CSTR("")
m_ListPage = Cint(0)
m_BlockPage = Cint(0)
m_AnswerValid = Cint(1)
m_ReadValid = Cint(0)
m_WriteValid = Cint(0)
Init = CBOOL(False)
end if
Set m_objDBRS = Nothing
Set m_objDBRS = Nothing
End Function
Private Sub Class_Initialize()
'클래스에 필요한 초기값을 설정한다.
m_BoardID = 0
End Sub
Private Sub Class_Terminate()
'클래스 해제에 필요한 처리를 실행한다.
m_BoardID = 0
End Sub
end class
%>
<%
Dim objBoardRS ,objItemRS, objBoard,tblBoardName, intBoardID,intListPage, intNowPage, intBlockPage, inParam(), strBoardName
Dim strKeyword, intTotalItem, intTotalPage, ListCount, SearchName, SearchSubject, SearchContent, SearchKeyword, strSQL
Set objBoardRS = Server.CreateObject("ADODB.RecordSet")
Set objItemRS = Server.CreateObject("ADODB.RecordSet")
intBoardID = 21
intNowPage = Cint(CNULL(Request("Page"),1))
if intNowPage = 0 then : intNowPage = 1 end if
intTotalItem = 0
intTotalPage = 0
If intBoardID = "" or (Not isNumeric(intBoardID)) then
'Server.transfer "/About/"
else
'게시판 클래스 생성
Set objBoard = New clsBoard
objBoard.Init intBoardID
Redim inParam(0)
inParam(0) = intBoardID
If (objDBClass.ExecStoredProcRS("sp_GetBoardInfo", inParam ,objBoardRS) = True) then
If Not objBoardRS.EOF then
intTotalItem = objBoardRS("ValidCnt")
intListPage = objBoardRS("ListPage")
intBlockPage = objBoardRS("BlockPage")
strBoardName = objBoardRS("BoardName")
'게시판 검색단어 (작성자, 제목, 본문)
SearchTo = Trim(Request("SearchTo"))
SearchKeyword = Trim(Request("SearchKeyword"))
Select case SearchTo
case "colSubject" : SearchSubject = SearchKeyword :
case "colContent" : SearchContent = SearchKeyword :
end select
else
objBoardRS.Close
Set objBoardRS = Nothing
Set objItemRS = Nothing
Err.Description = "요청한 게시판이 없습니다."
objDBClass.ErrorReport Err,"/Include/libErrorReport.asp"
End IF
objBoardRS.close
End IF
end if
function ShowReplyImage(Seq)
if Seq > 1 then
response.write ""
end if
end Function
%>
<%'데이터베이스 연결해제 및 변수 초기화 작업
Set objBoard = Nothing
Set objBoardRS = Nothing
Set objItemRS = Nothing
%>
