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

    '返回值：客户端操作系统
    '****************************************************
    Function GetSystem()
        info=Request.ServerVariables(HTTP_USER_AGENT) 
        if Instr(info,"NT 5.1")>0 then
            system="Windows XP"
        elseif Instr(info,"Tel")>0 then
            system="Telport"
        elseif Instr(info,"webzip")>0 then
            system="webzip"
        elseif Instr(info,"flashget")>0 then
            system="flashget"
        elseif Instr(info,"offline")>0 then
            system="offline"
        elseif Instr(info,"NT 5")>0 then
            system="Windows 2000"
        elseif Instr(info,"NT 4")>0 then
            system="Windows NT4"
        elseif Instr(info,"98")>0 then
            system="Windows 98"
        elseif Instr(info,"95")>0 then
            system="Windows 95"
        elseif instr(info,"unix") or instr(info,"linux") or instr(info,"SunOS") or instr(info,"BSD") then
            system="类Unix"
        elseif instr(thesoft,"Mac") then
            system="Mac"
        else
            system="其它"
        end if
    End Function

    '****************************************************
    '函数名：GetUrl
    '作  用：获取url包括参数
    '返回值：获取url包括参数