怎样用ASP获取客户端屏幕分辨率

发布时间：2023-07-22 15:05:34 所属栏目：Asp教程来源：

导读：如何用ASP获取客户端屏幕分辨率，我们可以通过以下方式实现：

在访问网页的时候使用js获得浏览器的分辨率然后转向本网页并把分辨率传出去，然后接收分辨率并把它存储在session中，最后再转到之前的网页

代码

如何用ASP获取客户端屏幕分辨率，我们可以通过以下方式实现：

在访问网页的时候使用js获得浏览器的分辨率然后转向本网页并把分辨率传出去，然后接收分辨率并把它存储在session中，最后再转到之前的网页

代码：

<%

'若已经自动转向执行此条件语句

if Bint(trim(request("sw"))) > 0 then

   session("MyScreenWidth")=Bint(trim(request("sw")))

   session("MyScreenHeight") = Bint(trim(request("sh")))

   response.Redirect(session("FrontUrl"))

end if

%>

<%

'第一次访问网页

if Bint(session("MyScreenWidth"))=0 then

if Bint(trim(request("sw"))) = 0 then

   session("FrontUrl") = GetUrl()

end if

response.Write("<scr"&"ipt>")

if Instr(GetUrl(),"?") > 0 then

   response.Write("window.location='"&GetUrl()&"&sw='+screen.width+'&sh='+screen.height;")

else

   response.Write("window.location='"&GetUrl()&"?sw='+screen.width+'&sh='+screen.height;")

end if

response.Write("</scr"&"ipt>")

end if

%>

<%="你的分辨率是："&session("MyScreenWidth")&"*"&session("MyScreenHeight")%>

<%

'下面是几个函数

Function Bint(str)

If IsNumeric(str) then

   Bint = Clng(str)

Elseif IsEmpty(str) then

   Bint = 0

Elseif IsNull(str) then

   Bint = 0

Else

   Bint = 0

End if

End function

Function GetUrl()

sUrl = Request.ServerVariables("URL")

sQueryString = ""

For Each x In Request.QueryString

sQueryString = sQueryString & "&" & x & "=" & Server.URLEncode(Request(x))

Next

if len(sQueryString)>0 then

sQueryString = right(sQueryString,len(sQueryString)-1)

else

sQueryString = ""

end if

if len(sQueryString)>0 then

GetUrl = sUrl & "?" & sQueryString

else

GetUrl = sUrl

end if

End function

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!