ad88/Server.aspx

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%
'乘风asp.net探针
'作者QQ：178575
'作者EMail：yliangcf@163.com
    '作者网站：http://www.qqcf.com
    '友情下载：http://www.codefans.net
%>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="Microsoft.VisualBasic.CompilerServices" %>

<Script Language="VB" Runat="Server">
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Sw As StreamWriter
        Dim Bc As HttpBrowserCapabilities
        Dim Flag As Boolean
        Dim DownStr As String
  
        ServerName.Text = Server.MachineName.ToString()
        ServerVer.Text = Environment.OSVersion.ToString()
        ServerIP.Text = Request.ServerVariables("LOCAL_ADDR")
        ServerDomain.Text = Request.ServerVariables("SERVER_NAME")
        ServerOutTime.Text = Server.ScriptTimeout.ToString()
        ServerNow.Text = DateTime.Now.ToString()
        ServerSessionTotal.Text = Session.Contents.Count.ToString()
        ServerApplicationTotal.Text = Application.Contents.Count.ToString()
    
        NetVer.Text = System.Environment.Version.ToString()
        IISVer.Text = Request.ServerVariables("SERVER_SOFTWARE")
  
        ProPath.Text = Request.ServerVariables("PATH_INFO")
        ProPath_2.Text = Request.ServerVariables("APPL_PHYSICAL_PATH")
  
        ServerRunTime.Text = Math.Round(Environment.TickCount / 600 / 60) / 100
    
        Bc = Request.Browser
        Brower_IP.Text = Request.ServerVariables("REMOTE_ADDR")
        Brower_OSVer.Text = Bc.Platform.ToString()
        Brower_Brower.Text = Bc.Browser.ToString()
        Brower_BrowerVer.Text = Bc.Version.ToString()
        Brower_Javscript.Text = Bc.JavaScript.ToString()
        Brower_VBScript.Text = Bc.VBScript.ToString()
        Brower_JavaApplets.Text = Bc.JavaApplets.ToString()
        Brower_Cookies.Text = Bc.Cookies.ToString()
        Brower_Language.Text = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
        Brower_Frame.Text = Bc.Frames.ToString()
  
        DownStr = "&#12288;&#91;<a href='&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#119;&#119;&#119;&#46;&#113;&#113;&#99;&#102;&#46;&#99;&#111;&#109;&#47;&#63;&#97;&#99;&#116;&#105;&#111;&#110;&#61;&#100;&#111;&#119;&#110;' target=_blank style='&#102;&#111;&#110;&#116;&#45;&#115;&#105;&#122;&#101;&#58;&#49;&#50;&#112;&#120;&#59;&#99;&#111;&#108;&#111;&#114;&#58;&#35;&#102;&#102;&#48;&#48;&#48;&#48;&#59;&#116;&#101;&#120;&#116;&#45;&#100;&#101;&#99;&#111;&#114;&#97;&#116;&#105;&#111;&#110;&#58;&#117;&#110;&#100;&#101;&#114;&#108;&#105;&#110;&#101;'>&#19979;&#36733;</a>&#93;"


        If ObjCheck("ADODB.RecordSet") Then
            Obj_Access.Text = "支持" & ObjVer("ADODB.RecordSet")
        Else
            Obj_Access.Text = "不支持"
        End If
 
        If ObjCheck("Scripting.FileSystemObject") Then
            Obj_Fso.Text = "支持"
        Else
            Obj_Fso.Text = "不支持"