关于错误信息的显示（正宗原创，欢迎转帖），西西 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 关于错误信息的显示（正宗原创，欢迎转帖），西西

关于错误信息的显示（正宗原创，欢迎转帖），西西 时间：2004/10/7 19:15:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　

　　　　　　　　　　　　asp程序出错后，错误提示不是很清楚明白，让人摸不着头脑，用下面方法看看有没有帮助（此法目前只适合处ADO错误外的错误）
步骤一，用编辑器打开c:\winnt\help\iisHelp\common\500-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
%>

本页出错

错误类型：

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

文章评论

查看所有0条评论>>