ASP를 사용하여 클라이언트 화면 해상도를 얻는 방법은 다음과 같은 방법으로 얻을 수 있습니다.
웹 페이지에 접속할 때 js를 사용하여 브라우저의 해상도를 가져온 다음 이 웹 페이지로 리디렉션하고 해상도를 전달한 다음 해상도를 받아 세션에 저장하고 마지막으로 이전 웹 페이지로 리디렉션합니다.
암호:
<%
'이 조건문을 실행하기 위해 자동으로 이동한 경우
Bint(trim(request(sw))) > 0이면
세션(MyScreenWidth)=Bint(trim(요청(sw)))
session(MyScreenHeight) = Bint(trim(request(sh)))
응답.리디렉션(세션(FrontUrl))
종료하면
%>
<%
'처음으로 웹페이지를 방문해 보세요.
Bint(session(MyScreenWidth))=0이면
Bint(trim(request(sw))) = 0이면
세션(FrontUrl) = GetUrl()
종료하면
응답.쓰기(<스크립트&ipt>)
Instr(GetUrl(),?) > 0이면
response.Write(window.location='&GetUrl()&&sw='+screen.width+'&sh='+screen.height;)
또 다른
response.Write(window.location='&GetUrl()&?sw='+screen.width+'&sh='+screen.height;)
종료하면
응답.쓰기(</scr&ipt>)
종료하면
%>
<%=해결 방법: &session(MyScreenWidth)&*&session(MyScreenHeight)%>
<%
'다음은 여러 가지 기능입니다
함수 Bint(str)
IsNumeric(str)이면
Bint = Clng(str)
Elseif IsEmpty(str) 그런 다음
빈트 = 0
Elseif IsNull(str) 다음
빈트 = 0
또 다른
빈트 = 0
다음과 같은 경우 종료
기능 종료
함수 GetUrl()
sUrl = 요청.서버 변수(URL)
sQueryString =
Request.QueryString의 각 x에 대해
sQueryString = sQueryString & & & x & = & Server.URLEncode(요청(x))
다음
len(sQueryString)>0이면
sQueryString = 오른쪽(sQueryString,len(sQueryString)-1)
또 다른
sQueryString =
종료하면
len(sQueryString)>0이면
GetUrl = sUrl & & sQueryString
또 다른
GetUrl = sUrl
종료하면
기능 종료
%>