ITPub博客

首页 > 数字化转型 > ERP > 关于错误信息的显示 (转)

关于错误信息的显示 (转)

原创 ERP 作者:worldblog 时间:2007-12-09 10:42:01 0 删除 编辑
关于错误信息的显示 (转)[@more@]ASP程序出错后,错误提示不是很清楚明白,让人摸不着头脑,用下面方法看看有没有帮助(此法目前只适合处ADO错误外的错误)
步骤一,用编辑器打开c:winnthelpiisHelpcommon500-100.asp
将它另存为500-101.asp备份(以便日后恢复)
步骤二,将下面的代码覆盖500-100.asp原文件,保存退出
步骤三,创建新文件test.asp,添加如下代码
<% response.write now(1)%>,存盘退出
步骤四,在浏览器中输入localhost/test.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
%>
w3c//DTD HTML 3.2 Final//EN">


本页出错




  • 错误类型:

    <%
    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 & " 列"
    Response.Write "

    "
    End If
    %>



  • 错误描述:

    <%
    response.write Server.HTMLEncode(objASPError.description)
    %>



  • 来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990453/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2410927