%@ 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 retVal = 1 Then
rows = Ubound(rsList, 2)
mods = rows Mod 3
recordNo = 0
For i = 0 To -Int(-((rows + 1) / 3)) - 1
' Response.Write ""
If i < -Int(-((rows + 1) / 3)) - 1 Then
max = 2
Else
max = mods
End If
For j = 0 To max
goodsNo = rsList(0, recordNo)
groupNo = rsList(1, recordNo)
name = rsList(2, recordNo)
imageName = rsList(3, recordNo)
unit = rsList(4, recordNo)
unitDescription = rsList(5, recordNo)
price = FormatNumber(rsList(6, recordNo), 0)
discount = rsList(7, recordNo)
sellPrice = FormatNumber(rsList(8, recordNo), 0)
gmSales = rsList(9, recordNo)
ceilCount = rsList(11, recordNo)
sellCount = rsList(10, recordNo)
imgStyle = ""
If unit = 0 Then unit = "" End If
%>
-
<%
If gmSales then
%>
<%
End If
%>
<%
' ÇÑÁ¤ÆÇ¸Åǰ¸ñ
If ceilCount > 0 Then
%>
<%
End If
%>
<%=name%>
<%
recordNo = recordNo + 1
Next
Next
Else
%>
-
µî·ÏµÈ ¾ÆÀÌÅÛÀÌ ¾ø½À´Ï´Ù.
´õ ÁÁÀº ¾ÆÀÌÅÛÀ» ºü¸¥ ½ÃÀϳ»¿¡ µî·ÏÇϵµ·Ï ÇϰڽÀ´Ï´Ù.
<%
End If
%>
<%
'============================================================================
' ÀÌÀüÆäÀÌÁö ¹öư Ãâ·Â
'============================================================================
If pageNo > 1 Then
%>

<% Else %>

<% End If %>
<%=pageNo%> / <%=totalPage%>
<%
'============================================================================
' ´ÙÀ½ÆäÀÌÁö ¹öư Ãâ·Â
'============================================================================
If CInt(pageNo) < totalPage Then
%>

<% Else %>

<% End If %>