<%
'接收參數
Function ReqTxt(KTxt)
KTxt = Trim(KTxt)
If KTxt = "" Then Exit Function
HTxt = " `=\~@$%&*+|[]{};':""./<>?"
For A = 1 To Len(KTxt)
HTxt1 = InStr(HTxt, Mid(KTxt, A, 1))
If HTxt1 = 0 Then
ReqTxt = ReqTxt + Mid(KTxt, A, 1)
else
ReqTxt = "-1"
Exit Function
End If
Next
End Function
Game = LCase(request("GAME")) '換圖用
GameArray=split(Game&"/game_title.jpg","/")
gametext=GameArray(0)
gametitle=GameArray(1)
response.cookies("INAPPID")= ReqTxt(request("APPID")) '來源代碼(WEB GAME 倒過來時會帶在網址後面)
response.cookies("INTS")= ReqTxt(request("TS")) '時間(WEB GAME 倒過來時會帶在網址後面)
response.cookies("INGAME")= LCase(ReqTxt(gametext)) '遊戲別(WEB GAME 倒過來時會帶在網址後面)
response.cookies("INGAME_ID")= request("USERNAME") '遊戲帳號(WEB GAME 倒過來時會帶在網址後面)
response.cookies("INSERVER_ID")= ReqTxt(request("SERVER_ID")) '伺服器(WEB GAME 倒過來時會帶在網址後面)
response.cookies("INTOKEN")= ReqTxt(request("TOKEN")) '驗證碼(WEB GAME 倒過來時會帶在網址後面)
response.cookies("INPTID")= request("PTID") '平台ID(WEB GAME 倒過來時會帶在網址後面)
response.cookies("Test")= request("Test") '測試用
response.cookies("MCServer")= ReqTxt(request("SERVER_ID")) '伺服器(新版Mycard使用)
response.cookies("ChargeMode") = "DirectCharge" '儲值方式
if Game = "" then
Response.Redirect "http://www.gameflier.com"
end if
'if Game = "LV" or Game = "lv" then
' response.redirect "/billing/ONLINE_SERVICES/under_construction.htm"
' response.end
'end if
If Game = "RO" Or Game = "ROIM" Or Game = "ROOF" Then
gametitle = Game + "_game_title.jpg"
End If
%>
GF Station
