Как использовать ASP для получения разрешения экрана клиента, мы можем добиться этого следующими способами:
При доступе к веб-странице используйте js, чтобы получить разрешение браузера, затем перенаправьте на эту веб-страницу и передайте разрешение, затем получите разрешение и сохраните его в сеансе и, наконец, перенаправьте на предыдущую веб-страницу.
Код:
<%
'Если он автоматически перешел на выполнение этого условного оператора
если Bint(trim(request(sw))) > 0, то
сеанс (MyScreenWidth) = Bint (обрезка (запрос (sw)))
сеанс (MyScreenHeight) = Bint (обрезка (запрос (ш)))
ответ.Redirect(сессия(FrontUrl))
конец, если
%>
<%
'Посещение веб-страницы в первый раз
если Bint(session(MyScreenWidth))=0, то
если Bint(trim(request(sw))) = 0, то
сеанс (FrontUrl) = GetUrl()
конец, если
ответ.Write(<сценарий&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(строка)
Если IsNumeric(str), то
Бинт = Clng(строка)
Иначе если IsEmpty(str) тогда
Бинт = 0
Иначе если IsNull(str) тогда
Бинт = 0
Еще
Бинт = 0
Конец, если
Конечная функция
Функция ПолучитьUrl()
sUrl = Request.ServerVariables(URL)
sQueryString =
Для каждого x в Request.QueryString
sQueryString = sQueryString & & & x & = & Server.URLEncode(Request(x))
Следующий
если len(sQueryString)>0, то
sQueryString = right(sQueryString,len(sQueryString)-1)
еще
sQueryString =
конец, если
если len(sQueryString)>0, то
GetUrl = sUrl & & sQueryString
еще
ПолучитьUrl = URL-адрес
конец, если
Конечная функция
%>