您正在使用IPV4(35.153.166.111)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元      
虚位以待
2021年 冬至节 14
2021年 圣诞节 18
2022年 元 旦 25
2022年 春 节 56
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    返回服务器信息
    内容摘要: '函数名:GetServerInfo'作用:返回服务器信息'参数:Lx----返回信息代码类'0:服务器的域名'1:服务器的IP地址'2:服务器操作系统'3:服务器解译引擎'4:服务器软件的名称及版本'5:服务器正在运行的端口'6:服务器CPU数量'7:服务器Application数量'8:服务器Session数量'9:请求的物理路径'10:请求的URL'1......
    '函数名: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)

    '**************************************************

    PublicFunctionGetServerInfo(ByValLx)

    GetServerInfo=""

    DimokCPUS,okCPU,okOS

    onerrorresumenext

    SetWshShell=server.CreateObject("WScript.Shell")

    SetWshSysEnv=WshShell.Environment("SYSTEM")

    okOS=cstr(WshSysEnv("OS"))

    okCPUS=cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))

    okCPU=cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))

    ifisnull(okCPUS)&""=""then

    okCPUS=Request.ServerVariables("NUMBER_OF_PROCESSORS")

    endif

    tnow=now():oknow=cstr(tnow)

    ifoknow<>year(tnow)&&q

    uot;-"&month(tnow)&"-"&day(tnow)&""&hour(tnow)&":"&right(FormatNumber(minute(tnow)/100,2),2)&":"&right(FormatNumber(second(tnow)/100,2),2)thenoknow=oknow&"(日期格式不规范)"

    IfLx=0ThenGetServerInfo=Request.ServerVariables("server_name")

    IfLx=1ThenGetServerInfo=Request.ServerVariables("LOCAL_ADDR")

    IfLx=2ThenGetServerInfo=okOS''Request.ServerVariables("OS")

    IfLx=3ThenGetServerInfo=ScriptEngine&"/"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."&ScriptEngineBuildVersion

    IfLx=4ThenGetServerInfo=Request.ServerVariables("SERVER_SOFTWARE")

    IfLx=5ThenGetServerInfo=Request.ServerVariables("server_port")

    IfLx=6ThenGetServerInfo=okCPUS''Request.ServerVariables("NUMBER_OF_PROCESSORS")

    IfLx=7ThenGetServerInfo=Application.Contents.Count

    IfLx=8ThenGetServerInfo=Session.Contents.Count

    IfLx=9ThenGetServerInfo=Request.ServerVariables("path_translated")

    IfLx=10ThenGetServerInfo=Request.ServerVariables("server_name")&Request.ServerVariables("script_name")

    IfLx=11ThenGetServerInfo=oknow

    IfLx=12ThenGetServerInfo=Server.ScriptTimeout

    IfLx=13ThenGetServerInfo=okCPU

    EndFunction

    版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:产生20位长度的唯一标识ID 下一篇:将本地数据表或库上传并导入到服务器数据库的表中
    发布日期:2021/10/29
    手机扫二维码直达本页
    发布时间:14:37:37
    点击:268
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.0.9.10888 Build 21.11.30(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
    ©2000-2021