推荐下天枫常用ASP函数封装，推荐大家使用(12)

    '作  用：获取客户端浏览器信息
    '返回值：客户端浏览器信息
    '****************************************************
    Public Function GetBrowser()
           info=Request.ServerVariables(HTTP_USER_AGENT) 
        if Instr(info,"NetCaptor 6.5.0")>0 then
            browser="NetCaptor 6.5.0"
        elseif Instr(info,"MyIe 3.1")>0 then
            browser="MyIe 3.1"
        elseif Instr(info,"NetCaptor 6.5.0RC1")>0 then
            browser="NetCaptor 6.5.0RC1"
        elseif Instr(info,"NetCaptor 6.5.PB1")>0 then
            browser="NetCaptor 6.5.PB1"
        elseif 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 6.0b")>0 then
            browser="Internet Explorer 6.0b"
        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

    '****************************************************
    '函数名：GetSystem
    '作  用：获取客户端操作系统