'実行サーバ名の取得 Dim ServerName Dim BaseURL ServerName = Request.ServerVariables("SERVER_NAME") IF ServerName = "fileserver" Then BaseURL = "http://Fileserver/test/osnet/member" ELSE BaseURL = "https://www.osnet.jp/member" END IF 'HTTP_USER_AGENTを全て小文字に変換して取得する Dim Agent Dim AddUrl Agent = LCase(Request.ServerVariables("HTTP_USER_AGENT")) 'Response.Write "

Agent = " & Agent & "

" 'Response.End if Agent = "" then Agent = "PCDummy" end if AddUrl="" 'Docomo/SoftBank/AU/H" は携帯ページへ if InStr(Agent,"DoCoMo") <> 0 or _ InStr(Agent,"docomo") <> 0 or _ InStr(Agent,"j-phone") <> 0 or _ InStr(Agent,"up.browser") <> 0 or _ InStr(Agent,"SoftBank") <> 0 or _ InStr(Agent,"pdxgw") <> 0 then AddUrl = "/m/" else AddUrl = "/pc/" end if '携帯/PC トップページ振分け(稼動開始したらここだけ有効にすればよい) Response.Redirect(BaseURL & Addurl) Server.Transfer(AddUrl) %>