遊戲新幹線網路防護升級辦法

<% set connMember = getconnMEMBER("connMember3") '------------------------------- modified by Shelly 2004/11/1 set comm = Server.CreateObject("ADODB.Command") comm.activeConnection = connMember comm.CommandType = 4 comm.CommandText = "MCS_SP_QUERY_MAINTAIN_FLAG" comm.Parameters.Append comm.CreateParameter("GAME", 200, 1,10, "FLI") 'not null comm.Parameters.Append comm.CreateParameter("STATUS", 200, 2, 20) comm.execute if isNull(comm("STATUS")) then response.redirect "../under_construction.htm" response.end end if if comm("STATUS") = 1 then response.redirect "../under_construction.htm" response.end end if %> <% status = trim(request("status")) web_id =trim(Request("loginid")) web_pwd =trim(Request("loginpwd")) '----------------------- 'μn￥X '----------------------- if status ="logout" then Response.Cookies("web_id")="" 'session("web_id") <> "" 'session.Abandon() end if if status="login" then web_id =trim(Request("loginid")) web_pwd =trim(Request("loginpwd")) '----------------- 'Create connection '----------------- set connSYS = getconnMEMBER("connMember3") set comm = Server.CreateObject("ADODB.Command") comm.activeConnection = connSYS comm.CommandType = 4 comm.CommandText = "MCS_SP_QUERY_SYS_ID" comm.Parameters.Append comm.CreateParameter("WEB_ID", 200, 1,50, web_id) 'not null comm.Parameters.Append comm.CreateParameter("CHG_ID", 200, 2, 20) comm.Parameters.Append comm.CreateParameter("MEMBER_ID", 200, 2, 20) comm.execute if isnull(comm("MEMBER_ID")) then response.redirect "../join.asp" response.end end if response.cookies("MEMBER_ID") = comm("MEMBER_ID") response.cookies("CHG_ID") = comm("CHG_ID") set connMember = getconnMEMBER(request.cookies("MEMBER_ID")) set comm = nothing '----------------- 'Check web_id '------------ set comm = Server.createobject("ADODB.COMMAND") comm.Activeconnection = connMember comm.Commandtype = 4 comm.Commandtext = "MC_SP_LOGIN" comm.Parameters.Append comm.CreateParameter("Return", 3, 4) comm.Parameters.Append comm.CreateParameter("web_id", 200,1,50, web_id) comm.Parameters.Append comm.CreateParameter("web_pwd",200,1,50, web_pwd) comm.execute if comm(0) > 0 then 'AE?d|1±b﹐1?O§_|33Q-aμ2 --------modified by Shelly Chan 2005/2/23 '---------------------------------------------------------------- set commB = Server.createobject("ADODB.COMMAND") commB.Activeconnection = connMember commB.Commandtype = 4 commB.Commandtext = "MC_SP_QUERY_BLOCK_ID" commB.Parameters.Append commB.CreateParameter("Return", 3, 4) commB.Parameters.Append commB.CreateParameter("web_id", 200,1,50, web_id) commB.execute if commB(0) <> 0 then response.write "" Response.end end if set commB = nothing else response.write "" Response.end end if '------------------------ ' 檢查是否為VIP會員 Modified by Shinwei 2005/5/31 '------------------------- set commVIP = Server.createobject("ADODB.COMMAND") commVIP.Activeconnection = connMember commVIP.Commandtype = 4 commVIP.Commandtext = "MC_SP_CHECK_VIP" commVIP.Parameters.Append commVIP.CreateParameter("Return", 3, 4) commVIP.Parameters.Append commVIP.CreateParameter("web_id", 200,1,50, web_id) set rs_vip = commVIP.execute if rs_vip(0) = 1 then response.write "" set rs_vip = nothing Response.end end if 'response.write "
number="&rs_vip(0) 'response.write "
message="&rs_vip(1) ''response.write "
web_id="&web_id 'response.end set rs_vip = nothing '------------------------ ' 檢查vip會員申請的密碼是否重複 Modified by Shinwei 2005/5/31 '------------------------- set commC = Server.createobject("ADODB.COMMAND") commC.Activeconnection = connMember commC.Commandtype = 4 commC.Commandtext = "MCS_SP_Check_DupVipPwd" commC.Parameters.Append commC.CreateParameter("Return", 3, 4) commC.Parameters.Append commC.CreateParameter("web_id", 200,1,50, web_id) set rs = commC.execute if rs(0) <>1 then response.write "" Response.end set rs = nothing end if '------------------------ ' INSERT VIP會員資料 Modified by Shinwei 2005/5/31 '------------------------- set commD = Server.createobject("ADODB.COMMAND") commD.Activeconnection = connMember commD.Commandtype = 4 commD.Commandtext = "mcs_tb_makevip" commD.Parameters.Append commD.CreateParameter("Return", 3, 4) commD.Parameters.Append commD.CreateParameter("web_id", 200,1,50, web_id) set rs_make =commD.execute if rs_make(0)<>1 then response.write "" set commD = nothing Response.end end if response.Redirect "ok.asp" set commD = nothing set comm = nothing set rscomm = nothing connMember.close : set connMember = nothing Response.end end if %> 遊戲新幹線網路防護升級辦法

想知道自己是否已經符合VIP資格嗎？

先輸入輸入GF帳號密碼、再按下立即查詢。

GF帳號
GF密碼

如玩家對於升級成VIP會員或相關VIP會員之權益與保障有任何疑問
歡迎撥打查詢專線(02)2783-7299，以便能提供更好的服務給予廣大的玩家