500-100.asp File

Last Update:2018-12-05 Source: Internet

Author: User

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

File Path: C:/winnt/help/IISHelp/common/500-100.asp

<% @ 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
%>
<! Doctype HTML public "-// W3C // dtd html 3.2 final // en">

<Head>
<Style>
A: link {Font: 9pt; color: ff0000}
A: visited {Font: 9pt; color: # 4e4e4e}
</Style>

<Title> This page cannot be displayed </title>

<SCRIPT>
Function homepage (){
<! --
// In Real bits, URLs get returned to our script like this:
// Res: // shdocvw. dll/http_404.htm # http://www.DocURL.com/bar.htm

// For testing use docurl = "res: // shdocvw. dll/http_404.htm # https://www.microsoft.com/bar.htm"
Docurl = Document. url;

// This is where the HTTP or HTTPS will be, as found by searching for: // But skipping the Res ://
Protocolindex = docurl. indexof (": //", 4 );

// This finds the ending slash for the Domain Server
Serverindex = docurl. indexof ("/", protocolindex + 3 );

// For the href, we need a valid URL to the domain. we search for the # symbol to find the begining
// Of the true URL, and Add 1 to skip it-this is the beginurl value. We use serverindex as the End marker.
// Urlresult = docurl. substring (protocolindex-4, serverindex );
Beginurl = docurl. indexof ("#", 1) + 1;
Urlresult = docurl. substring (beginurl, serverindex );

// For display, We need to skip after http: //, and go to the next Slash
Displayresult = docurl. substring (protocolindex + 3, serverindex );
Document. Write ('<a href = "' + escape (urlresult) + '">' + displayresult + "</a> ");
}
// -->
</SCRIPT>

<Tr>
<TD align = "Left" valign = "Middle" width = "360">
<H1 style = "color: 000000; Font: 9pt "> <! -- Problem --> This page cannot be displayed </TD>
</Tr>

<Tr>
& Lt; TD width = "400" colspan = "2" & gt;
<Font style = "color: 000000; Font: 9pt "> the webpage you are trying to access has a problem and cannot be displayed. </Font> </TD>
</Tr>

<Tr>
& Lt; TD width = "400" colspan = "2" & gt;
<Font style = "color: 000000; Font: 9pt ">

<HR color = "# c0c0c0" noshade>

<P> try the following methods: </P>

<Ul>
<Li id = "instructionstext1"> click
<A href = "javascript: location. Reload ()">
Refresh </a> button or wait and try again. <Br>
</LI>

<Li> open

<SCRIPT>
<! --
If (! (Window. Navigator. useragent. indexof ("MSIE")> 0) & (window. Navigator. appversion. charat (0) = "2 ")))
{
Homepage ();
}
// -->
</SCRIPT>

Home Page, and then find the link related to the required information. </LI>
</Ul>

<H2 style = "Font: 9pt; color: 000000"> HTTP 500.100-Internal Server Error-Asp error <br>
Internet Information Service </H2>

<HR color = "# c0c0c0" noshade>

<P> technical information (applicable to support personnel) </P>

<Ul>
<Li> Error Type: <br>
<%
Dim bakcodepage
Bakcodepage = session. codePage
Session. codePage = 936
Response. Write server. htmlencode (objasperror. Category)
If objasperror. aspcode> "" Then response. Write server. htmlencode ("," & objasperror. aspcode)
Response. Write server. htmlencode ("(0x" & hex (objasperror. Number) & ") &" <br>"

If objasperror. aspdescription> "" Then response. Write server. htmlencode (objasperror. aspdescription) & "<br>"

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 (strservername = "localhost" or 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 "<br>"
Response. Write "<font style =" "color: 000000; Font: 9pt "> <B>"
Response. Write server. htmlencode (objasperror. Source) & "<br>"
If objasperror. Column> 0 then response. Write string (objasperror. Column-1), "-") & "^ <br>"
Response. Write "</B> </font>"
Blnerrorwritten = true
End if
End if

If not blnerrorwritten and objasperror. File <> "? "Then
Response. Write "<B>"
Response. Write server. htmlencode (objasperror. File)
If objasperror. Line> 0 then response. Write server. htmlencode ("," & objasperror. Line & "line ")
If objasperror. Column> 0 then response. Write ", column" & objasperror. Column"
Response. Write "</B> <br>"
End if
%>
</LI>
<P>
<Li> browser type: <br>
<% = Request. servervariables ("http_user_agent") %>
</LI>
<P>
<Li> page: <br>
<%
Strmethod = request. servervariables ("request_method ")

Response. Write strmethod &""

If strmethod = "Post" then
Response. Write Request. totalbytes & "bytes"
End if

Response. Write Request. servervariables ("script_name ")

Lngpos = instr (request. querystring, "| ")

If lngpos> 1 then
Response. Write "? "& Left (request. querystring, (lngpos-1 ))
End if

Response. Write "</LI>"

If strmethod = "Post" then
Response. Write "<p> <li> post data: <br>"
If request. totalbytes> lngmaxformbytes then
Response. Write server. htmlencode (left (request. Form, lngmaxformbytes ))&"..."
Else
Response. Write server. htmlencode (request. Form)
End if
Response. Write "</LI>"
End if

%>
<P>
<Li> time: <br>
<%
Datnow = now ()

Response. Write server. htmlencode (formatdatetime (datnow, 1) & "," & formatdatetime (datnow, 3 ))
Session. codePage = bakcodepage
%>
</LI>
</P>
<P>
<Li> details: <br>
<% Strquerystring = "PRD = IIS & BMI = & 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
%>
<A href = "<% = strurl %>"> Microsoft support </a>
</LI>
</P>

</Font> </TD>
</Tr>

</Table>
</Body>
</Html>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

500-100.asp File

Contact Us

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support