<%@ 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 objConn, retVal, rsList, rows, mods, max, recordNo, i, j Dim totalCount, totalPage Dim goodsNo, groupNo, name, imageName, unit, unitDescription, price, discount, sellPrice, gmSales, ceilCount, sellCount, remainCount, imgStyle Dim gCash, eCash, lBonus, ticketCnt category = Request.Querystring("category") pageNo = Request.Querystring("page") If category = "" Then category = "01" If pageNo = "" Then pageNo = 1 '============================================================================ ' ±ÇÇÑüũ '============================================================================ 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")) '============================================================================ ' Ä«Å×°í¸® À̸§ ±¸Çϱâ '============================================================================ categoryName = FnGetCategoryName(category) '============================================================================ ' ¼­ºêÄ«Å×°í¸® ¸Þ´º ±¸¼º '============================================================================ If Len(category) = 2 Then subCategory = "
  • Àüü
  • " & vbCrLf Else subCategory = "
  • Àüü
  • " & vbCrLf End If retVal = FnGetSubCategory(Left(category, 2), rsList) If retVal = 1 Then rows = UBound(rsList, 2) For i = 0 To rows If i = rows Then lnbClass ="class=""last""" End If If rsList(0, i) = category Then subCategory = subCategory & "
  • " & rsList(1, i) & "
  • " & vbCrLf Else subCategory = subCategory & "
  • " & rsList(1, i) & "
  • " & vbCrLf End If Next End If '============================================================================ ' ÇØ´ç Ä«Å×°í¸®ÀÇ Àüü¾ÆÀÌÅÛ ¼ö / ÃÑÆäÀÌÁö ¼ö ±¸Çϱâ '============================================================================ totalCount = FnGetTotalCount(0, category) totalPage = -Int(-(totalCount / PAGE_LIMIT)) If totalPage = 0 Then totalPage = 1 '============================================================================ ' ¾ÆÀÌÅÛ¸®½ºÆ® °¡Á®¿À±â '============================================================================ retVal = FnGetGroupList(category, pageNo, PAGE_LIMIT, rsList) '============================================================================ ' COMMUNITY DB ¿¬°á ÇØÁ¦ '============================================================================ SbDBClose objConn '2008-10-10 ij½ÃŸÀÔ¿¡µû¸¥ ¾ÆÀÌÄÜ º¯°æ Dim cashIcon cashIcon = "gamepoint" If Left(category, 2) = "06" Then cashIcon = "eventpoint" End If %>

    ITEM LIST


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