';判断操作系统
Function OS()
Text=Request.ServerVariables("HTTP_USER_AGENT")
if Instr(text,"NT 5.2")>0 then
OS=OS+"Windows 2003"
Elseif Instr(text,"NT 5.1")>0 then
OS=OS+"Windows XP"
Elseif Instr(text,"NT 5")>0 then
OS=OS+"Windows 2000"
Elseif Instr(text,"NT 4")>0 then
OS=OS+"Windows NT4"
Elseif Instr(text,"4.9")>0 then
OS=OS+"Windows ME"
Elseif Instr(text,"98")>0 then
OS=OS+"Windows 98"
Elseif Instr(text,"95")>0 then
OS=OS+"Windows 95"
Elseif Instr(text,"Unix") then
OS=OS+"Unix"
Elseif Instr(text,"Linux") then
OS=OS+"Linux"
Elseif Instr(text,"SunOS") then
OS=OS+"SunOS"
Elseif Instr(text,"BSD") then
OS="BSD"
Else
OS=OS+"未知"
end if
End Function
';判断浏览器类型
Function Browser()
Text=Request.ServerVariables("HTTP_USER_AGENT")
if Instr(text,"MSIE 5.5")>0 then
Browser="Internet Explorer 5.5"
Elseif Instr(text,"MSIE 7.0")>0 then
Browser="Internet Explorer 6.0"
Elseif Instr(text,"MSIE 6.0")>0 then
Browser="Internet Explorer 6.0"
Elseif Instr(text,"MSIE 5.01")>0 then
Browser="Internet Explorer 5.01"
Elseif Instr(text,"MSIE 5.0")>0 then
Browser="Internet Explorer 5.00"
Elseif Instr(text,"MSIE 4.0")>0 then
Browser="Internet Explorer 4.01"
Else
Browser="未知"
End if
End Function

';获取用户OS，Brower信息
ClientStr=Request.ServerVariables("HTTP_USER_AGENT")
ClientStr=replace(ClientStr,")","")
ClientStr=replace(ClientStr,"(","")
ClientStr=replace(ClientStr,"MSIE","Internet Explorer")
ClientStr=replace(ClientStr,"NT 5.0","2000")
ClientStr=replace(ClientStr,"NT 5.1","XP")
ClientStr=replace(ClientStr,"NT 5.2","2003")
ClientInfo=split(ClientStr,";")
UserBrower=ClientInfo(1)
UserOS=ClientInfo(2)