发新话题
打印

获得浏览器信息

获得浏览器信息

获得浏览器信息  
Dim O_Browser,M_BrowserType  
Set O_Browser=Server.Createobject("MSWC.BrowserType"  
M_BrowserType=O_Browser.Browser+O_Browser.Version  
大家灌啊

TOP

browser=Request.ServerVariables("HTTP_USER_AGENT"
function browser(info)
    if Instr(info,"MSIE 5.5">0 then
        browser="浏 览 器:Internet Explorer 5.5"
    elseif Instr(info,"MSIE 6.0">0 then
        browser="浏 览 器:Internet Explorer 6.0"
    elseif Instr(info,"MSIE 5.01")>0 then
        browser="浏 览 器:Internet Explorer 5.01"
    elseif Instr(info,"MSIE 5.0")>0 then
        browser="浏 览 器:Internet Explorer 5.00"
    elseif Instr(info,"MSIE 4.0")>0 then
        browser="浏 览 器:Internet Explorer 4.01"
    else
        browser="浏 览 器:未知"
    end if
end function

这个BBS是这样判断的

TOP

你这个还好清楚,我帖的还不清楚:(
大家灌啊

TOP

发新话题