6-06.asp

来自「asp开发 asp开发 asp开发 asp开发」· ASP 代码 · 共 20 行

ASP
20
字号
<HTML><BODY>
	<%
	On Error Resume Next     '发生错误后,继续执行下一句

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
		Server.MapPath("person1.mdb")) '该数据库不存在                          
	Dim I,err
	For I =0 To conn.Errors.Count-1     '循环输出所有的错误对象
		Set err=conn.Errors.Item(I)     '建立Error对象err
		Response.Write "错误编号:" & err.Number & "<br>"
		Response.Write "错误描述:" & err.Description & "<br>"
		Response.Write "错误原因:" & err.Source & "<br>"
		Response.Write "提示文字:" & err.HelpContext & "<br>"
		Response.Write "帮助文件:" & err.HelpFile & "<br>"
		Response.Write "原始错误:" & err.NativeError & "<br>"
	Next
	%>
</BODY></HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?