蛙蛙推荐:asp错误处理
蛙蛙推荐:asp错误处理
<!--
蛙蛙推荐:asp错误处理
-->
<!-- 设置错误处理 -->
<%@ LANGUAGE="VBscript" %>
<%Response.Buffer = True
'设置buffer为True
On Error Resume Next
%>
<!-- //设置错误处理 -->
<!-- 执行页面处理 -->
<%
Dim mmdb,conn,strConn,sql
mmdb="test.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"")
conn.Open strconn
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0">
<FONT FACE="ARIAL">
本页运行正常
</FONT>
</BODY>
</HTML>
<!-- //执行页面处理 -->
<!-- 错误处理 -->
<%
'错误处理
If Err.Number <> 0 Then
'清除页面
Response.Clear
'显示错误信息给用户
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0">
<FONT FACE="ARIAL">在本页执行中发生了一个错误<BR>
下面是关于此错误的详细信息报告
<P><B>页面错误信息</B><BR>
错误 Number： <%= Err.Number %><BR>
错误信息： <%= Err.Description %><BR>
出错文件： <%= Err.Source %><BR>
出错行： <%= Err.Line %><BR>
</FONT>
</BODY>
</HTML>
<%End If%>
<!-- //错误处理 -->
<!--
蛙蛙推荐:asp错误处理
-->
<!-- 设置错误处理 -->
<%@ LANGUAGE="VBscript" %>
<%Response.Buffer = True
'设置buffer为True
On Error Resume Next
%>
<!-- //设置错误处理 -->
<!-- 执行页面处理 -->
<%
Dim mmdb,conn,strConn,sql
mmdb="test.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"")
conn.Open strconn
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0">
<FONT FACE="ARIAL">
本页运行正常
</FONT>
</BODY>
</HTML>
<!-- //执行页面处理 -->
<!-- 错误处理 -->
<%
'错误处理
If Err.Number <> 0 Then
'清除页面
Response.Clear
'显示错误信息给用户
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0">
<FONT FACE="ARIAL">在本页执行中发生了一个错误<BR>
下面是关于此错误的详细信息报告
<P><B>页面错误信息</B><BR>
错误 Number： <%= Err.Number %><BR>
错误信息： <%= Err.Description %><BR>
出错文件： <%= Err.Source %><BR>
出错行： <%= Err.Line %><BR>
</FONT>
</BODY>
</HTML>
<%End If%>
<!-- //错误处理 -->
