<%
'若已經自動轉向執行此條件語句
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获取屏幕分辨率的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。