<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : BBS.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 9/1/2009 'Modifier(Date) : None '****************************************************************************************************************** Dim G_MENU G_MENU = "BOARD" %> <%Call SubGlobalMenu() %>

<% CALL subTabIndexLink("BOARD") %>

<% CALL subTopMenu() %>

게시판

<% Dim BBS_Category BBS_Category = Trim(Request("BBS_Category")) TOP_MENU__ = "CONTENT" '//왼쪽 소메뉴 설정 변수 IF (Request("LinkID") = "-1") Then %> <% Else Dim dbConn SET dbConn = GetDBConn() 'Page와 PID변수를 받는다. Dim Page, PID, LinkID, TreeID Page = Request("Page") PID = Request("PID") LinkID = Request("LinkID") TreeID = Request("TreeID") %> <% ' 조회수를 1을 증가시킨다. Dim sqlVisit, sqlContent sqlVisit = "Update E_bbs Set BBS_Visited = BBS_Visited + 1 WHERE BBS_Category = '"&BBS_Category&"' AND BBS_No = " & PID dbconn.Execute(sqlVisit) sqlContent = "Select BBS_No, BBS_MID, BBS_TreeID, BBS_ChildID, BBS_LinkID, BBS_Subject, " sqlContent = sqlContent & " BBS_Editor, BBS_Email, BBS_Visited, BBS_Date, BBS_Text, BBS_DocTypeCd, BBS_TreeCheck, BBS_PASSWD, file_name " sqlContent = sqlContent & " From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_No = " & PID Dim rsContent, BBS_NO, disp_content Set rsContent = rsGetDBResult(dbconn,sqlContent) BBS_NO = rsContent("BBS_No") '2000/11/6 삽입 disp_content = rsContent("BBS_Text") ' disp_content = Replace(rsContent("BBS_Text"), chr(13) & chr(10), "
") ' disp_content = Replace(rsContent("BBS_Text"), " ", " ") ' 이전글 보기와 다음글 보기를 위해 LinkID를 구한다. ' 최소 LinkID일때는 이전글로 갈수 없고 ' 최대 LinkID일때는 다음글로 갈수 없다. Dim sqlNextLID, rsNextLID sqlNextLID = "Select Max(BBS_LinkID) as NextLinkID From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_LinkID < " & LinkID Set rsNextLID = rsGetDBResult(dbconn,sqlNextLID) 'response.write sqlNextLID 'response.end ' 다음 글번호가 있으면 구하고 아니면 -1로 한다. Dim NextLinkID, sqlNextPID, rsNextPID, NextPID If rsNextLID.EOF = true and rsNextLID.BOF = true then NextLinkID = -1 Else 'Response.Write rsNextLID("NextLinkID") & "!!!" NextLinkID = rsNextLID("NextLinkID") If isnull(NextLinkID) then NextLinkID = -1 Else sqlNextPID = "Select BBS_No From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_LinkID = " &NextLinkID Set rsNextPID = rsGetDBResult(dbconn,sqlNextPID) NextPID = rsNextPID("BBS_No") Set rsNextPID = Nothing 'response.write sqlNextPID 'response.end End if End if Set rsNextLID = Nothing Dim sqlPreLID, rsPreLID sqlPreLID = "Select Min(BBS_LinkID) as PreLinkID From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_LinkID > " & LinkID Set rsPreLID = rsGetDBResult(dbconn,sqlPreLID) ' 이전 글번호가 있으면 구하고 아니면 -1로 한다. Dim PreLinkID, sqlPrePID, rsPrePID, PrePID if rsPreLID.EOF = true and rsPreLID.BOF = true then PreLinkID = -1 else 'Response.Write rsPreLID("PreLinkID") & "!!!" PreLinkID = rsPreLID("PreLinkID") if isnull(PreLinkID) then PreLinkID = -1 else sqlPrePID = "Select BBS_No From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_LinkID = " & PreLinkID Set rsPrePID = rsGetDBResult(dbconn,sqlPrePID) PrePID = rsPrePID("BBS_No") Set rsPrePID = Nothing end if end if Set rsPreLID = Nothing %> <% Dim sPage Select Case BBS_Category Case "ticket" sPage = "항공권 문의" Case "travel" sPage = "여행후기" Case "qna" sPage = "자유게시판" End Select %> <%'Start ========================================================================================================================%>

<%=sPage%>

Subject : <%= rsContent("BBS_Subject") %>

Writer <%= rsContent("BBS_Editor") %> ( "><%= rsContent("BBS_Email") %> ) Date <%= rsContent("BBS_Date") %>	Access : <%= rsContent("BBS_Visited") %>

<%= replace(disp_content, chr(10), "
")%>

<%IF rsContent("file_name") <> "" Then%>

첨부파일 : " target="blink"><%= rsContent("file_name") %>

<%End IF%>

<% Dim BtnEdit BtnEdit = FuncRenderButton2(" Edit ", "javascript:Edit();", "center") %>

<% Dim BtnDel BtnDel = FuncRenderButton2(" Del ", "javascript:Del();", "center") %>

<% Dim BtnList BtnList = FuncRenderButton2(" List ", "javascript:List();", "center") %>

<% Dim BtnReply BtnReply = FuncRenderButton2("Reply", "javascript:Reply();", "center") %>

<% rsContent.close Set rsContent = Nothing SET dbconn = Nothing End If %> <%'End =========================================================================================================================%>