以前搜集的一些资料---怎样在ASP中实现错误陷阱技术

来源：作者：发布时间:2007-11-09 05:14:02

怎样在ASP中实现错误陷阱技术（即实现VB中的所谓的On Error GoTo）
代码如下（一共4个文档）
1。error1.asp(用来生成错误)

输入数据

2。error2.asp

<%@ Language="vbscript"%>
<%
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
<%@ language="vbscript"%> <%
response.buffer = True

dim strNumber
dim strdesc
dim conn
dim rs

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("error.mdb")

strNumber = request("Number")
strDesc = request("Desc")

set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "tblError", conn , 2, 2
rs.addnew
rs("ErrNumber") = strNumber
rs("ErrDesc") = strDesc
rs("timeoccurred") = now()
rs.update
rs.movelast
strID = rs("id")
rs.close
set rs = nothing
conn.close
set conn = nothing

err.clear

%>

出错页面