怎么用asp來(lái)判斷客戶端瀏覽器與設(shè)置系統(tǒng)的分類。
發(fā)表時(shí)間：2024-05-23 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]很多人都在問(wèn)這個(gè)問(wèn)題阿，下面就是答案了：）-----------------------------------------首先她要用到asp的ServerVarialbles這個(gè)集合。在ServerVarialbles有這樣一項(xiàng)HTTP_USER_AGENT,他有什么作用呢？他的作用就是獲取客戶...
很多人都在問(wèn)這個(gè)問(wèn)題阿，下面就是答案了：）
-----------------------------------------
首先她要用到asp的ServerVarialbles這個(gè)集合。在ServerVarialbles有這樣一項(xiàng)HTTP_USER_AGENT,他有什么作用呢？他的作用就是獲取客戶端瀏覽器的基本信息和操作系統(tǒng)的版本阿，如是什么牌子的瀏覽器阿(一般就是IE和netscape了)，他們的版本號(hào)什么的，下面我用一個(gè)程序來(lái)說(shuō)明她的用法,文件命名為CheckBrowse.asp。
$U2 Forum rautinee原創(chuàng)$
$http://u2bbs.126.com$
'++++++++++++++以下是程序的正文+++++++++++++++++
<HTML>
<HEAD>
<TITLE> 瀏覽器檢測(cè) </TITLE>
</HEAD>
<BODY>
<%
Dim BrowseMsg,BrowseVersion,SystemVersion
BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")
'+++++++++++一個(gè)基本判別操作系統(tǒng)的函數(shù)+++++++++++
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
'由于時(shí)間的原因我沒(méi)有寫判定win95和windows xp的語(yǔ)句，感興趣的網(wǎng)友可以
'自行添加：)
'+++++++++++結(jié)束+++++++++++
if inStr(BrowseMsg,"MSIE") then
SystemVersion=CInt(Mid(BrowseMsg,inStr(BrowseMsg,"MSIE")+5,1))
response.write "您的瀏覽器的版本是 IE"&BrowseVersion&"<BR>"
response.write "您的操作系統(tǒng)是 "&SystemCheck()
end if
%>
</BODY>
</HTML>
----------------------------------------
ok,enjoy it and good luck!
