怎么在ASP里知道客户的IE跟操作系统！

pan5 2005-07-18 03:02:58

我需要的是代码!

...全文

155 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

libao1983 2005-07-19

打赏
举报

TMD,搂主给分太不公平了!!!
我明明第一个把答案都说了,却一分都不给我

pan5 2005-07-18

打赏
举报

信息不全呀！

zhangguozhixp 2005-07-18

打赏
举报

Request.ServerVariables("HTTP_USER_AGENT")
就可以！

xinyuan_z 2005-07-18

打赏
举报

用组件Browser Capabilities，它是ASP的内部组件，直接调用即可，
先申明下，set BC=server.CreateObject("MSWC.BrowserType")
bc.Version是版本号
bc..platform是操作系统平台

白夜花寒 2005-07-18

打赏
举报

Request.ServerVariables("HTTP_USER_AGENT")

你查查都有哪些吧

Request.ServerVariables很多功能的,比如IP也要靠这个获得的

pan5 2005-07-18

打赏
举报

没有更详细的吗？

libao1983 2005-07-18

打赏
举报

'++++++++++++++以下是程序的正文+++++++++++++++++
<HTML>
<HEAD>
<TITLE> 浏览器检测 </TITLE>
</HEAD>
<BODY>
<%
Dim BrowseMsg,BrowseVersion,SystemVersion
BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")
'+++++++++++一个基本判别操作系统的函数+++++++++++
Function SystemCheck()
if inStr(BrowseMsg,"Windows 98") then
SystemCheck="Windows 98"
else if inStr(BrowseMsg,"Windows NT 4.0") then
SystemCheck="Windows NT 4.0"
else if inStr(BrowseMsg,"Windows NT 5.0") then
SystemCheck="Windows NT 2000"
else
SystemCheck="未知类型"
end if
end if
end if
end Function
'由于时间的原因我没有写判定win95和windows xp的语句，感兴趣的网友可以
'自行添加：)
'+++++++++++结束+++++++++++
if inStr(BrowseMsg,"MSIE") then
SystemVersion=CInt(Mid(BrowseMsg,inStr(BrowseMsg,"MSIE")+5,1))
response.write "您的浏览器的版本是 IE"&BrowseVersion&"<BR>"
response.write "您的操作系统是 "&SystemCheck()
end if
%>
</BODY>
</HTML>
----------------------------------------