From 069f0769d4550e3a30599e5c733cbd057c5cc0db Mon Sep 17 00:00:00 2001 From: Yuuta Liang Date: Mon, 26 Jun 2023 20:30:52 -0700 Subject: Import from WinSvr2022 --- 500-100.asp | 132 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 132 insertions(+) create mode 100644 500-100.asp (limited to '500-100.asp') diff --git a/500-100.asp b/500-100.asp new file mode 100644 index 0000000..5119050 --- /dev/null +++ b/500-100.asp @@ -0,0 +1,132 @@ +<%@ language="VBScript" %> +<% + Option Explicit + + Const lngMaxFormBytes = 200 + + Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP + Dim strMethod, lngPos, datNow, strQueryString, strURL + + If Response.Buffer Then + Response.Clear + Response.Status = "500 Internal Server Error" + Response.ContentType = "text/html" + Response.Expires = 0 + End If + + Set objASPError = Server.GetLastError +%> + +The page cannot be displayed + + +
+ +

The page cannot be displayed

+There is a problem with the page you are trying to reach and it cannot be displayed. +
+

Please try the following:

+
    +
  • Contact the Web site administrator to let them know that this error has occured for this URL address.
    • +
+

HTTP 500.100 - Internal server error: ASP error.
Internet Information Services

+
+

Technical Information (for support personnel)

+
    +
  • Error Type:
    +<% + Dim bakCodepage + on error resume next + bakCodepage = Session.Codepage + Session.Codepage = 1252 + on error goto 0 + Response.Write Server.HTMLEncode(objASPError.Category) + If objASPError.ASPCode > "" Then Response.Write Server.HTMLEncode(", " & objASPError.ASPCode) + Response.Write Server.HTMLEncode(" (0x" & Hex(objASPError.Number) & ")" ) & "
    " + If objASPError.ASPDescription > "" Then + Response.Write Server.HTMLEncode(objASPError.ASPDescription) & "
    " + elseIf (objASPError.Description > "") Then + Response.Write Server.HTMLEncode(objASPError.Description) & "
    " + end if + blnErrorWritten = False + ' Only show the Source if it is available and the request is from the same machine as IIS + If objASPError.Source > "" Then + strServername = LCase(Request.ServerVariables("SERVER_NAME")) + strServerIP = Request.ServerVariables("LOCAL_ADDR") + strRemoteIP = Request.ServerVariables("REMOTE_ADDR") + If (strServerIP = strRemoteIP) And objASPError.File <> "?" Then + Response.Write Server.HTMLEncode(objASPError.File) + If objASPError.Line > 0 Then Response.Write ", line " & objASPError.Line + If objASPError.Column > 0 Then Response.Write ", column " & objASPError.Column + Response.Write "
    " + Response.Write "" + Response.Write Server.HTMLEncode(objASPError.Source) & "
    " + If objASPError.Column > 0 Then Response.Write String((objASPError.Column - 1), "-") & "^
    " + Response.Write "    " + blnErrorWritten = True + End If + End If + If Not blnErrorWritten And objASPError.File <> "?" Then + Response.Write "" & Server.HTMLEncode( objASPError.File) + If objASPError.Line > 0 Then Response.Write Server.HTMLEncode(", line " & objASPError.Line) + If objASPError.Column > 0 Then Response.Write ", column " & objASPError.Column + Response.Write "
    " + End If +%> +
    • +
  • Browser Type:
    +<%= Server.HTMLEncode(Request.ServerVariables("HTTP_USER_AGENT")) %> +

    • +
  • Page:
    +<% + strMethod = Request.ServerVariables("REQUEST_METHOD") + Response.Write Server.HTMLEncode(strMethod & " ") + If strMethod = "POST" Then + Response.Write Request.TotalBytes & " bytes to " + End If + Response.Write Server.HTMLEncode(Request.ServerVariables("SCRIPT_NAME")) + Response.Write "
    • " + If strMethod = "POST" Then + Response.Write "

  • POST Data:
    " + ' On Error in case Request.BinaryRead was executed in the page that triggered the error. + On Error Resume Next + If Request.TotalBytes > lngMaxFormBytes Then + Response.Write Server.HTMLEncode(Left(Request.Form, lngMaxFormBytes)) & " . . ." + Else + Response.Write Server.HTMLEncode(Request.Form) + End If + On Error Goto 0 + Response.Write "
    • " + End If +%> +

    +
  • Time:
    +<% + datNow = Now() + Response.Write Server.HTMLEncode(FormatDateTime(datNow, 1) & ", " & FormatDateTime(datNow, 3)) + on error resume next + Session.Codepage = bakCodepage + on error goto 0 +%> +

    • +
  • More information:
    +<% + strQueryString = "prd=iis&sbp=&pver=5.0&ID=500;100&cat=" & Server.URLEncode(objASPError.Category) & "&os=&over=&hrd=&Opt1=" & Server.URLEncode(objASPError.ASPCode) & "&Opt2=" & Server.URLEncode(objASPError.Number) & "&Opt3=" & Server.URLEncode(objASPError.Description) + strURL = "http://www.microsoft.com/ContentRedirect.asp?" & strQueryString +%> +
      +
    • Click on Microsoft Support for a links to articles about this error.
      • +
    • Go to Microsoft Product Support Services and perform a title search for the words HTTP and 500.
      • +
    • Open IIS Help, which is accessible in IIS Manager (inetmgr), and search for topics titled Web Site Administration, and About Custom Error Messages.
      • +
    • In the IIS Software Development Kit (SDK) or at the MSDN Online Library, search for topics titled Debugging ASP Scripts, Debugging Components, and Debugging ISAPI Extensions and Filters.
      • +
    +
    • +
+ +
\ No newline at end of file -- cgit v1.2.3