📄 6-06.asp
字号:
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -