웹브라우저 종류별 X-Y좌표 보정하기 > 기술자료

본문 바로가기
사이트 내 전체검색

기술자료

ClassicASP 웹브라우저 종류별 X-Y좌표 보정하기

페이지 정보

댓글 0건 조회 3,758회 수정일 16-08-19 00:00

본문

<%
'클라이언트 브라우저 환경 감지
dim strUserAgent ' 브라우저 타입
strUserAgent = UCase(cstr(request.ServerVariables("HTTP_USER_AGENT")))

dim IE
dim IE6
dim IE7
dim IE8
dim IE9
dim IE10
dim IE11
dim Opera
dim Opera5
dim ChromeSafari
dim Chrome
dim Safari
dim Firefox
dim Android
dim OtherBrowser

IE = FALSE
IE6 = FALSE
IE7 = FALSE
IE8 = FALSE
IE9 = FALSE
IE10 = FALSE
IE11 = FALSE
if InStr(strUserAgent, "MSIE 6") then
  IE = TRUE
  IE6 = TRUE
elseif InStr(strUserAgent, "MSIE 7") then
  IE = TRUE
  IE7 = TRUE
elseif InStr(strUserAgent, "MSIE 8") then
  IE = TRUE
  IE8 = TRUE
elseif InStr(strUserAgent, "MSIE 9") then
  IE = TRUE
  IE9 = TRUE
elseif InStr(strUserAgent, "MSIE 10") then
  IE = TRUE
  IE10 = TRUE
elseif InStr(strUserAgent, "v:11") then
  IE = TRUE
  IE11 = TRUE
elseif InStr(strUserAgent, "RV:11") then
  IE = TRUE
  IE11 = TRUE
end if
 
Opera = FALSE
Opera5 = FALSE
If InStr(strUserAgent, "Opera") or InStr(strUserAgent, "OPERA") then
  Opera = TRUE
end If
If InStr(strUserAgent, "Opera 5") _
or InStr(strUserAgent, "Opera/5") then
  Opera5 = TRUE
end If
 
Firefox = FALSE
If InStr(strUserAgent, "Firefox") or InStr(strUserAgent, "FIREFOX") then
  Firefox = TRUE
end If
 
Android = FALSE
If InStr(strUserAgent, "Mobile Safari") or InStr(strUserAgent, "ANDROID") then
  Android = TRUE
end If
 
Chrome = FALSE
If InStr(strUserAgent, "Chrome") then
  Chrome = TRUE
end If
 
Safari = FALSE
If InStr(strUserAgent, "Safari") or InStr(strUserAgent, "SAFARI") then
  Safari = TRUE
end If
%>

<%
' X좌표 보정하기
dim hp_xlayer
hp_xlayer = "0" ' IE11
if IE6 then
  hp_xlayer = hp_xlayer - 475
elseIf IE7 then
  hp_xlayer = hp_xlayer + 0
elseIf IE8 then
  hp_xlayer = hp_xlayer + 0
elseIf IE9 then
  hp_xlayer = hp_xlayer + 0
elseIf IE10 then
  hp_xlayer = hp_xlayer + 0
elseIf IE11 then
  hp_xlayer = hp_xlayer + 0
elseIf Chrome then
  hp_xlayer = hp_xlayer + 0
elseIf Android then
  hp_xlayer = hp_xlayer - 50
elseIf Safari then
  hp_xlayer = hp_xlayer + 0
elseif Firefox then
  hp_xlayer = hp_xlayer - 0
else
  hp_xlayer = hp_xlayer - 0
end if

response.write hp_xlayer
%>

<%
'Y좌표 보정하기
dim hp_ylayer
hp_ylayer = "15"  ' IE11
if IE6 then
  hp_ylayer = hp_ylayer + 0
elseIf IE7 then
  hp_ylayer = hp_ylayer + 0
elseIf IE8 then
  hp_ylayer = hp_ylayer + 3
elseIf IE9 then
  hp_ylayer = hp_ylayer + 3
elseIf IE10 then
  hp_ylayer = hp_ylayer + 3
elseIf IE11 then
  hp_ylayer = hp_ylayer + 0
elseIf Chrome then
  hp_ylayer = hp_ylayer - 0
elseIf Android then
  hp_ylayer = hp_ylayer - 0
elseIf Safari then
  hp_ylayer = hp_ylayer - 0
elseif Firefox then
  hp_ylayer = hp_ylayer - 0
else
  hp_ylayer = hp_ylayer
end if

response.write hp_ylayer
%>
  • 트위터로 보내기
  • 페이스북으로 보내기
  • 구글플러스로 보내기

댓글목록

등록된 댓글이 없습니다.


Total 201건 1 페이지
기술자료 목록
번호 제목
201 ClassicASP
200 ClassicASP
한글 깨짐 변환 (up.2018-03-16 04:56) Hit.389
199 ClassicASP
198 ClassicASP
197 ClassicASP
TypeLib를 로드할 수 없음 (wr.2017-12-27) Hit.819
196 ClassicASP
파일 다운로드 소스 (wr.2017-09-13) Hit.978
195 ClassicASP
194 ClassicASP
작은따옴표(')문제 (wr.2016-10-28) Hit.2023
193 ClassicASP
이전글 다음글 추가하기 (wr.2016-08-18) Hit.2508
192 ClassicASP
chr 코드표 보기 (wr.2016-05-28) Hit.3105
191 ClassicASP
190 ClassicASP
189 ClassicASP
Function과 Sub의 차이점 (wr.2016-02-25) Hit.3010
188 ClassicASP
187 ClassicASP
186 ClassicASP
[IIS7] 세션(session) 시간 늘리기 (up.2016-02-26) Hit.5720
185 ClassicASP
184 ClassicASP
Contents.RemoveAll (Session 객체) (wr.2016-01-22) Hit.2265
183 ClassicASP
코드 실행시간 측정하기 (wr.2016-01-18) Hit.2206
182 ClassicASP
특정 IP에서만 보기 (wr.2016-01-13) Hit.2193
181 ClassicASP
웹페이지 출력하기 (up.2016-02-03) Hit.2411
180 ClassicASP
179 ClassicASP
CreateParameter 메서드 (ADO) (wr.2015-03-25) Hit.3295
178 ClassicASP
177 ClassicASP
ABCUpload4 업로드 문제 (wr.2014-12-03) Hit.5592
게시물 검색

회원로그인

접속자집계

오늘
2,796
어제
3,099
최대
3,099
전체
3,913,617

회사명 해피정닷컴 주소 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
사업자 등록번호 119-05-36414 대표 정창용 전화 070-7600-3500 팩스 02-865-3528
통신판매업신고번호 2014-서울구로-0074 개인정보 보호책임자 정창용
Copyright © 2001-2018 해피정닷컴. All Rights Reserved.