如何在ASP中实现错误陷阱技术（即实现VB中的所谓的On Error GoTo）

代码如下（一共4个文件）

1。error1.ASP(用来生成错误)

输入数据

喜欢的计算机

喜欢的游戏:

:

2。error2.ASP

<%

Response.buffer = True

On Error Resume Next

dim conn

dim rs

set conn = server.createobject("adodb.connection")

conn.open "Example_DSN"

If err.number 0 Then

Response.Redirect "Error3.ASP?number=" & err.Number & "&desc=" & Server.URLEncode(err.description)

End If

set rs = server.createobject("adodb.recordset")

rs.open "TableName", conn, 3, 3

If err.number 0 Then

Response.Redirect "Error3.ASP?number=" & err.Number & "&desc=" & Server.URLEncode(err.description)

End If

rs.addnew

rs("field1") = request.form("field1")

rs("field2") = request.form("field2")

rs.update

If err.number 0 Then

Response.Redirect "Error3.ASP?number=" & err.Number & "&desc=" & Server.URLEncode(err.description)

End If

rs.close

conn.close

set rs = nothing

set conn = nothing

%>

成功

操作完成!

3。error3.ASP

出错页面

发生错误

错误 ID 为:

错误号为:

错误描述为:

4。一个用来记录错误的数据库（Access）

共有errNumber,ErrDesc,timeoccurred三个字段