<%@ language="VBScript" %> <% Option Explicit Response.Expires = -1 Response.AddHeader "Pragma", "No-Cache" Response.AddHeader "Cache-Control", "No-Store" %> <% Dim category, pageNo, categoryName, subCategory, lnbClass Dim eventType, pageTitleImage, pageTitleName Dim objConn, retVal, rsList, rows, mods, max, recordNo, i, j Dim totalCount, totalPage Dim goodsNo, groupNo, name, imageName, unit, unitDescription, price, discount, sellPrice, ceilCount, sellCount, remainCount, imgStyle Dim gCash, eCash, lBonus, ticketCnt eventType = Request.Querystring("event") pageNo = Request.Querystring("page") If eventType = "" Then eventType = 1 If pageNo = "" Then pageNo = 1 If eventType = 1 Then pageTitleImage = "new" pageTitleName = "½Å±Ô" Else pageTitleImage = "hot" pageTitleName = "Àαâ" End If '============================================================================ ' ±ÇÇÑüũ '============================================================================ If Session("authID") < MEMBER Then Call FnComAlertGoUrl("Á¢¼Ó±ÇÇÑÀÌ ¾ø½À´Ï´Ù.", "", 1) End If '============================================================================ ' COMMUNITY DB ¿¬°á '============================================================================ SbDBConn "Account", objConn '============================================================================ ' À¯ÀúÀÇ Æ÷ÀÎÆ®ÀÜ¾× Á¶È¸ '============================================================================ SBGetCash Session("userNo"), G_CASH, gCash SBGetCash Session("userNo"), E_CASH, eCash SBGetBonus Session("userNo"), lBonus ticketCnt = FnGetLotEventCnt(Session("userNo")) '============================================================================ ' ÇØ´ç À̺¥Æ®ÀÇ Àüü¾ÆÀÌÅÛ ¼ö / ÃÑÆäÀÌÁö ¼ö ±¸Çϱâ '============================================================================ totalCount = FnGetTotalCount(eventType, "") totalPage = -Int(-(totalCount / PAGE_LIMIT)) If totalPage = 0 Then totalPage = 1 '============================================================================ ' ¾ÆÀÌÅÛ¸®½ºÆ® °¡Á®¿À±â '============================================================================ retVal = FnGetEventList(eventType, pageNo, PAGE_LIMIT, rsList) '============================================================================ ' COMMUNITY DB ¿¬°á ÇØÁ¦ '============================================================================ SbDBClose objConn %>

<%=pageTitleName%> ¾ÆÀÌÅÛ


<% '============================================================================ ' ÀÌÀüÆäÀÌÁö ¹öư Ãâ·Â '============================================================================ If pageNo > 1 Then %> ÀÌÀüÆäÀÌÁö <% Else %> ÆäÀÌÁö ¾øÀ½ <% End If %>
<%=pageNo%> / <%=totalPage%>