Asp常用通用函数之返回服务器信息

 '函数名：GetServerInfo
  '作 用：返回服务器信息
  '参 数：Lx ---- 返回信息代码类
  ' 0 : 服务器的域名
  ' 1 : 服务器的IP地址
  ' 2 : 服务器操作系统
  ' 3 : 服务器解译引擎
  ' 4 : 服务器软件的名称及版本
  ' 5 : 服务器正在运行的端口
  ' 6 : 服务器CPU数量
  ' 7 : 服务器Application数量
  ' 8 : 服务器Session数量
  ' 9 : 请求的物理路径
  '10 : 请求的URL
  '11 : 服务器当前时间
  '12 : 脚本连接超时时间
  '13 : 服务器CPU详情
  '14 :
  '返回值：返回信息字串
  '示 例：GetServerInfo(2)
  '**************************************************
  Public Function GetServerInfo(ByVal Lx)
   GetServerInfo=""
   Dim okCPUS, okCPU, okOS
   on error resume next
   Set WshShell = server.CreateObject("WScript.Shell")
   Set WshSysEnv = WshShell.Environment("SYSTEM")
   okOS = cstr(WshSysEnv("OS"))
   okCPUS = cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
   okCPU = cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
   if isnull(okCPUS) & "" = "" then
   okCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
   end if
   tnow = now():oknow = cstr(tnow)
   if oknow <> year(tnow) & "-" & month(tnow) & "-" & day(tnow) & " " & hour(tnow) & ":" & right(FormatNumber(minute(tnow)/100,2),2) & ":" & right(FormatNumber(second(tnow)/100,2),2) then oknow = oknow & " (日期格式不规范)"
   If Lx=0 Then GetServerInfo=Request.ServerVariables("server_name")
   If Lx=1 Then GetServerInfo=Request.ServerVariables("LOCAL_ADDR")
   If Lx=2 Then GetServerInfo=okOS '' Request.ServerVariables("OS")
   If Lx=3 Then GetServerInfo=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
   If Lx=4 Then GetServerInfo=Request.ServerVariables("SERVER_SOFTWARE")
   If Lx=5 Then GetServerInfo=Request.ServerVariables("server_port")
   If Lx=6 Then GetServerInfo=okCPUS '' Request.ServerVariables("NUMBER_OF_PROCESSORS")
   If Lx=7 Then GetServerInfo=Application.Contents.Count
   If Lx=8 Then GetServerInfo=Session.Contents.Count
   If Lx=9 Then GetServerInfo=Request.ServerVariables("path_translated")
   If Lx=10 Then GetServerInfo=Request.ServerVariables("server_name")&Request.ServerVariables("script_name")
   If Lx=11 Then GetServerInfo=oknow
   If Lx=12 Then GetServerInfo=Server.ScriptTimeout
   If Lx=13 Then GetServerInfo=okCPU
  End Function