ASP调用存储过程,并获取异常信息

asp 获取异常信息，以ASP 使用ADO 调用存储过程 示例 

function GolfChkHasSet(GolfID,y,m,d)
    On Error Resume Next '运行发生异常错误时继续运行，必须开启这行
    set cmd = server.CreateObject("ADODB.Command")	
    cmd.CommandType = 4'调用存储过程方式 
		cmd.CommandTimeout = 30
		cmd.CommandText="Golf_chkHasSet"  '要调用的存储过程名称
		'创建Parameter对象
		cmd.Parameters.Append(cmd.CreateParameter("@RETURN",3,4))	'声明返回值		
		cmd.Parameters.Append(cmd.CreateParameter("@GolfID",3,1,4,GolfID))
		cmd.Parameters.Append(cmd.CreateParameter("@y",3,1,4,y))
		cmd.Parameters.Append(cmd.CreateParameter("@m",3,1,4,m))
		cmd.Parameters.Append(cmd.CreateParameter("@d",3,1,4,d))			
		'调用UpDateSetUseCommand()执行此 cmd

		objSql.UpDateSetUseCommand(cmd)            'objSql 是数据库公共操作类

                '检查是否发生了异常，有就输出错误信息
		If Err.Number <> 0 Then 
			Response.Clear 
			response.write"发生错误:<br/>"
			response.write Err.Number  
			response.write "错误信息："& Err.Description &"<br/> "
			response.write "出错文件："& Err.Source &"<br/> "
			response.write "出错行： "&  Err.Line &"<br/> "
		end if 
               '方法返回
		GolfChkHasSet = cmd.Parameters(0)  ' cmd.Parameters(0) 是存储过程的返回值

End function