%@ 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 %>
±¸¸Å¾ÆÀÌÅÛ | ±¸ºÐ | ±¸¸Å³¯Â¥ | °¡°Ý | ||
---|---|---|---|---|---|
![]() |
<%=name%> |
<%=orderType%> | <%=orderDate%> | <% If sellPrice = 0 Then %>»Ì±â¾ÆÀÌÅÛ |
<%
Else
%>
<%=FormatNumber(sellPrice, 0)%> Æ÷ÀÎÆ® |
<%
End If
%>
±¸¸ÅÇϽоÆÀÌÅÛÀÌ ¾ø½À´Ï´Ù. |