%@ language="VBScript" %>
<%
Option Explicit
Response.Expires = -1
Response.AddHeader "Pragma", "No-Cache"
Response.AddHeader "Cache-Control", "No-Store"
%>
<%
Dim eKey, serialKey
Dim objConn, retVal, rsList, retNew, rsNewList, retHot, rsHotList, rows, i
Dim totalNewCount, totalHotCount, nextNewPage, nextHotPage
Dim userNo, userID, authID
Dim goodsNo, groupNo, name, imageName, unit, unitDescription, price, discount, sellPrice, ceilCount, sellCount, remainCount, imgStyle
Dim gCash, eCash, lBonus, ticketCnt
eKey = Request("eKey")
If eKey <> "" And Session("userNo") <> "" Then
Session.Abandon
%><%
Response.End
End If
If Session("userNo") = "" Then
If eKey = "" Then
Call FnComAlertGoUrl("Á¤»óÀûÀÎ Á¢¼ÓÀÌ ¾Æ´Õ´Ï´Ù.", "", 1)
Else
SBGetDecryptionKey eKey, userNo, serialKey
End If
End If
'============================================================================
' COMMUNITY DB ¿¬°á
'============================================================================
SbDBConn "Account", objConn
If Session("userNo") = "" Then
SBGetUser userNo, serialKey, userID, authID
If userID = "" Then
SbDBClose objConn
Call FnComAlertGoUrl("Á¢¼Ó±ÇÇÑÀÌ ¾ø½À´Ï´Ù. ( " & serialKey & "/" & Session("userNo") & "/" & userID & "/" & eKey & " )", "", 1)
Else
Session("userNo") = userNo
Session("userID") = userID
Session("authID") = authID
End If
End If
'============================================================================
' ±ÇÇÑüũ
'============================================================================
If Session("authID") < MEMBER Then
SbDBClose objConn
Call FnComAlertGoUrl("Á¢¼Ó±ÇÇÑÀÌ ¾ø½À´Ï´Ù.", "", 1)
End If
'============================================================================
' À¯ÀúÀÇ Æ÷ÀÎÆ®ÀÜ¾× Á¶È¸
'============================================================================
SBGetCash Session("userNo"), G_CASH, gCash
SBGetCash Session("userNo"), E_CASH, eCash
SBGetBonus Session("userNo"), lBonus
ticketCnt = FnGetLotEventCnt(Session("userNo"))
'============================================================================
' ½Å±Ô¾ÆÀÌÅÛ Àüü Ä«¿îÆ®
'============================================================================
totalNewCount = FnGetTotalCount(1, "")
If totalNewCount > 3 Then
nextNewPage = ""
Else
nextNewPage = "
"
End If
'============================================================================
' ½Å±Ô¸®½ºÆ® °¡Á®¿À±â
'============================================================================
retNew = FnGetEventList(1, 1, 3, rsNewList)
'============================================================================
' ÀÎ±â¾ÆÀÌÅÛ Àüü Ä«¿îÆ®
'============================================================================
totalHotCount = FnGetTotalCount(1, "")
If totalHotCount > 3 Then
nextHotPage = "
"
Else
nextHotPage = "
"
End If
'============================================================================
' Àα⸮½ºÆ® °¡Á®¿À±â
'============================================================================
retHot = FnGetEventList(2, 1, 3, rsHotList)
'============================================================================
' COMMUNITY DB ¿¬°á ÇØÁ¦
'============================================================================
SbDBClose objConn
%>
¾ÆÀÌÅÛÀº ȨÆäÀÌÁö¸¦ ÅëÇØ¼µµ ±¸¸ÅÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.