ASP获取客户端操作系统简洁版:
dim thesoft,sysver
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
if instr(thesoft,"Windows NT 5.0") then
OS="Windows 2000"
elseif instr(thesoft,"Windows NT 5.2") then
sysver="Windows 2003"
elseif instr(thesoft,"Windows NT 5.1") then
sysver="Windows XP"
elseif instr(thesoft,"Windows NT") then
sysver="Windows NT"
elseif instr(thesoft,"Windows 9") then
sysver="Windows 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
sysver="Similar unix"
elseif instr(thesoft,"Mac") then
sysver="Mac"
else
sysver="Other"
end if
response.write(sysver)
%>
|
文章来源于lcx.cc:【Asp】ASP获取客户端操作系统简洁版
相关推荐: 【VB】VB 按文本文件中的字符串VB语句执行
VB 按文本文件中的字符串 VB 语句执行: 这玩意儿怎么说呢,就是执行一段文本、字符串格式的VB语句、代码。类似于 PHP、Asp 中的 Execute()、Eval() 函数。把一段字符串形式的代码、语句按照编译器的形式执行,不是很难理解。 …
评论