熊海博客

检测客户端信息的方法有很多种，今天向大家介绍一种可以检测客户端操作系统的方法，从而可以判断来访者的设备信息，根据设备信息转到相应的网页，或者显示类似于微博的通过电脑/手机发表的效果等，功能待挖掘，各位请尽情施展，因我手头上的设备有限，故只对下面这几类作出判断，有资源的朋友，可以再添加相应的设备，例如手机型号的检测，不过，手机型号太多，估计工作量很很大。程序代码如下：

<%
dim thesoft,sysver
   thesoft=Request.ServerVariables("HTTP_USER_AGENT") 
    if instr(thesoft,"Windows") then
	sysver="Windows" 
	elseif instr(thesoft,"Mac") then 
    sysver="苹果设备"
    elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then 
    sysver="'linux设备" 
	elseif instr(thesoft,"Android") then 
    sysver="安卓设备" '
    else 
    sysver="其他设备" 
    end if
%>