Iis 7 内部服务器错误500 w/IIS日志_Iis 7_Asp Classic_Internal Server Error

Iis 7 内部服务器错误500 w/IIS日志

iis-7 asp-classic

Iis 7 内部服务器错误500 w/IIS日志,iis-7,asp-classic,internal-server-error,Iis 7,Asp Classic,Internal Server Error,我的经典asp网站出现了一些错误。当网站第一次运行时，有时会出现内部服务器错误。然后刷新就可以修复它。我决定检查我的IIS日志，看看问题是什么，但我无法解释它。这是日志行 2013-12-09 15:29:00 xx.xx.xx.xx GET / |37|80070005|Access_is_denied.__ 80 - xx.xxx.xx.xx Mozilla/5.0+(Windows+NT+6.1;+WOW64)+AppleWebKit/537.36+(KHTML,+like+Gecko

我的经典asp网站出现了一些错误。当网站第一次运行时，有时会出现内部服务器错误。然后刷新就可以修复它。我决定检查我的IIS日志，看看问题是什么，但我无法解释它。这是日志行

  2013-12-09 15:29:00 xx.xx.xx.xx GET / |37|80070005|Access_is_denied.__ 80 - xx.xxx.xx.xx Mozilla/5.0+(Windows+NT+6.1;+WOW64)+AppleWebKit/537.36+(KHTML,+like+Gecko)+Chrome/31.0.1650.63+Safari/537.36 500 0 0 702

为处理500和500 100错误设置自定义页面如何

创建一些文件夹，比如D:\InetPub\Web01\Err\ 添加具有写入权限的IUSR_Web01用户

在IIS for Web01网站中（IIS 6.0的示例）

将以下代码放入文件500.asp和500100.asp中

Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = #Jan 31,2000 12:30:00#

Response.Clear

Dim FS, TF, N, ASPErr
N = Now

Set ASPErr = Server.GetLastError() 

Set FS = CreateObject ("Scripting.FileSystemObject")
Set TF = FS.CreateTextFile ("D:\InetPub\1click.lv\Err\500 " & "Error" & Right ("0" & Year (N), 4) & Right ("0" & Month (N), 2) & Right ("0" & Day (N), 2) & "_" & Right ("0" & Hour (N), 2) & Right ("0" & Minute (N), 2) & Right ("0" & Second (N), 2) & ".txt", True, False)
TF.Write MyErrorInfo (ASPErr, False, False, "1click.lv", "")
TF.Close
Set FS = Nothing

Response.Write MyErrorInfo (ASPErr, True, True, "1click.lv", "zam@1click.lv")
Err.Clear

职能：

Function MyErrorInfo (ASPErr, AsHTML, ShowContactInfo, WebTitle, AdminEmail)
    Dim Result
    Result = ""
    If AsHTML = True Then
        Result = Result & "<html><head><title>Error occur</title></head><body><font face=Verdana size=2>"
        If (ShowContactInfo = True) Then
            Result = Result & "<p align=center>"
            Result = Result & "<font size=4>"
            Result = Result & "<font color=""#008000"">" & WebTitle & "</font><br>"
            Result = Result & "<font color=""#800000"">500 Error occur</font><br>"
            Result = Result & "Please contact us by email at <a href=""mailto:" & AdminEmail & """>" & AdminEmail & "</a> and inform about this error<br><br>"
            Result = Result & "Thank you for your support!"
            Result = Result & "</font>"
            Result = Result & "</p>"
        End If
        Result = Result & "<hr>"
        Result = Result & "Error number: <b>" & ASPErr.Number & "</b><br>"
        Result = Result & "Error source: <b>" & ASPErr.Source  & "</b><br>"
        Result = Result & "Error description: <b>" & ASPErr.Description & "</b><br>"
        Result = Result & "Error line: <b>" & ASPErr.Line & "</b><br>"
        Result = Result & "Client IP: <b>" & Request.ServerVariables ("REMOTE_ADDR") & "</b><br>"
        Result = Result & "Client Browser: <b>" & Request.ServerVariables ("HTTP_USER_AGENT") & "</b><br>"
        Result = Result & "Client Referer: <b>" & Request.ServerVariables ("HTTP_REFERER") & "</b><br>"
        Result = Result & "Path: <b>" & Request.ServerVariables ("PATH_INFO") & "</b><br>"
        Result = Result & "Request method: <b>" & Request.ServerVariables ("REQUEST_METHOD") & "</b><br>"
        Result = Result & "Request FORM: <b>" & Request.Form & "</b><br>"
        Result = Result & "Request QUERY: <b>" & Request.QueryString & "</b><br>"
        Result = Result & "<hr>"
        Result = Result & "</font></body></html>"
    Else
        Result = Result & WebTitle & vbCrLf
        Result = Result & "Error number: " & ASPErr.Number & vbCrLf
        Result = Result & "Error source: " & ASPErr.Source  & vbCrLf
        Result = Result & "Error description: " & ASPErr.Description & vbCrLf
        Result = Result & "Error line: " & ASPErr.Line & vbCrLf
        Result = Result & "Client IP: " & Request.ServerVariables ("REMOTE_ADDR") & vbCrLf
        Result = Result & "Client Browser: " & Request.ServerVariables ("HTTP_USER_AGENT") & vbCrLf
        Result = Result & "Client Referer: " & Request.ServerVariables ("HTTP_REFERER") & vbCrLf
        Result = Result & "Path: " & Request.ServerVariables ("PATH_INFO") & vbCrLf
        Result = Result & "Request method: " & Request.ServerVariables ("REQUEST_METHOD") & vbCrLf
        Result = Result & "Request FORM: " & Request.Form & vbCrLf
        Result = Result & "Request QUERY: " & Request.QueryString & vbCrLf
    End If
    MyErrorInfo = Result
End Function

函数MyErrorInfo（ASPErr、AsHTML、ShowContactInfo、WebTitle、AdminEmail）
模糊结果
Result=“”
如果AsHTML=True，则
结果=结果&“发生错误”
如果（ShowContactInfo=True），则
结果=结果&“”
结果=结果&“
Result=Result&&WebTitle&
“
结果=结果&“出现500个错误
”
结果=结果&“请通过电子邮件联系我们，并告知此错误

”
Result=Result&“感谢您的支持！”
结果=结果&“
结果=结果&“”
如果结束
结果=结果&“”
结果=结果和“错误号：&ASPErr.number和”
“
结果=结果和“错误源：&ASPErr.source和”
“
结果=结果和错误描述：&ASPErr.description和
“
结果=结果和“错误行：&ASPErr.line和”
“
结果=结果和“客户端IP:&Request.ServerVariables（“远程地址”）和“
”
Result=Result&“客户端浏览器：&Request.ServerVariables（“HTTP\u用户\u代理”）&“
”
Result=Result&“Client Referer:&Request.ServerVariables（“HTTP\u Referer”）&“
”
结果=结果和路径：&Request.ServerVariables（“路径信息”）和“
”
结果=结果和“请求方法：&Request.ServerVariables（“请求方法”）和“
”
结果=结果和请求表单：&Request.FORM和
Result=Result&“请求查询：&Request.QueryString&”
“
结果=结果&“”
结果=结果&“
其他的
结果=结果&WebTitle&vbCrLf
结果=结果和错误号：&ASPErr.number&vbCrLf
结果=结果和错误源：&ASPErr.source&vbCrLf
结果=结果和“错误描述：”&ASPErr.description&vbCrLf
结果=结果和“错误行：”&ASPErr.line&vbCrLf
结果=结果和“客户端IP:”&Request.ServerVariables（“远程地址”）和vbCrLf
Result=Result&“客户端浏览器：”&Request.ServerVariables（“HTTP\u用户\u代理”）&vbCrLf
Result=Result&“Client Referer:”&Request.ServerVariables（“HTTP\u Referer”）&vbCrLf
结果=结果和“路径：”&Request.ServerVariables（“路径信息”）&vbCrLf
结果=结果和“请求方法：”&Request.ServerVariables（“请求方法”）&vbCrLf
结果=结果和请求表单：&Request.FORM和vbCrLf
结果=结果和请求查询：&Request.QueryString&vbCrLf
如果结束
MyErrorInfo=结果
端函数

此页面告诉您如何在经典ASP中启用有用的错误消息