%@ Language=VBScript %> <% Option Explicit Response.Expires = -1 Response.AddHeader "Pragma", "No-Cache" Response.AddHeader "Cache-Control", "No-Store" %> <% Dim objConn, rows Dim gCash, eCash, lBonus, ticketCnt Dim TabNum, i '============================================================================ ' ±ÇÇÑüũ '============================================================================ If Session("authID") < MEMBER Then Call FnComAlertGoUrl("Á¢¼Ó±ÇÇÑÀÌ ¾ø½À´Ï´Ù.", "", 1) End If '============================================================================ ' DB ¿¬°á '============================================================================ SbDBConn "Account", objConn '============================================================================ ' À¯ÀúÀÇ Æ÷ÀÎÆ®ÀÜ¾× Á¶È¸ '============================================================================ SBGetCash Session("userNo"), G_CASH, gCash SBGetCash Session("userNo"), E_CASH, eCash SBGetBonus Session("userNo"), lBonus ticketCnt = FnGetLotEventCnt(Session("userNo")) '============================================================================ ' DB ¿¬°á ÇØÁ¦ '============================================================================ SbDBClose objConn '============================================================================ ' µî±Þº°ÅÇ '============================================================================ TabNum = Request.QueryString("TabNum") If TabNum = "" Then TabNum = "1" End If %>