您的位置:首页精文荟萃软件资讯 → 有关win2000、IIS5中asp详细出错信息的显示

有关win2000、IIS5中asp详细出错信息的显示

时间:2004/10/7 19:07:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



            最近经常有人问在win2000和IIS5中不显示asp错误的详细信息,而只显示错误号,如"错误ID800xxxxx",这使得程序调试很不方便,有些人采取在IIS中设置500-100错误指向默认,这样做也不会出现详细的错误信息。实际上这可能是微软出于安全考虑而在500-100.asp中没有显示详细出错信息。其实,你只要把500-100.asp稍加修改就可以了。下面是我修改的这个文件的内容。你只要把他copy下来存为500-100.asp然后覆盖原来的这个文件就可以了。注意文件中两行横线之间就是我修改的部分。


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
%>









本页无法显示
























本页无法显示



试图访问的网页出现问题,无法显示。






请尝试以下方法:




  • 单击

    刷新
    按钮或者梢候再试。



  • 打开



    主页,然后查找与所需信息相关的链接。



HTTP 500.100 - 内部服务器错误 - ASP 错误

Internet 信息服务






技术信息(适用于支持人员)




  • 错误类型:

    <%
    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) & ")" ) & "
    "

    If objASPError.ASPDescription > "" Then Response.Write Server.HTMLEncode(objASPError.ASPDescription) & "
    "

    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 ", 第 " & objASPError.Line & " 行"
    If objASPError.Column > 0 Then Response.Write ", 第 " & 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 ""
    Response.Write Server.HTMLEncode(objASPError.File)
    If objASPError.Line > 0 Then Response.Write Server.HTMLEncode(", 第 " & objASPError.Line & " 行")
    If objASPError.Column > 0 Then Response.Write ", 第 " & objASPError.Column & " 列"
    '-------------------------------------------------------------------
    ' added by Bigeagle
    ' date: 2000/5/10

    dim l_strAspDescription
    l_strAspDescription = "错误原因:" + objASPError.Description()
    if l_strAspDescription <> "" then
    response.write("

    " + l_strAspDescription+ "

    ")
    end if

    l_strAspDescription = "详细描述:" + objASPError.ASPDescription()
    if l_strAspDescription <> "" then
    response.write("

    " + l_strAspDescription+ "

    ")
    end if

    '-------------------------------------------------------------------
    Response.Write "

    "
    End If
    %>


  • 浏览器类型:

    <%= Request.ServerVariables("HTTP_USER_AGENT") %>


  • 页:

    <%
    strMethod = Request.ServerVariables("REQUEST_METHOD")

    Response.Write strMethod & " "

    If strMethod = "POST" Then
    Response.Write Request.TotalBytes & " bytes to "
    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 "
  • "

    If strMethod = "POST" Then
    Response.Write "

  • POST 数据:
    "
    If Request.TotalBytes > lngMaxFormBytes Then
    Response.Write Server.HTMLEncode(Left(Request.Form, lngMaxFormBytes)) & " . . ."
    Else
    Response.Write Server.HTMLEncode(Request.Form)
    End If
    Response.Write "
  • "
    End If

    %>


  • 时间:

    <%
    datNow = Now()

    Response.Write Server.HTMLEncode(FormatDateTime(datNow, 1) & ", " & FormatDateTime(datNow, 3))
    Session.Codepage = bakCodepage
    %>



  • 详细信息:

    <% 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
    %>
    Microsoft 支持






相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本