<%@ 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 %>

¾ÆÀÌÅÛÀº ȨÆäÀÌÁö¸¦ ÅëÇØ¼­µµ ±¸¸ÅÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.


NEW ITEM

<%=nextNewPage%>

HOT ITEM

<%=nextHotPage%>