<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : board_2.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 7/10/2009 'Modifier(Date) : None '****************************************************************************************************************** Dim G_MENU G_MENU = "BOARD" %> <%Call SubGlobalMenu() %>
<% CALL subTabIndexLink("BOARD") %>
<% CALL subTopMenu() %>
Bulletin Board
<%'Start ========================================================================================================================%> <% Dim B_Category B_Category = "notice" %> <% Dim CurrentPage If Trim(Request("Page")) = "" Then CurrentPage = 1 Else CurrentPage = Request("Page") End If %> ">
<% Dim keyword, Keytype, sqlList Dim intCountPerPage, intBlockPage, rs intCountPerPage = 10 intBlockPage = 10 If Trim(Request("isSearch")) = "true" Then Keyword = Request("Keyword") KeyType = Request("KeyType") If KeyType = "Content" Then sqlList = " Select News_ID, Title, Writer, Write_Date, Read_Cnt " &_ " FROM E3_News_Announcement WHERE B_Category = '"&B_Category&"' AND Content LIKE '%" + Keyword + "%'" &" ORDER BY News_ID DESC" Else sqlList = " Select News_ID, Title, Writer, Write_Date, Read_Cnt " &_ " FROM E3_News_Announcement WHERE B_Category = '"&B_Category&"' AND (UPPER(Title) LIKE UPPER('%" + Keyword + "%'))" &" ORDER BY News_ID DESC" End If Else sqlList = " Select News_ID, Title, Writer, Write_Date, Read_Cnt " &_ " From E3_News_Announcement WHERE B_Category = '"&B_Category&"' ORDER BY News_ID Desc" End If Set rs = GetDBRecordset() rs.PageSize = intCountPerPage rs.Open sqlList, objRs ,1 if rs.EOF = True and rs.BOF = True Then Else rs.AbsolutePage = CurrentPage End If Dim TotCount, LastCount, LastRecord, FirstPg, PrevPg, NextPg, ind, LastPg, rowNumber TotCount = rs.RecordCount LastCount = TotCount \ 10 LastRecord = TotCount mod 10 FirstPg = 1 PrevPg = CurrentPage - 1 NextPg = CurrentPage + 1 LastPg = rs.PageCount rowNumber = TotCount - ((CurrentPage - 1) * intCountPerPage) %> <% If rs.EOF = True and rs.BOF = True Then %> <% else %> <% end if %>
  Total <%=TotCount%> Rows Result.    Page : <%= CurrentPage %> / <%=rs.PageCount%>
<% ' 레코드가 하나도 없으면 If rs.EOF = True and rs.BOF = True Then %> <% ' 레코드가 있으면 보여준다. Else %> <% Dim i For i = 1 to rs.PageSize Dim Subject ' 제목이 30자가 넘으면 일정량으로 자른다. If Len(rs("Title")) > 50 Then Subject = Left(rs("Title"),50) & "..." Else Subject = rs("Title") End If %> <% if i mod 2 = 0 then%> <%else%> <%end if%> <% rs.MoveNext rowNumber = rowNumber - 1 Dim j if rs.EOF = True And LastRecord <> 0 then For j=1 to (10-LastRecord) if (LastRecord mod 2 = 1) then if j mod 2 = 1 then%> <%else%> <%end if else if j mod 2 =0 then%> <%else%> <%end if%> <% end if %> <% next end if ' 레코드의 끝이면 루프를 탈출 If rs.EOF = True Then Exit For Next %> <%End If%>
No Result
No. Title Writer Date  Access 
<%= rowNumber%> &Page=<%=CurrentPage%>&isSearch=<%=Request("isSearch")%>&keyword=<%=keyword%>&keytype=<%=keytype%>"><%= Subject %> <%=rs("Writer")%> <%=Month(rs("Write_Date"))%>/<%=Day(rs("Write_Date"))%>/<%=Year(rs("Write_Date"))%> <% IF rs("Read_Cnt") > 30 Then %> <%=rs("Read_Cnt")%> <% Else%> <%=rs("Read_Cnt")%> <% End IF%>
         
<% '//페이지 출력 Dim intTemp, intLoop intTemp = Int((CurrentPage - 1) / intBlockPage) * intBlockPage + 1 If intTemp = 1 Then Response.Write "      " Else Response.Write"First Page      " End If intLoop = 1 Do Until intLoop > intBlockPage Or intTemp > rs.PageCount If intTemp = CInt(CurrentPage) Then Response.Write "[" & intTemp &"]" Else Response.Write"[" & intTemp & "]" End If intTemp = intTemp + 1 intLoop = intLoop + 1 Loop If intTemp > rs.PageCount Then Response.Write "      " Else Response.Write"      Last Page" End If %>
   " onkeypress="key_enter()" class="TxtBasis">  
<% Dim BtnWrite BtnWrite = FuncRenderButton2("Write", "javascript:document.location.href('"&ADMIN_ROOT&"/board_2_a.asp?B_Category="&B_Category&"');", "right") %>
<% Set rs = Nothing %>
<%'End =========================================================================================================================%>