关于asp的数据处理函数

第一次使用博客，发布一个数据处理函数，欢迎批评指正
'-------------------------------------------
'strSQL：标准的SQL语句
'arrList：存放数据的二维数组
'ActionType：操作类型，0为增加、删除数据，1 为读取数据
'------------------------------------------

Function ActionDB(strSQL, arrList, ActionType)
    On Error Resume Next
    Dim objConn, objRS
    Dim strConnection

    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open Application("connstr")    'Application("connstr") 为 数据库连接字符串
    If Err.Number <> 0 then
        Response.write "<br><br><div align='center'>数据库连接错误！请检查数据库连接。</div>"
        Response.end
    End  if

    Select Case ActionType
          Case 0
               objConn.Execute strSQL
                If Err.Number = 0 then
                     ActionDB = True
                Else
                     ActionDB = False
                End If
     Case 1
               Set objRS = Server.CreateObject("ADODB.RecordSet")
               objRS.CursorLocation = 3
               Set ObjRS = objConn.Execute(strSQL)
               If Not objRS.Eof then
                   arrList = objRs.GetRows
                   ActionDB = True
                End if
                objRS.Close
                Set objRS = Nothing
                If Err.Number > 0 then ActionDB = False
    Case Else
               ActionDB = False
    End Select

    objConn.Close
    Set objConn = Nothing
 End Function