获取客户端操作系统版本和IE版本的ASP代码怎么写呀？谢谢急用

[kkgolf]

获取客户端操作系统版本和IE版本的ASP代码怎么写呀？谢谢急用

[QCB181]

' 客户端软件使用情况
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
' 浏览器
if instr(thesoft,"NetCaptor") then
vsoft="NetCaptor"
elseif instr(thesoft,"MSIE 6") then
vsoft="MSIE 6.x"
elseif instr(thesoft,"MSIE 5") then
vsoft="MSIE 5.x"
elseif instr(thesoft,"MSIE 4") then
vsoft="MSIE 4.x"
elseif instr(thesoft,"Netscape") then
vsoft="Netscape"
elseif instr(thesoft,"Opera") then
vsoft="Opera"
else
vsoft="Other"
end if
' 操作系统
if instr(thesoft,"Windows NT 5.0") then
vOS="Win 2000"
elseif instr(thesoft,"Windows NT 5.1") then
vOs="Win XP"
elseif instr(thesoft,"Windows NT 5.2") then
vOs="Win 2003"
elseif instr(thesoft,"Windows NT") then
vOs="Win NT"
elseif instr(thesoft,"Windows 9") then
vOs="Win 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
vOs="类Unix"
elseif instr(thesoft,"Mac") then
vOs="Mac"
else
vOs="Other"
end if

[Amely]

http://www.schoolfree.com.cn/schoolfree/cn/computer/text/java/029.htm