Notice
Recent Posts
Recent Comments
Tags more
«   2024/12   »
일 월 화 수 목 금 토
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
Archives
Today
Total
관리 메뉴

웹개발자의 기지개

[ASP] 모바일인지 pc인체 체크하기 본문

ASP

[ASP] 모바일인지 pc인체 체크하기

http://portfolio.wonpaper.net 2020. 10. 18. 05:29
1
2
3
4
5
6
7
8
9
10
11
12
13
14
<%
mob = "iPod|iPhone|Android|BlackBerry|SymbianOS|SCH-M\d+|Opera Mini|Windows CE|Nokia|SonyEricsson|webOS|PalmOS"
splitmo = split(mob,"|")
agent = Request.ServerVariables("HTTP_USER_AGENT")
 
For i = 0 to UBound(splitmo )
    If InStr(agent,splitmo (i)) > 0 Then
        Response.Redirect("/모바일.asp")
    else
        Response.Redirect("/웹.asp")
        Exit for
    End If
Next
%>
 cs

참고 : m.blog.naver.com/hosicee22/220237901793

 

 

위의 소스를 나름 함수화하여 정리해 보았다.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<%
'모바일인지 pc인지 체크하기
Function isItMobile()
    Dim boo
    boo = False
    
    mob = "iPod|iPhone|Android|BlackBerry|SymbianOS|SCH-M\d+|Opera Mini|Windows CE|Nokia|SonyEricsson|webOS|PalmOS"
    splitmo = split(mob,"|")
    agent = Request.ServerVariables("HTTP_USER_AGENT")
    For i = 0 to UBound(splitmo )
        If InStr(agent,splitmo (i)) > 0 Then
            boo = True 
            Exit For 
        End If
    Next
    
    isItMobile = boo
End Function
%>
cs

'ASP' 카테고리의 다른 글

[ASP] VBScript runtime error '800a0006' Overflow 에러 대처법  (0) 2020.11.21
[ASP] 메일발송하기  (0) 2020.11.12
[ASP] ActiveX component can't create object: 'MSXML2.DOMDocument 4.0' 에러처리  (0) 2020.10.12
[ASP] 3초후 페이지 로딩하기 (페이지 로딩 지연시키기)  (0) 2020.06.13
[asp] 페이지 euc-kr 설정, utf-8 설정  (0) 2020.03.14
'ASP' Related Articles more
Comments