Response.Write Display_Data ("Request.Cookies(""" & STR_KEY & """)", Request.Cookies(STR_KEY)) Response.Write Display_Data ("Request.ClientCertificate(""" & STR_KEY & """)", Request.ClientCertificate(STR_KEY))įor Each STR_KEY2 In Request.Cookies(STR_KEY) " ClientCertificate " & vbNewLine & _įor Each STR_KEY In Request.ClientCertificate Sub Display_Request_Object() Response.Write " " & vbNewLine & _ Response.Write Display_Data("Application(""" & STR_KEY & """)", Application.Contents(STR_KEY)) Response.Write Display_Data("Application(""" & STR_KEY & """)", "(Object)") If isObject(Application.Contents(STR_KEY)) Then Sub Display_Application_Object() Response.Write " " & vbNewLine & _ " Server Information " & vbNewLine & _ĭisplay_Data("Server Name", Request.ServerVariables("SERVER_NAME")) & _ĭisplay_Data("Server IP Address", Request.ServerVariables("LOCAL_ADDR")) & _ĭisplay_Data("Server Port", Request.ServerVariables("SERVER_PORT")) & _ĭisplay_Data("Server Software", Request.ServerVariables("SERVER_SOFTWARE")) & _ĭisplay_Data("Operating System", Request.ServerVariables("OS")) & _ĭisplay_Data("Script Engine", ScriptEngine & " (version: " & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion & ")") & _ Sub Display_Server_Information() Response.Write " " & vbNewLine & _ Display_Data("Script URL", " & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO") & "") & _ĭisplay_Data("Physical Path", Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) & _
0 kommentar(er)
