Column - 1), "-") & "^<br>"
Response.Write "</b></font>"
blnErrorWritten = True
End If
End If

If Not blnErrorWritten And objASPError.File <> "?" Then
Response.Write "<b>"
Response.Write Server.HTMLEncode(objASPError.File)
If objASPError.Line > 0 Then
Response.Write Server.HTMLEncode(", 第 " & objASPError.Line & " 行") & "<br>"
'读去错误行文本
Dim AppPath,FileName,ErrLine,ErrCode,fs,f,i
AppPath=Request.ServerVariables("APPL_PHYSICAL_PATH")
FileName=Request.ServerVariables("SCRIPT_NAME")
FileName=Replace(FileName,"/","\")
FileName=Mid(FileName,2,Len(FileName)-1)
'Response.Write AppPath & FileName & "<br>"
'常量定义
Const ForReading = 1,TristateFalse = 0
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(AppPath & FileName,ForReading,TristateFalse)
ErrLine=objASPError.Line
For i = 1 to ErrLine-1
f.SkipLine
Next
ErrCode=f.ReadLine
f.close
Response.Write "<b>该代码出现错误，请检查→</b><font color='#FF0000'>" & ErrCode & "</font><br>"
set fs=nothing
End if
If objASPError.Column > 0 Then Response.Write ", 第 " & objASPError.Column & " 列"
Response.Write "</b><br>"
End If
%>
</li>
<p>
<li>浏览器类型：<br>
<%= Request.ServerVariables("HTTP_USER_AGENT") %>
</li>
<p>
<li>页：<br>
<%
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") & "<br>"

lngPos = InStr(Request.QueryString, "|")

If lngPos > 1 Then
Response.Write "?" & Left(Request.QueryString, (lngPos - 1))
End If

Response.Write "</li>"

If strMethod = "POST" Then
Response.Write "<p><li>POST 数据:<br>"
If Request.TotalBytes > lngMaxFormBytes Then
Response.Write Server.HTMLEncode(Left(Request.Form, lngMaxFormBytes)) & " . . ."
Else
Response.Write Server.HTMLEncode(Request.Form)
End If
Response.Write "</li>"
End If

%>
<p>
<li>时间：<br>
<%
datNow = Now()

Response.Write Server.HTMLEncode(FormatDateTime(datNow, 1) & ", " & FormatDateT

上一页  [1] [2] [3] [4] 下一页

在google里搜索更多让你的错误提示更生动

	Web www.51ec.org

上一篇信息学院： ASP中令人震撼的Debug类（VBScript）

下一篇信息学院： ASP中一个字符串处理类（VBScript）