<% browsertype=LCase(Request.ServerVariables("HTTP_USER_AGENT")) if ( (InStr(browsertype, "kindle") + InStr(browsertype, "silk") + InStr(browsertype, "kindle fire")) >0 ) then Response.redirect "http://www.games2win.com/en/amazon-games/kindle-fire-game-apps.asp" End If if ( (InStr(browsertype, "ipad")) >0 ) then Response.redirect "http://www.games2win.com/en/ios-games/ios-ipad-game-apps.asp" End If if ( (InStr(browsertype, "android")) >0 ) then Response.redirect "http://www.games2win.com/en/android-games/android-game-apps.asp" End If if ( (InStr(browsertype, "iphone") + InStr(browsertype, "ipod") + InStr(browsertype, "itouch")) >0 ) then Response.redirect "http://www.games2win.com/en/ios-games/ios-iphone-game-apps.asp" End If if ( (InStr(browsertype, "windows phone") ) >0 ) then Response.redirect "http://www.games2win.com/en/windows-games/windows-game-apps.asp" End If if ( (InStr(browsertype, "windows tablet") + InStr(browsertype, "touch")) >0 ) then Response.redirect "http://www.games2win.com/en/windows-games/windows-tab-game-apps.asp" End If %> <% SetLanguage = Request.Cookies("language") 'Response.Write(SetLanguage) page = split(Request.ServerVariables("URL"),"/") section_name = page(2) section_name = replace(section_name,".asp","") 'Response.Write(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")) 'if SetLanguage =""then SetLanguage = page(1) 'end if if SetLanguage <>"" then SetLanguage = SetLanguage 'Response.Write(SetLanguage) else SetLanguage = "en" end if if SetLanguage ="en" then char_set = "UTF-8" set appDict = appDictEnglish char_code = 1252 end if if SetLanguage ="zh" then char_set = "UTF-8" set appDict = appDictChinese char_code = 65001 end if if SetLanguage ="fr" then char_set = "UTF-8" set appDict = appDictFrench char_code = 65001 end if if SetLanguage ="es" then char_set = "UTF-8" set appDict = appDictSpenish char_code = 65001 end If if SetLanguage ="de" then char_set = "UTF-8" set appDict = appDictGerman char_code = 65001 end If if SetLanguage ="it" then char_set = "UTF-8" set appDict = appDictItalian char_code = 65001 end If if SetLanguage ="nl" then char_set = "UTF-8" set appDict = appDictDutch char_code = 65001 end If if SetLanguage ="ru" then char_set = "UTF-8" set appDict = appDictRussian char_code = 65001 end If if SetLanguage ="no" then char_set = "UTF-8" set appDict = appDictNorwegian char_code = 65001 end If if SetLanguage ="sv" then char_set = "UTF-8" set appDict = appDictSwedish char_code = 65001 end If if SetLanguage ="da" then char_set = "UTF-8" set appDict = appDictDanish char_code = 65001 end If if SetLanguage ="fi" then char_set = "UTF-8" set appDict = appDictFinnish char_code = 65001 end If if SetLanguage ="pl" then char_set = "UTF-8" set appDict = appDictPolish char_code = 65001 end If if SetLanguage ="el" then char_set = "UTF-8" set appDict = appDictGreek char_code = 65001 end If if SetLanguage ="br" then char_set = "UTF-8" set appDict = appDictPortuguese char_code = 65001 end If if SetLanguage ="ja" then char_set = "UTF-8" set appDict = appDictJapanese char_code = 65001 end If if SetLanguage ="cs" then char_set = "UTF-8" set appDict = appDictCzech char_code = 65001 end if if SetLanguage ="ko" then char_set = "UTF-8" set appDict = appDictKorean char_code = 65001 end if if SetLanguage ="tw" then char_set = "UTF-8" set appDict = appDictChineseTaiwan char_code = 65001 end if if SetLanguage ="tr" then char_set = "UTF-8" set appDict = appDictTurkish char_code = 65001 end if if SetLanguage ="hu" then char_set = "UTF-8" set appDict = appDictHungarian char_code = 65001 end if if SetLanguage ="bg" then char_set = "UTF-8" set appDict = appDictBulgarian char_code = 65001 end if if SetLanguage ="ro" then char_set = "UTF-8" set appDict = appDictRomanian char_code = 65001 end if if SetLanguage ="sk" then char_set = "UTF-8" set appDict = appDictSlovak char_code = 65001 end if session("lang") = SetLanguage 'Check whether the page is home page, section page or game page if ubound(page) =2 then 'Include section file - desi, bolyywod, etc... include_file = "/"&SetLanguage&"/gamemenu_"§ion_name&".html" 'For Home page featured_include_file = "/"&SetLanguage&"/"&"homepage_feat.html" teen_include_file = "/"&SetLanguage&"/"&"homepage_teen.html" exotic_include_file = "/"&SetLanguage&"/"&"homepage_desi.html" international_include_file = "/"&SetLanguage&"/"&"homepage_intl.html" misc_include_file = "/"&SetLanguage&"/"&"homepage_misc.html" bollywood_include_file = "/"&SetLanguage&"/"&"homepage_blyw.html" cricket_include_file = "/"&SetLanguage&"/"&"homepage_crkt.html" sports_include_file = "/"&SetLanguage&"/"&"homepage_sprt.html" shooting_include_file = "/"&SetLanguage&"/"&"homepage_shot.html" logic_include_file = "/"&SetLanguage&"/"&"homepage_logc.html" action_include_file = "/"&SetLanguage&"/"&"homepage_actn.html" 'Response.Write(include_file) 'Response.End() ' Game page then else Set xmlGamePage = Server.CreateObject("Microsoft.XMLDOM") xmlGamePage.async = False end if Response.CodePage = char_code response.Charset= char_set 'Look UP Function for Cacheing XML values function LookUp(keyname) LookUp = empty If appDict.Exists(keyname)= True then LookUp = appDict.item(keyname) Else Set xmlCommon = Server.CreateObject("Microsoft.XMLDOM") CommonFilePath = "/"&SetLanguage&"/"&"common.xml" xmlCommon.async = False xmlCommon.load (Server.MapPath(CommonFilePath)) 'Response.Write(keyname) 'Response.End() 'Find Item in DOM, FoundItem FoundItem = xmlCommon.getElementsByTagName(keyname).item(0).text 'Put FoundItem into Global Array appDict.Add keyname, FoundItem 'Return = FoundItem.value LookUp = FoundItem end if end function ' ' ' For Common Language and HomePage ********************************************************** ' ' 'Response.Buffer = True ' ' 'Set xmlCommon = Server.CreateObject("Microsoft.XMLDOM") '' Set xmlHome = Server.CreateObject("Microsoft.XMLDOM") ' ' ' SetLanguage = Request.Cookies("language") ' if SetLanguage ="" then ' SetLanguage = "en" ' end if ' ' '' CommonFilePath = "/"&SetLanguage&"/"&"common.xml" '' GameListFilePath = "/"&SetLanguage&"/"&"homepage.xml" '' '' xmlCommon.async = False '' xmlHome.async = False ' Dim xmlCommon ' if SetLanguage ="en" then ' char_set = "ISO-8859-1" ' 'xmlCommon1 = Application("appDict") ' char_code = 1252 ' end if ' if SetLanguage ="zh" then ' char_set = "gb2312" ' ' char_code = 936 ' ' end if ' if SetLanguage ="fr" then ' char_set = "ISO-8859-1" ' ' char_code = 1252 ' end if ' if SetLanguage ="sp" then ' char_set = "ISO-8859-1" ' ' char_code = 1252 ' end if ' ' 'page = split(Request.ServerVariables("URL"),"/") ' 'Response.Write(xmlCommon1.value) ' 'Response.Write "hello" ' ' 'Response.Write(xmlCommon.getElementsByTagName("featured_game_tab").item(0).text) ' 'Response.End() ' ' 'Set objLstFeaturedTab = xmlHome.getElementsByTagName("featured_online_games_tab") '' Set objLstTeenTab = xmlHome.getElementsByTagName("teen_games_tab") '' Set objLstExoticTab = xmlHome.getElementsByTagName("exotic_games_tab") '' Set objLstInternationalTab = xmlHome.getElementsByTagName("international_games_tab") '' Set objLstMiscellaneousTab = xmlHome.getElementsByTagName("miscellaneous_games_tab") '' Set objLstBollywoodTab = xmlHome.getElementsByTagName("bollywood_games_tab") '' Set objLstCricketTab = xmlHome.getElementsByTagName("cricket_games_tab") '' Set objLstSportsTab = xmlHome.getElementsByTagName("sports_games_tab") '' Set objLstShootingTab = xmlHome.getElementsByTagName("shooting_games_tab") '' Set objLstLogicTab = xmlHome.getElementsByTagName("logic_games_tab") ' ' 'Response.Write( objLst(0) ' 'Response.Write(objLstFeaturedTab.length) ' 'Response.End() ' ' 'Set objLst = xml.getElementsByTagName("header") ' ' 'headingtag = xmlCommon.getElementsByTagName("headingtag").item(0).text ' 'hometab = xmlCommon.getElementsByTagName("hometab").item(0).text ' 'featuredtab = xmlCommon.getElementsByTagName("featuredtab").item(0).text ' 'Response.Write(headingtag) ' 'Set xmlCommon = Nothing ' '%>
料理選手権

記述:

わずかですがお口食品を入れないでください、それは時間がおいしい料理を調理し、それでもあなたの上司と対戦する。上の料理選手権、上司が誰なの詳細全員にプレゼント!

指示:

マウスit.rag方法については、材料をドロップすると、台所のテーブルの上に1つ1つのハイライトは、メーターフードcircle.Complete上にrival.Youする前に、ステップを知ってレシピを元に戻すことができるボタンの上でマウスを使用してplay.Rollover完了ボタンをクリックして、さらに移動を元に戻すbutton.Click 。