HOME       LIST

【Classic ASP】ブラウザーチェック

ブラウザーチェック

自分を許してあげる。外部のせいだとの言い訳はしないこと。 - 2016/06/18(DOJEUN)

We did a lot of walking today.(今日はよく歩いた/今日はたくさん歩きました)


If BrowserCheck() = False Then Response.Redirect "IEerror.asp"

FUNCTION BrowserCheck()
	Dim mstrBrowser
	Dim mintPosition

	mstrBrowser  = Request.ServerVariables("HTTP_USER_AGENT")
	mintPosition = InStr(mstrBrowser,"MSIE")
	If mintPosition <> 0 Then
		'--IEの場合
		mstrBrowser  = Mid(mstrBrowser,mintPosition+5,Len(mstrBrowser))
		mintPosition = InStr(mstrBrowser,";")
		mstrBrowser  = left(mstrBrowser,mintPosition-1)
		If CDbl(mstrBrowser) < 4.0 Then
			'--バージョンが4より小さい場合
			BrowserCheck = False
		Else
			BrowserCheck = True
		End If
	Else
		'--IEではない場合
		BrowserCheck = False
	End If
END FUNCTION

以前コンテンツ:【Classic ASP】日付(YYYYMMDDHHMMSS)返還
次のコンテンツ:【C#】引数と一緒に実行



Copyright(c) 2007-2020 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional