<%@ 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, i Dim totalCount, totalPage Dim orderDate, orderType, goodsNo, name, imageName, unit, unitDescription, sellPrice Dim gCash, eCash, lBonus, ticketCnt pageNo = Request.Querystring("page") 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")) '============================================================================ ' ÇØ´ç Ä«Å×°í¸®ÀÇ Àüü¾ÆÀÌÅÛ ¼ö / ÃÑÆäÀÌÁö ¼ö ±¸Çϱâ '============================================================================ totalCount = FnGetBuyCount(Session("userNo")) totalPage = -Int(-(totalCount / 7)) If totalPage = 0 Then totalPage = 1 '============================================================================ ' ¾ÆÀÌÅÛ¸®½ºÆ® °¡Á®¿À±â '============================================================================ retVal = FnGetBuyList(Session("userNo"), pageNo, 7, rsList) '============================================================================ ' COMMUNITY DB ¿¬°á ÇØÁ¦ '============================================================================ SbDBClose objConn %>

¾ÆÀÌÅÛ ±¸¸Å³»¿ª

<% If retVal = 1 Then rows = Ubound(rsList, 2) For i = 0 To rows orderDate = rsList(0, i) goodsNo = rsList(2, i) name = rsList(3, i) imageName = rsList(4, i) unit = rsList(5, i) unitDescription = rsList(6, i) sellPrice = rsList(7, i) If unit = 0 Then unit = "" End If Select Case rsList(1, i) Case 0 : orderType = "±¸ÀÔ" Case 1 : orderType = "¼±¹°" Case 2 : orderType = "ȹµæ" Case Else : orderType = "-" End Select %> <% If sellPrice = 0 Then %> <% Else %> <% End If %> <% Next Else %> <% End If %>
¾ÆÀÌÅÛ ±¸¸Å³»¿ª
±¸¸Å¾ÆÀÌÅÛ ±¸ºÐ ±¸¸Å³¯Â¥ °¡°Ý
<%=name%>
<%=name%>
<%=orderType%> <%=orderDate%>
»Ì±â¾ÆÀÌÅÛ
<%=FormatNumber(sellPrice, 0)%> Æ÷ÀÎÆ®
±¸¸ÅÇϽоÆÀÌÅÛÀÌ ¾ø½À´Ï´Ù.

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