ASP脚本获取客户端系统信息
来源:互联网 发布:黑马程序员简历 编辑:程序博客网 时间:2024/06/06 21:38
<%
'若已经自动转向执行此条件语句
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脚本获取客户端系统信息
- ASP 获取客户端信息
- asp.net获取客户端信息
- asp.net 获取客户端信息
- ASP.NET获取客户端信息
- ASP.NET获取客户端信息
- ASP.NET获取客户端信息
- asp.net获取客户端信息
- asp.net获取服务端和客户端信息
- ASP.NET 中获取客户端浏览器信息
- ASP.NET获取客户端浏览器信息!
- asp.net 获取客户端相关信息
- asp.net4 获取浏览器客户端信息
- ASP.NET获取客户端、服务器端基础信息
- ASP.NET获取客户端浏览器信息!
- asp.net获取客户端请求页面信息
- ASP.NET获取客户端、服务器端基础信息
- ASP.NET获取客户端浏览器信息!
- Java程序员到架构师的推荐阅读书籍
- 两个VB程序之交换数据的DDE工程
- Testinside 最新 免费 IBM 000-737 精华考题(1)
- C语言中的#与##
- MMAnalyzer中文搜索(极易中文分词组件)
- ASP脚本获取客户端系统信息
- 宇瞻DDR3-1600高频内存
- 【转】BADI!!!!!!!!!!
- 接口 Iterator
- floodfile
- 操作重复记录 示例收录
- 【转】马云+牛根生+史玉柱 经典语录 !!!
- 相机的 高清到底是一个什么东西
- 计算机远程登陆超出最大连接数解决方法