推荐下天枫常用ASP函数封装,推荐大家使用

2019-04-02 04:46:55于丽

    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
    '作  用:获取客户端操作系统
    '返回值:客户端操作系统
    '****************************************************
    Function GetSystem()