<% '****************************************************************************************************************** '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 dbConn SET dbConn = GetDBConn() Dim BBS_Category BBS_Category = Trim(Request("BBS_Category")) Dim Page Page = Trim(Request("Page")) Dim PID, LinkID PID = Request("PID") LinkID = Trim(Request("LinkID")) Dim sqlContent, rsContents 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_PASSWD" sqlContent = sqlContent & " From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_No = " & PID Set rsContents = dbconn.Execute(sqlContent) %> <% Dim sPage Select Case BBS_Category Case "ticket" sPage = "Ç×°ø±Ç ¹®ÀÇ" Case "travel" sPage = "¿©ÇàÈıâ" Case "qna" sPage = "ÀÚÀ¯°Ô½ÃÆÇ" End Select %> <%'Start ========================================================================================================================%> <% Dim arrListOwn Dim arrListName Dim sTemp, htmTD, htmTR, htmRows, htmTable Dim Delurl, DelLink Dim Nourl, NoLink arrListOwn = Array("Write Number", "Writer", "Title", "Image", "File") arrListName = Array(rsContents("BBS_No"), rsContents("BBS_Editor"), rsContents("BBS_Subject")) sTemp = FuncRenderText(arrListOwn(0), " color='"&FONT_BLUE&"'") htmTD = FuncRenderTD(sTemp, " bgcolor='"&TD_COLOR1&"' align='center' " & FONT_DEFAULT_SIZE) sTemp = FuncRenderText(arrListName(0), " color='"&FONT_DEFAULT&"'") htmTD = htmTD & FuncRenderTD(sTemp, " bgcolor='"&TD_COLOR2&"' " & FONT_DEFAULT_SIZE) htmTR = FuncRenderTR(htmTD, "") sTemp = FuncRenderText(arrListOwn(1), " color='"&FONT_BLUE&"'") htmTD = FuncRenderTD(sTemp, " bgcolor='"&TD_COLOR1&"' align='center' " & FONT_DEFAULT_SIZE) sTemp = FuncRenderText(arrListName(1), " color='"&FONT_DEFAULT&"'") htmTD = htmTD & FuncRenderTD(sTemp, " bgcolor='"&TD_COLOR2&"' " & FONT_DEFAULT_SIZE) htmTR = htmTR & FuncRenderTR(htmTD, "") sTemp = FuncRenderText(arrListOwn(2), " color='"&FONT_BLUE&"'") htmTD = FuncRenderTD(sTemp, " bgcolor='"&TD_COLOR1&"' align='center' " & FONT_DEFAULT_SIZE) sTemp = FuncRenderText(arrListName(2), " color='"&FONT_DEFAULT&"'") htmTD = htmTD & FuncRenderTD(sTemp, " bgcolor='"&TD_COLOR2&"' " & FONT_DEFAULT_SIZE) htmTR = htmTR & FuncRenderTR(htmTD, "") htmRows = htmTR htmTable = FuncRenderTable(htmRows, " WIDTH='100%' ALIGN='CENTER' BORDER='1' CELLSPACING='0' CELLPADDING='5' BORDERCOLORLIGHT='BLACK' BORDERCOLORDARK='#EEEEEE'") Response.write htmTable & " " htmTD = FuncRenderTD("Are you sure want to delete ? Password : ", " align='center' " & FONT_DEFAULT_SIZE) htmTR = FuncRenderTR(htmTD, "") Delurl = "javascript:funcDel();" DelLink = FuncRenderLink(Delurl, "[Delete]", "") Nourl =ADMIN_ROOT&"/bbs/BBS_Detail.asp?BBS_Category="&BBS_Category&"&PID="&PID&"&Page="&Page&"&LinkID="&LinkID NoLink = FuncRenderLink(Nourl, "[ Back ]", "") htmTD = FuncRenderTD(DelLink & "      " & NoLink, " align='center' " & FONT_DEFAULT_SIZE) htmTR = htmTR & FuncRenderTR(htmTD, "") htmTable = FuncRenderTable(htmTR, " width='100%' border='0' ") %> <%=htmTable%> <% rsContents.close set rsContents = Nothing set dbconn = Nothing %> <%'End =========================================================================================================================%>