asp获取屏幕分辨率

<%
'若已经自动转向执行此条件语句
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
%>

显示你浏览器的相关信息：
<%= reguest.servervariables("http_user_agent")%>
显示浏览器的版本：
<% set bc=server.createobject("mswc.browsertype")
response.write bc.browser
response.write bc.version
%>

<%
Function Browser(Info)
Info=Request.ServerVariables("Http_User_Agent") '在这里初始化了Info,在实际应用中可以作为其他变量赋值
If InStr(Info,"MSIE 7")>0 Then
Browser="Internet Explorer 7.0"
ElseIf InStr(Info,"MSIE 6")>0 Then
Browser="Internet Explorer 6.0"
ElseIf InStr(Info,"MSIE 5.5")>0 Then
Browser="Internet Explorer 5.5"
ElseIf InStr(Info,"MSIE 5.0")>0 Then
Browser="Internet Explorer 5.0"
ElseIf InStr(Info,"MSIE 4")>0 Then
Browser="Internet Explorer 4.0"
Else
Browser="未知的浏览器!"
End if
Response.Write "您的浏览器是:"&Browser&"<p>"
End Function

Function System(Info)
Info=Request.ServerVariables("Http_User_Agent")
If InStr(Info,"NT 5.1")>0 Then
System="Windows XP"
ElseIf InStr(Info,"NT 5.0")>0 Then
System="Windows 2000"
ElseIf InStr(Info,"NT 4")>0 Then
System="Windows NT"
ElseIf InStr(Info,"98")>0 Then
System="Windows 98"
ElseIf InStr(Info,"Me")>0 Then
System="Windows Me"
ElseIf InStr(Info,"95")>0 Then
System="Windows 95"
Else
System="未知的操作系统!"
End if
Response.Write "您的操作系统是:"&System&"<p>"
End Function

Call Browser(Info)
Call System(Info)

asp获取屏幕分辨率相关推荐

Android的单位px,pt,dp,sp总结和获取屏幕分辨率
px: pixels(像素). 是屏幕中可以显示的最小单位元素,px是设备密度有关的,不同设备显示效果不同.因为由于不同的设备密度不同,密度就是单位英寸的像素不同,在不同的手机上显示的大小就不同 pt ...
C#获取屏幕分辨率（大小）
using System.Windows.Forms; 获取屏幕分辨率 int SH = Screen.PrimaryScreen.Bounds.Heig ...
Qt界面制作（QSS、获取屏幕分辨率、自定义控件、版权）
源码下载地址: https://download.csdn.net/download/qq78442761/10534055 程序运行截图: 程序版权程序结构图如下: 主要就几点: 1.QSS 2. ...
IOS获取屏幕分辨率
获取屏幕分辨率是个很有用的功能,尤其在一些游戏相关的开发中,图形的绘制与屏幕分辨率密不可分.得到当前屏幕的分辨率是必不可少的支持. 获取屏幕分辨率可以两步走 1.得到当前屏幕的尺寸: CGRect r ...
Android手机获取屏幕分辨率高度因虚拟导航栏带来的问题
大家都知道,Android系统在4.4(KITKAT)版本后,增加了更炫的交互,并且对于标题栏和状态栏也增加了可定制化,于此同时在获取手机分辨率的时候一些旧方法已经不那么好使了. 常用获取屏幕分辨率的 ...
MATLAB获取屏幕分辨率
1. 获取分辨率本来设计程序按照1920x1080运行的,后面调了一下系统缩放,分辨率就变了,所以为了更灵活的使用,还是先获取再使用吧 matlab获取屏幕分辨率命令: get(0,'ScreenS ...
Android kotlin工具类获取屏幕分辨率及宽高
前言获取屏幕相关工具DisplayUtil class DisplayUtil {companion object {/*** 获取屏幕宽度*/fun getScreenWidth(context: ...
使用GTK+获取屏幕分辨率并设置满屏显示效果
在linux下,经常需要设置程序全屏显示,GTK+中提供了获取屏幕分辨率的方式,然后只要根据得到的宽高设置窗口显示大小,同时使用gtk_window_set_decorated去掉边框和标题栏显示,就 ...
iphone中获取屏幕分辨率的方法
iphone中获取屏幕分辨率的方法 CGRect rect = [[UIScreen mainScreen] bounds]; CGSize size = rect.size; CGFloat wid ...

asp获取屏幕分辨率

asp获取屏幕分辨率相关推荐

最新文章

热门文章