<%
'--------------
'判斷是否維護
'--------------
Set Obj_MainTain = CreateObject("MainTain_DLL.MainTain")
ret_MainTain = Obj_MainTain.Query_MainTain("VIP")
set Obj_MainTain = nothing
If ret_MainTain = "" Then
response.redirect "../../service.asp"
response.end
Else
MainTain_status = split(ret_MainTain,"|")
End If
if cint(MainTain_status(0)) = 1 then
response.redirect "../under_construction.htm"
response.end
end if
'=========================================
'接收參數資料
'=========================================
web_id = request.cookies("web_id")
game = request.cookies("game")
flag = request.cookies("flag")
game_id = request("game_id")
if game <> request.cookies("game") then
select_game_id = ""
else
select_game_id = request("game_id")
end if
'=========================================
'判斷遊戲
'=========================================
if game = "SO" then
game_name1 = "三國群英傳"
elseif game = "W2" then
game_name1 = "完美世界(人魚傳說)"
elseif game = "RO" then
game_name1 = "仙境傳說(月費型)"
elseif game = "ROIM" then
game_name1 = "仙境傳說(免費型)"
elseif game = "TTH" then
game_name1 = "新絕代雙驕"
elseif game = "EI" then
game_name1 = "傳奇3"
elseif game = "JX" then
game_name1 = "劍俠情緣"
elseif game = "JX2" then
game_name1 = "劍俠情緣2"
elseif game = "RF" then
game_name1 = "RF"
elseif game = "GO" then
game_name1 = "搞鬼"
elseif game = "AL" then
game_name1 = "天使之戀"
elseif game = "NOBOL" then
game_name1 = "信長之野望"
elseif game = "TS" then
game_name1 = "十二之天"
elseif game = "FT" then
game_name1 = "網球拍拍"
elseif game = "FDO" then
game_name1 = "炎龍騎士團"
elseif game = "KO" then
game_name1 = "終極online"
elseif game = "WL" then
game_name1 = "新武林外傳"
elseif game = "WSO" then
game_name1 = "Web三國"
elseif game = "TL" then
game_name1 = "天龍八部"
elseif game = "ZX" then
game_name1 = "誅仙2"
elseif game = "FJ" then
game_name1 = "風火之旅"
elseif game = "HS" then
game_name1 = "籃球火"
elseif game = "TS2" then
game_name1 = "十二之天貳"
elseif game = "GC" then
game_name1 = "GlogCity"
elseif game = "CPO" then
game_name1 = "仙劍2.0"
else
response.write ""
end if
'-------------------
'撈出玩家的遊戲帳號
'-------------------
if game <>"" or isNull(game) then
on error resume next
set gfobj = Server.CreateObject("GF_Reg_DLL.GF_Reg_DLL")
if game = "3GO" then
Result_GameID = gfobj.Reg_QueryGameID(web_id,"WSO")
elseif game = "ZHTS" or game = "WLB" or game = "GC" then
Result_GameID = gfobj.Reg_QueryGameID(web_id,"GC")
else
Result_GameID = gfobj.Reg_QueryGameID(web_id,game)
end if
set gfobj = nothing
'Response.write Result_GameID : Response.end
If Result_GameID = "" Then
err_msg="很抱歉,資料庫目前忙碌中或是您的資料處理有誤,請稍後再試!!"
response.write ""
Response.End
Else
Ret_GameID = split(Result_GameID,"|")
End If
If CInt(Ret_GameID(0)) = 5 Then
'成功!!
dim game_id()
reDim game_id(1)
For b = 1 to Ubound(Ret_GameID)-1
If Trim(Ret_GameID(b)) <> "" then
game_id(UBound(game_id)) = Ret_GameID(b)
reDim preserve game_id(UBound(game_id)+1)
End If
Next
reDim preserve game_id(UBound(game_id)-1)
response.cookies("gf_bar") =0
showpop = 0
ElseIf CInt(Ret_GameID(0)) = -16 then
reDim game_id(0)
response.cookies("gf_bar") =0
showpop = 0
Else
err_msg="查詢遊戲帳號失敗!"
response.write ""
Response.End
end if
end if
SET conn_vip = getconnGAME("GF_VIP2")
'-------------------
'撈出遊戲伺服器
'-------------------
set comm_vip3 = Server.CreateObject("ADODB.Command")
set rs_vip3 = Server.CreateObject("ADODB.Recordset")
comm_vip3.activeConnection = conn_vip
comm_vip3.CommandType = 4
comm_vip3.CommandText = "SP_GF_VIP_GAME_SERVER"
comm_vip3.Parameters.Append comm_vip3.CreateParameter("Return",3,4)
comm_vip3.Parameters.Append comm_vip3.CreateParameter("game",200, 1,20, game)
set rs_vip3 = comm_vip3.execute
IF rs_vip3(0) <> 1 THEN
RESPONSE.WRITE ""
conn_vip.close
response.end
END IF
%>
GF Station