ASP(VBScript)で携帯ブラウザ別判定をしてみました

携帯とPCのWebページを振り分けるためのスクリプトを探していたところ、PHPやCGI(Perl)は見つけられましたが、ASP(ActiveServerPages)用のものがなかなか見つからなかったのでこちらのサイトのものを参考に書いてみました。
ドコモのケータイシミュレータとGoogleChromeでしか試していませんが、ちゃんと動きそうです。
よかったら使ってみてくださいね。

※判定後に変数Envにはキャリアの名前が文字列で、変数BrowserTypeが1の場合は携帯、0の場合はPCという感じで返します。

---

ここから

---

<%
Dim UA
Dim Env
Dim BrowserType
'Typeが0のときはPC 1のときはケータイ

UA = Request.ServerVariables("HTTP_USER_AGENT")

If InStr(UA,"DoCoMo") > 0 Then
Env = "docomo"
BrowserType = 1

ElseIf InStr(UA,"Vodafone") > 0 Then
Env = "softbank"
BrowserType = 1

ElseIf InStr(UA,"SoftBank") > 0 Then
Env = "softbank"
BrowserType = 1

ElseIf InStr(UA,"MOT-") > 0 Then
Env = "softbank"
BrowserType = 1

ElseIf InStr(UA,"J-PHONE") > 0 Then
Env = "softbank"
BrowserType = 1

ElseIf InStr(UA,"KDDI") > 0 Then
Env = "ezweb"
BrowserType = 1

ElseIf InStr(UA,"UP.Browser") > 0 Then
Env = "ezweb"
BrowserType = 1

ElseIf InStr(UA,"UP.Browser") > 0 Then
Env = "ezweb"
BrowserType = 1

ElseIf InStr(UA,"WILLCOM") > 0 Then
Env = "ezweb"
BrowserType = 1

Else
Env = "pc"
BrowserType = 0

End If

%>