程序是ASP寫的,由服務(wù)器來判定,可以判定多種操作系統(tǒng)(含手機(jī)系統(tǒng),不過國(guó)產(chǎn)機(jī)的UserAgent很亂,無法非常準(zhǔn)確的判定,我想與國(guó)產(chǎn)手機(jī)廠商不重視這個(gè)有關(guān),也許他們根本就不知道這個(gè)東西)我以為這是比較全面的判定了.許多User Agent是本人親自收集并用來判定的.
附判定程序,原創(chuàng),轉(zhuǎn)載請(qǐng)注明出處:參見效果: http://www.zawen.net/counter/os.asp?id=1
<%dim UserAgent1
UserAgent1=""&trim(Request.ServerVariables("HTTP_USER_AGENT"))&""
if UserAgent1="" then
UserAgent1="UserAgent Unknown"
else
UserAgent1=""&UserAgent1&""
end if
Function getOS(UserAgent)
'下面三種判定，寫在一起
if UserAgent="UserAgent Unknown" then :vOs="UserAgent isNull OS Unknown|Other":getOS=vOS:exit Function:end if
dim vOS
'-------先判定手機(jī)系統(tǒng)
if instr(1,UserAgent,"Windows CE",1)>0 then
vOs="Windows CE|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"iPhone",1)>0 then
vOs="iPhone|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"BlackBerry",1)>0 then
vOs="BlackBerry|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"Series60",1)>0 and instr(1,UserAgent,"NOKIA",1)>0 then
vOs="Nokia S60|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"NOKIA",1)>0 then
vOs="Nokia|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"SymbianOS",1)>0 or instr(1,UserAgent,"Series",1)>0 then
vOs="SymbianOS|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"SonyEricsson",1)>0 then
vOs="SonyEricsson|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"LG",1)>0 then
vOs="LG手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"MOT",1)>0 or instr(1,UserAgent,"Motorola",1)>0 then
vOs="MOTO手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"SEC",1)>0 or instr(1,UserAgent,"SAMSUNG",1)>0 then
vOs="三星手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"ZTE")>0 then
vOs="中興手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"DX",1)>0 or instr(1,UserAgent,"DAXIAN",1)>0 then
vOs="大顯手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"TELSON",1)>0 then
vOs="泰信[代工]手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"Dopod",1)>0 then
vOs="多普達(dá)手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"PHILIPS",1)>0 then
vOs="PHILIPS手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"Haier",1)>0 then
vOs="海爾手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"LENOVO",1)>0 then
vOs="聯(lián)想手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"CECT",1)>0 then
vOs="CECT手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"NEC",1)>0 then
vOs="NEC手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"Bird",1)>0 then
vOs="波導(dǎo)手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"DBTEL",1)>0 then
vOs="迪比特手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"TCL",1)>0 then
vOs="TCL手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"oppo",1)>0 then
vOs="Oppo手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"AMOI",1)>0 then
vOs="夏新手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"Alcatel",1)>0 then
vOs="阿爾卡特手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"Ericsson",1)>0 then
vOs="愛立信手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"BenQ",1)>0 then
vOs="明基手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"KONKA",1)>0 then
vOs="康佳手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"ChangHong",1)>0 then
vOs="長(zhǎng)虹手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"MALATA",1)>0 then
vOs="萬(wàn)利達(dá)手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"KTOUCH",1)>0 or instr(1,UserAgent,"TIANYU",1)>0 or instr(1,UserAgent,"K-TOUCH",1)>0 then
vOs="天語(yǔ)手機(jī)|手機(jī)系統(tǒng)"
'---------------下面2個(gè)要在手機(jī)中最后判定,最普通的手機(jī)了MAUI-----------
elseif instr(1,UserAgent,"MAUI",1)>0 then
vOs="MTK雜牌手機(jī)|手機(jī)系統(tǒng)"
elseif instr(1,UserAgent,"MIDP",1)>0 or instr(1,UserAgent,"JAVA",1)>0 or instr(1,UserAgent,"J2ME",1)>0 then
vOs="Java移動(dòng)設(shè)備|手機(jī)系統(tǒng)"
else
vOs="Other|手機(jī)系統(tǒng)"
end if
if vOs<>"Other|手機(jī)系統(tǒng)" then:getOS=vOS:exit Function:end if
'---------再判定電腦系統(tǒng)
if instr(1,UserAgent,"Windows NT 6.1",1)>0 then
vOS="Windows 7|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Windows NT 6.0",1)>0 then
vOS="Windows Vista|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Windows NT 5.2",1)>0 then
vOS="Windows 2003|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Windows NT 5.1",1)>0 then
vOs="Windows XP|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Windows NT 5.0",1)>0 then
vOS="Windows 2000|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Windows NT",1)>0 then
vOs="Windows NT|電腦系統(tǒng)"
'4.0 is win95 ,4.1 is win98 ,4.9 is win me
elseif instr(1,UserAgent,"Windows 9",1)>0 or instr(1,UserAgent,"Windows 4",1)>0 then
vOs="Windows 9x|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Unix",1)>0 or instr(1,UserAgent,"SunOS",1)>0 or instr(1,UserAgent,"BSD",1)>0 then
vOs="Unix|電腦系統(tǒng)"
elseif instr(1,UserAgent,"RedHat",1)>0 then
vOs="Linux RedHat|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Ubuntu",1)>0 then
vOs="Linux Ubuntu|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Linux",1)>0 then
vOs="Linux|電腦系統(tǒng)"
elseif instr(1,UserAgent,"Mac",1)>0 then
vOs="Mac|電腦系統(tǒng)"
else
vOs="Other|電腦系統(tǒng)"
end if
if vOs<>"Other|電腦系統(tǒng)" then:getOS=vOS:exit Function:end if
'以上判定電腦系統(tǒng)完完畢BlackBerry
'-------最后判定搜索蜘蛛
'蜘蛛spiderAlcatel
if instr(1,UserAgent,"Baiduspider",1)>0 then
vOs="Baidu spider|搜索蜘蛛"
elseif instr(1,UserAgent,"Googlebot",1)>0 then
vOs="Google bot|搜索蜘蛛"
elseif instr(1,UserAgent,"msnbot",1)>0 then
vOs="Msn bot|搜索蜘蛛"
elseif instr(1,UserAgent,"Yahoo",1)>0 then
vOs="Yahoo bot|搜索蜘蛛"
elseif instr(1,UserAgent,"Sogou",1)>0 then
vOs="Sogou spider|搜索蜘蛛"
elseif instr(1,UserAgent,"YodaoBot",1)>0 then
vOs="Yodao Bot|搜索蜘蛛"
elseif instr(1,UserAgent,"Sosospider",1)>0 then
vOs="Soso spider|搜索蜘蛛"
else
vOs="Other|搜索蜘蛛"
end if
getOS=vOS
if vOs="Other|搜索蜘蛛" then:vOs="Other|Other":getOS=vOS:exit Function:end if
end Function
Function getIE(UserAgent)
if UserAgent="UserAgent Unknown" then :vOs="UserAgent isNull Browser Unknown|Other":getIE=vOS:exit Function:end if
dim vOS
'先判定使用IE內(nèi)核的瀏覽器MAXTHON，GreenBrowser TencentTraveler MyIE NetCaptor
if instr(1,UserAgent,"GreenBrowser",1)>0 then
vOS="GreenBrowser|瀏覽器"
elseif instr(1,UserAgent,"NetCaptor",1)>0 then
vOS="NetCaptor|瀏覽器"
elseif instr(1,UserAgent,"TencentTraveler",1)>0 then
vOS="TencentTraveler|瀏覽器"
elseif instr(1,UserAgent,"TheWorld",1)>0 then
vOS="TheWorld|瀏覽器"
elseif instr(1,UserAgent,"MAXTHON",1)>0 then
vOS="Maxthon|瀏覽器"
elseif instr(1,UserAgent,"MyIE",1)>0 then
vOS="MyIE|瀏覽器"
'用IE內(nèi)核的瀏覽器的判定要在IE前進(jìn)行
elseif instr(1,UserAgent,"MSIE 8",1)>0 then
vOS="IE 8|瀏覽器"
elseif instr(1,UserAgent,"MSIE 7",1)>0 then
vOS="IE 7|瀏覽器"
elseif instr(1,UserAgent,"MSIE 6",1)>0 then
vOS="IE 6|瀏覽器"
elseif instr(1,UserAgent,"MSIE 5.5",1)>0 then
vOS="IE 5.5|瀏覽器"
elseif instr(1,UserAgent,"MSIE 5",1)>0 then
vOS="IE 5|瀏覽器"
elseif instr(1,UserAgent,"MSIE 4",1)>0 then
vOS="IE 4|瀏覽器"
elseif instr(1,UserAgent,"MSIE 3",1)>0 then
vOS="IE 3|瀏覽器"
'下面是非IE內(nèi)核瀏覽器
elseif instr(1,UserAgent,"Netscape",1)>0 then
vOS="Netscape|瀏覽器"
elseif instr(1,UserAgent,"Chrome",1)>0 then
vOS="Chrome|瀏覽器"
elseif instr(1,UserAgent,"Firefox",1)>0 then
vOS="Firefox|瀏覽器"
elseif instr(1,UserAgent,"Safari",1)>0 then
vOS="Safari|瀏覽器"
elseif instr(1,UserAgent,"Opera Mini",1)>0 then
vOS="Opera Mini|瀏覽器"
elseif instr(1,UserAgent,"Opera",1)>0 or instr(1,UserAgent,"Presto",1)>0 then
vOS="Opera|瀏覽器"
elseif instr(1,UserAgent,"R4EA",1)>0 then
vOS="R4EA|瀏覽器"
elseif instr(1,UserAgent,"UP",1)>0 then
vOS="UP|瀏覽器"
elseif instr(1,UserAgent,"UCWEB",1)>0 then
vOS="UCWEB|瀏覽器"
else
vOS="Other|瀏覽器"
end if
getIE=vOS
end Function
%>
