<%
' Anybuilder VX Edition Provisioning
' Programmed By Mobile Solution Team
' CopyRight ⓒ 2000-2006 ANYBIL Co.,Ltd.
' 순서를 바꾸면 정상적으로 작동되지 않을 수도 있습니다.
agent = Request.ServerVariables("HTTP_USER_AGENT")
subno = Request.ServerVariables("HTTP_X_UP_SUBNO")
raw = Request.ServerVariables("ALL_RAW")
accept = Request.ServerVariables("HTTP_ACCEPT")
agentskt = Mid(agent, 10, 2)
For i = 1 To 2
If Mid(agentskt, i, 1) >= "0" And Mid(agentskt, i, 1) <= "9" Then
Else
agentskt = "00"
Exit For
End If
Next
If InStr(subno, "ezweb") >= 1 And InStr(agent, "UP.Browser/4.1") >= 1 Then
'ez-i(UP4.1)
redirect = "http://yourdomain/upwml/index.asp"
ElseIf InStr(subno, "ezweb") >= 1 And Left(agent, 3) = "111" Then
'ez-i(AUR)
redirect = "http://yourdomain/wml/index.asp"
ElseIf (Left(agent, 3)="111" Or Left(agent, 3)="117" Or Left(agent, 3)="116" Or Left(agent, 3)="118" Or Left(agent, 3)="119" Or Left(agent, 3)="010" Or Left(agent, 3)="SKT" Or Left(agent, 3)="STI" Or Left(agent, 3)="KTF" Or Left(agent, 3)="HSP" Or Left(agent, 3)="LGT" Or Left(agent, 1)="I") And (CInt(agentskt) >= 5) Then
'NATE(nateⓜ)
redirect = "http://yourdomain/wml2/index.asp"
ElseIf (Left(agent, 3)="111" Or Left(agent, 3)="117" Or Left(agent, 3)="116" Or Left(agent, 3)="118" Or Left(agent, 3)="119" Or Left(agent, 3)="010" Or Left(agent, 3)="SKT" Or Left(agent, 3)="STI" Or Left(agent, 3)="KTF" Or Left(agent, 3)="HSP" Or Left(agent, 3)="LGT" Or Left(agent, 1)="I") Or InStr(raw,"nate.com") >= 1 Then
'NATE(AUR)
redirect = "http://yourdomain/wml/index.asp"
ElseIf InStr(subno, "EB") >= 1 Then
'ez-i(Embidder)
redirect = "http://yourdomain/xhtml/index.asp"
ElseIf InStr(subno, "KB") >= 1 Then
'ez-i(KB)
redirect = "http://yourdomain/upwml/index.asp"
ElseIf InStr(subno,"itouch") >= 1 and inStr(agent,"UP.Browser/4.1") >= 1 Then
'iTouch(UP4.1)
redirect = "http://yourdomain/upwml/index.asp"
ElseIf InStr(agent,"DoCoMo") >= 1 Then
'i-mode
redirect = "http://yourdomain/chtml/index.asp"
ElseIf InStr(agent,"J-PHONE") >= 1 Then
'J-PHONE
redirect = "http://yourdomain/chtml/index.asp"
ElseIf InStr(subno,"itouch") >= 1 Then
'iTouch(UP3.1)
redirect = "http://yourdomain/upwml/index.asp"
ElseIf InStr(subno,"ezweb") >= 1 Then
'ez-i(UP3.1)
redirect = "http://yourdomain/upwml/index.asp"
ElseIf InStr(agent,"KUN") >= 1 Then
'magicⓝ(KUN)
redirect = "http://yourdomain/kun/index.asp"
ElseIf InStr(agent,"CellPhone") >= 1 Then
'magicⓝ(ME)
redirect = "http://yourdomain/mhtml/index.asp"
ElseIf InStr(agent,"MMEF300") >= 1 Then
'MME30 시뮬레이터인 경우
redirect = "http://yourdomain/mhtml/index.asp"
ElseIf InStr(agent,"UP.Browser") >= 1 Then
If InStr(agent,"UP.Browser/3") >= 1 Then
'hdml용 UP브라우저3.1/3.2 시뮬레이터인 경우
redirect = "http://yourdomain/upwml/index.asp"
ElseIf InStr(agent,"UP.Browser/6") >= 1 Or InStr(agent,"UP.Browser/7") >= 1 Then
'xhtml용 UP브라우저6 시뮬레이터인 경우
redirect = "http://yourdomain/xhtml/index.asp"
Else
'UP브라우저4.0이상 시뮬레이터인 경우
redirect = "http://yourdomain/upwml/index.asp"
End If
ElseIf InStr(accept,"xhtml") >= 1 Then
'xHTML을 지원하는 기타/해외 단말
If InStr(agent,"iPhone") >= 1 Then
'iPhone 경우
redirect = "http://yourdomain/pda/index.asp"
Else
redirect = "http://yourdomain/xhtml/index.asp"
End If
ElseIf InStr(accept,"wml") >= 1 Then
'wml을 지원하는 기타/해외 단말
redirect = "http://yourdomain/wml/index.asp"
Else
'Web/pda 브라우저
redirect = "http://yourdomain/pda/index.asp"
End If
response.Redirect redirect
%>
http://cafe.naver.com/domfam.cafe?iframe_url=/ArticleRead.nhn%3Farticleid=3583