5_13b.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 27 行

<%
response.write "用户来访信息<hr>"
response.write "您的真实ＩＰ是：192.168.0.254" & "<br>"
dim info
info=Request.ServerVariables("HTTP_USER_AGENT")
'用Split函数分离浏览器版本信息和操作系统版本信息
if instr(info,";")>0 then
   dim usersys
   usersys=split(info,";")
   if ubound(usersys)>=2 then
      usersys(1)=replace(usersys(1),"MSIE","Internet Explorer")
      usersys(2)=replace(usersys(2),")","")
      usersys(2)=replace(usersys(2),"NT 5.1","XP")
      usersys(2)=replace(usersys(2),"NT 5.0","2000")
      usersys(2)=replace(usersys(2),"9x","Me")
      response.write "浏 览 器：" & Trim(usersys(1)) & "<br>"
      response.write "操作系统：" & Trim(usersys(2)) & "<br>"
   else
      if getinfo=1 then
      	response.write "浏 览 器：未知"
      else
      	response.write "操作系统：未知"
      end if
   end if
end if
%>