로스트사가 게임 실행 중입니다.

<% OPTION EXPLICIT %> <% Response.Expires = 0 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-Control", "no-cache, no-store, must-revalidate" Response.AddHeader "Expires", "-1" Dim db, dbcon, sql, rs Dim userID, accountIDX, zoneType, zoneName, gameServerID, userIP Dim useKey, fixKey Dim oEncryptor, encodeID, encodeKey, encodeIP, encodeIPKey, sendKeyString, prevKey, exeTime, chgKeyTime userID = session("userID") zoneType = Request.Form("zoneType") useKey = "" chgKeyTime = 5 userIP = Request.Servervariables("REMOTE_HOST") Select Case zoneType Case 1 : zoneName = "QA_ZONE" %><% Case 3 : zoneName = "DEV_ZONE" %><% Case Else zoneName = "DEV_ZONE" %><% End Select If userID = "" or isNull(userID) or Len(userID) = 0 Then db.close Set db=Nothing %> <% Response.End End If '세션 accountIDX 값이 싱글존으로 되어 있어서 다른존과 accountIDX 불일치. 때문에 accountIDX 가져오는 구문 추가 sql = "EXEC web_get_accountIDX '" & userID & "'" Set rs = db.Execute(sql) If rs.eof and rs.bof Then rs.close Set rs=Nothing db.close Set db=Nothing %> <% Response.End End If accountIDX = rs("accountIDX") sql = "EXEC web_game_server_get_data_top1" Set rs = db.Execute(sql) If rs.eof and rs.bof Then rs.close Set rs=Nothing db.close Set db=Nothing %> <% Response.End Else gameServerID = rs("serverID") End If useKey = CreateEncodeKey() sql = "EXEC web_user_login_count '" & userID & "'" Set rs=db.Execute(sql) If rs(0) = 0 Then rs.close Set rs=Nothing db.close Set db=Nothing %> <% Response.End End If sql = "EXEC web_user_login_enkey_get_data '" & accountIDX & "'" Set rs = db.Execute(sql) If rs.eof and rs.bof Then rs.close Set rs=Nothing db.close Set db=Nothing %> <% Response.End End If prevKey = rs("encodeKey") exeTime = rs("connDate") If DateDiff("n",exeTime,Now()) < chgKeyTime Then useKey = prevKey Else sql = "EXEC web_user_login_enkey_update '" & userID & "', '" & useKey & "', '" & userIP & "'" db.Execute(sql) End If sql = "EXEC web_fixkey_get_data" Set rs=db.Execute(sql) fixKey = rs(0) Set oEncryptor = Server.CreateObject("IoEncrypt.Encrypt") encodeID = oEncryptor.Encode15 (userID,fixKey) encodeKey = oEncryptor.Encode15 (useKey,useKey) encodeIP = oEncryptor.Encode15 (userIP,fixKey) encodeIPKey = oEncryptor.Encode15 (useKey,fixKey) Set oEncryptor = Nothing Dim strSenKeyString strSenKeyString = encodeKey & encodeID Dim strSenIPKeyString strSenIPKeyString = encodeIPKey & encodeIP rs.close Set rs=Nothing db.close Set db=Nothing 'response.write(zoneName) 'response.end '------------------------------------------------------------------------------------------------------------ ' 프로토콜 설정 '------------------------------------------------------------------------------------------------------------ Dim strProtocol strProtocol = "LostSagaQA" %> 로스트사가 게임 실행 중입니다. | 로스트사가

로딩중입니다. 잠시만 기다려주세요. 최초 실행 시 로스트사가 웹매니저 설치 페이지로 이동합니다