<% Dim idx, subject, writeDate, hit, kind, kind_value, view_herf Dim SQL, RS, tableName Dim page, totalpage, i, listnum, fileName Dim strNew Dim field, keyWord Dim sortName, sortValue Dim bgImg Dim fileName1 Dim branchs, period, n Dim btn_tabs1, btn_tabs2 kind = Trim(Request("kind")) gotopage = Trim(Request("gotopage")) field = Trim(Request("field")) keyWord = Trim(Request("keyWord")) keyWord = InjectionDefender(keyWord) '인젝션 공격 방어 sortName = Trim(Request("sortName")) sortValue = Trim(Request("sortValue")) tableName = "TB_EVENT" '### DB 테이블명 fileName = "event.asp?field=" & field & "&keyWord=" & keyWord '### 현재 파일명 If gotopage = "" Then gotopage = 1 Else gotopage = Cint(gotopage) End If If kind = "N" Then btn_tabs1 = "off" btn_tabs2 = "on" kind_value = "N" view_herf = "javascript:alert('종료된 이벤트입니다.')" Else btn_tabs1 = "on" btn_tabs2 = "off" kind_value = "Y" view_herf = "" End If %>

이달의 EVENT

<% If Session("admin_div") > 0 Then %>
진행중인 이벤트종료된 이벤트
<% End If %>
<% SQL = "SELECT idx, subject, writeDate, hit, fileName1, branchs, period FROM " & tableName & " A WHERE kind = '" & kind_value & "' " If keyWord <> "" Then '검색 SQL = SQL & " AND " & field & " LIKE '%" & keyWord & "%' " End If SQL = SQL & " ORDER BY writeDate DESC" Set RS = Dbcon.Execute(SQL) RS.PageSize = 8 '페이지당 리스트 수 totalpage = RS.PageCount '총 페이지 수 i=1 If RS.eof Then %> <% Else RS.AbsolutePage = gotopage '지정된 페이지로 현재 위치 이동 listnum = RS.RecordCount-(gotopage-1)*RS.PageSize Do Until RS.eof Or i > RS.PageSize idx = RS("idx") subject = RS("subject") : If Len(subject) > 29 Then subject = Left(subject, 28) & ".." : writeDate = DateValue(RS("writeDate")) hit = RS("hit") fileName1 = RS("fileName1") branchs = RS("branchs") period = RS("period") '새글 New 아이콘 표시 If GetNewBoardTime(24, RS("writeDate")) = True Then strNew = "" Else strNew = "" End If If (i Mod 2) = 0 Then bgImg = "images/bg01.gif" Else bgImg = "images/bg02.gif" End If If kind = "N" Then 'view_herf = "javascript:alert('종료된 이벤트입니다.')" view_herf = "event_view.asp?idx=" & idx Else view_herf = "event_view.asp?idx=" & idx End If %> <% '줄바꿈 처리 If i Mod 2 = 0 Then Response.Write "" Else Response.Write "" End If i = i + 1 listnum = listnum - 1 RS.MoveNext Loop End If RS.Close Set RS = Nothing %>
No Data
<%=subject%>
기간 : <%=period%>
<% branchs = Split(branchs, ", ") For n=0 to UBound(branchs) Response.Write "" Next %>
<% Set listNum = New PageNavi listNum.Initial "event.asp?kind="&kind&"&vSort="&vSort&"&gSort="&gSort&"&sSort="&sSort&"&vKeyType="&vKeyType&"&vUserName="&vUserName&"&vUserId="&vUserId&"&branchCode="&branchCode&"&vSid1="&vSid1&"&vSid2="&vSid2,10,gotopage,totalpage,search_category,searchString,optionstr,"","" listNum.pagePrint Set listNum = nothing %> <% If Session("admin_div") > 0 Then %> 글쓰기 <% End If %>