让你的错误提示更生动

导读：
　　默认的IIS 500-100.ASP文件错误提示只报到行号，这对我们找错误还是很麻烦的
　　本文件是修改后的500-100.ASP文件，直接显示出错行的文本，便于查找错误
　　
　　
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

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

　　%>
　　
　　
　　
　　<style> <BR>　　a:link {font:9pt 宋体; color:FF0000} <BR>　　a:visited {font:9pt 宋体; color:#4e4e4e} <BR>　　</style>
　　<meta name="ROBOTS" content="NOINDEX">
　　本页无法显示
　　<meta http-equiv="Content-Type" content="text-HTML; charset=gb2312">