西安网站建设ASP获取客户端屏幕分辨率、ASP获得用户分辨率

13292013-01-19

西安网站建设ASP获取客户端屏幕分辨率、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
%>

 

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1