<%@ Language=VBScript %> <% Option Explicit Response.Expires = -1 Response.AddHeader "Pragma", "No-Cache" Response.AddHeader "Cache-Control", "No-Store" %> <% '============================================================================ ' º¯¼ö¼±¾ð '============================================================================ Dim objConn, retVal, rsList, i Dim gCash, lBonus, cinfo Dim lotNo, price, RndLev, RndItm, resNo Dim lotRate, lotCycle, getRate, lotLog, topCnt, itemCnt, userIP resNo = Trim(Request.Querystring("resNo")) If resNo = "" Then Call SBeUser(2) End If '============================================================================ ' ±ÇÇÑüũ '============================================================================ If Request.ServerVariables("REMOTE_ADDR") <> "211.219.25.2" Then Call SBeUser(1) End if If Session("authID") < MEMBER Then 'Call SBeUser(1) End If '============================================================================ ' ¿¡·¯Ã³¸®¸¦ À§ÇØ ¹ß»ýÇÏ´Â ¿¡·¯´Â ¹«½ÃÇÏ°í ¿¡·¯¸Þ¼¼Áö¸¦ Ãâ·ÂÇÑ´Ù. '============================================================================ On Error Resume Next '============================================================================ ' Account DB ¿¬°á '============================================================================ SbDBConn "Account", objConn If Err.Number <> 0 then Call SBeUser(-1) End If '============================================================================ ' È­¸é Ãâ·ÂÀ» À§ÇÑ ¾ÆÀÌÅÛ Á¤º¸ Á¶È¸ '============================================================================ 'GachaLevel = µî±Þ 'GachaName = À̸§ 'GachaImg = À̹ÌÁö 'GachaDetail = »ó¼¼Á¤º¸ 'GachaType = ŸÀÔ 'GachaUnit = ±â°£, °¹¼ö retVal = FnGetLotItem(resNo, rsList) If Err.Number <> 0 Or retVal <> 1 Then Call SBeHandler(Err, "¾ÆÀÌÅÛ Á¤º¸¸¦ ºÒ·¯¿Ã¼ö ¾ø½À´Ï´Ù.") End If If StrComp(rsList(0,0), Session("userNo")) <> 0 Then 'Call SBeHandler(Err, "¾ÆÀÌÅÛ Á¤º¸¸¦ ºÒ·¯¿Ã¼ö ¾ø½À´Ï´Ù.") End If '&GachaLevel=&GachaName=&GachaImg=&GachaDetail=&GachaType=&GachaUnit= '============================================================================ ' Account DB ¿¬°á ÇØÁ¦ '============================================================================ SbDBClose objConn Dim description description = Replace(rsList(8,0), vbcrLf, "") description = Replace(description, "%", "%25") description = Replace(description, "
", "%3Cbr%3E") description = Replace(description, "style=color:", "color=") Dim eregObj Set eregObj = New RegExp 'eregObj.Pattern = "(#(?:[a-z0-9]+[^>]))" eregObj.Pattern = "(#(?:[a-z0-9])+)" eregObj.IgnoreCase = True eregObj.Global = True description = eregObj.Replace(description, "'$1'"): Set eregObj = Nothing If Err.Number = 0 Then response.write "&errFlg=0&resultNo=" & resNo & "&GachaLevel=" & rsList(1,0) & "&GachaName=" & Server.URLEncode(rsList(3,0)) & "&GachaImg=" & rsList(4,0) & "&GachaDetail=" & description & "&GachaType=" & rsList(5,0) & "&GachaUnit=" & rsList(6,0) Else Call SBeUser(0) End If %>