ASP获取客户端操作系统及浏览器版本的两种方法

这是第一种，比较笨，需要收集各类OS及BROWER的AGENT标识

';判断操作系统
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及浏览器，不至于出现“未知”的情况。。。但还是有点不爽

';获取用户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)

ASP MYSQL,SA可以列个盘目录,但不能执行其他命令(CMD,SQL..).我把人家的目录列出来了,可却实在没办法再进一步了,指点下呀

你第一个方法,是用枚举啊,太麻烦了啊,第二个没看明白,用什么函数来取得呢?

';获取用户OS，Brower信息
';Request.ServerVariables("HTTP_USER_AGENT")的内容为如下结构
';Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)
';我们通过“ ; ”取分段，就能得到客户端信息
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)

没懂,呵呵,看来,我的ASP还得在学啊,