small

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

king

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是这样判断的

small

你这个还好清楚，我帖的还不清楚：（