<% '****************************************************************************************************************** '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")) Dim PID, Page PID = Trim(Request("PID")) Page = Trim(Request("Page")) %> <% TOP_MENU__ = "CONTENT" '//¿ÞÂÊ ¼Ò¸Þ´º ¼³Á¤ º¯¼ö Dim dbConn SET dbConn = GetDBConn() Dim sqlContent 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 " sqlContent = sqlContent & " From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_No = " & PID Dim rsView Set rsView = rsGetDBResult(dbconn,sqlContent) Dim sPage Select Case BBS_Category Case "ticket" sPage = "Ç×°ø±Ç ¹®ÀÇ" Case "travel" sPage = "¿©ÇàÈıâ" Case "qna" sPage = "ÀÚÀ¯°Ô½ÃÆÇ" End Select %> <%'Start ========================================================================================================================%> "> "> "> "> "> <% Dim rsText, rsText01, rsText02 rsText = rsView("BBS_Text").value rsText01 = "----------------------------------------------------------------------------------------------------------------------" rsText02 = "" %> Subject  " class="TxtBasis"> Writer  Password  E-mail  Contents  <%=vbCrLf%><%=vbCrLf%><%=vbCrLf%><%=vbCrLf%><%=rsText01%><%=">" & Replace(rsText,chr(10),">") &chr(10) & chr(10) &rsText02 %><%=vbCrLf%> <% Dim BtnSubmit BtnSubmit = FuncRenderButton2("Submit", "javascript:Reply();", "right") %> <% Dim BtnCancel BtnCancel = FuncRenderButton2("Cancel", "javascript:List();", "left") %> <% rsView.close SET rsView = Nothing SET dbconn = Nothing %> <%'End =========================================================================================================================%>