<% '****************************************************************************************************************** '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 Category_CD Category_CD = Trim(Request("Category_CD")) Dim Post_CD Post_CD = Trim(Request("Post_CD")) objQuery.execute("UPDATE E3_Post SET Read_Cnt=Read_Cnt+1 WHERE Post_CD='" & Post_CD & "' and Category_CD = '"&Category_CD&"' ") Dim rsPost Set rsPost = funcGetPost(objQuery, Post_CD, Category_CD) Dim curPage curPage = Trim(Request("curPage")) IF curPage = "" Then curPage = 1 End IF %>

작성자

<%=rsPost("Author")%>

작성날짜

<%=rsPost("Write_Date")%>

조회수

<%=rsPost("Read_Cnt")%>

제목

<%=rsPost("Title")%>

<%If Trim(rsPost("Upload_File")) <> "" Then%> <% Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open POST_PHISYCAL_PATH &"\"& Trim(rsPost("Upload_File")) Dim sWidth, sHeight sWidth = Jpeg.OriginalWidth sHeight = Jpeg.OriginalHeight %>

&sWidth=<%=sWidth%>&sHeight=<%=sHeight%>', 'UpImg', 100, 75, 0)">

" onload="img_resize()" name="bef_Upload_File" border="0">

<%End IF%>
<% Dim strDesc strDesc = Trim(rsPost("Description")) strDesc = replace(strDesc, chr(10), "
") %>

<%=strDesc%>

<% rsPost.close Set rsPost = Nothing %> <%'End =========================================================================================================================%>