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)

  %>