关于错误信息的显示(ASP) / 学生王国

}
//-->
</script>

<ul>
<li>错误类型： 
<%
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) & " "
%>
</li>

<li>错误位置： 
<%
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
%>
</li>

<li>错误描述： 
<%
response.write Server.HTMLEncode(objASPError.description)
%>
</li>

</body>
</html>

共2共上一页 1 2