Classic ASP 모바일 브라우저 체크

'// 모바일 브라우저인가?
Function is_mobile()
	arr_Browser =  array("iPhone", "iPod", "IEMobile", "Mobile", "lgtelecom", "PPC", "BlackBerry", "SCH-", "SPH-", "LG-", "CANU", "IM-" ,"EV-","Nokia", "Mobi")
	For i = 0 To Ubound(arr_Browser)
		user_agent = Lcase(arr_Browser(i))
        '// preg_match()는 PHP 함수를 ASP 컨버젼한 개인 함수
		If preg_match(user_agent, Request.ServerVariables("HTTP_USER_AGENT")) then
			is_mobile = True
			Exit Function
		End If
	Next
	is_mobile = False
End Function