当然，我会根据你的需求来回答你的问题。首先，我们需要明确你的问题属于代码开发还是报错问题。我将分别给出两种情况的解答。
1. 代码开发问题：如何将数据库记录转为数组
在ASP (Active Server Pages) 中，你可以使用ADO (ActiveX Data Objects) 来连接数据库并获取数据，然后可以将这些数据转换为数组。以下是一个示例代码，演示如何从SQL Server数据库中获取数据并将其存储到ASP的数组中：
示例代码
<%
' 创建ADO连接对象
Dim conn, rs, sql, arr
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=你的数据库服务器;Initial Catalog=你的数据库名;User ID=你的用户名;Password=你的密码;"
' 定义SQL查询
sql = "SELECT 列1, 列2 FROM 表名"
Set rs = conn.Execute(sql)
' 初始化数组
Dim arr()
ReDim arr(rs.EOF)
' 填充数组
Dim i
i = 0
Do While Not rs.EOF
ReDim Preserve arr(i)
arr(i) = Array(rs("列1").Value, rs("列2").Value) ' 可以根据需要调整字段
rs.MoveNext
i = i + 1
Loop
' 关闭记录集和连接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
' 输出数组内容（可选）
For Each item In arr
Response.Write("列1: " & item(0) & ", 列2: " & item(1) & "<br>")
Next
%>
2. 报错问题：解释和解决方法
如果你遇到了具体的错误，例如“运行时错误 '800a0cc1'：数据类型不匹配”，这通常是因为在处理数据时数据类型不正确或使用了错误的方法。以下是如何解决这种类型的问题：
(1) 报错问题的解释：
错误代码：运行时错误 '800a0cc1' 通常与数据类型不匹配有关。例如，当你尝试将一个字符串赋值给一个预期为数字的变量时。
可能原因：在数据库查询结果中某列的数据类型与你在代码中尝试访问的方式不匹配。例如，尝试将文本字段当作数字处理。
(2) 问题的解决方法：
检查数据类型：确保你在查询和赋值时使用的数据类型与数据库中的实际数据类型相匹配。例如，使用 rs("列名").Value 来获取值，这样可以自动处理数据类型。
示例修正代码：
<%
' 省略之前的连接和查询代码...
Do While Not rs.EOF
ReDim Preserve arr(i)
arr(i) = Array(rs("列1").Value, CInt(rs("列2").Value)) ' 确保列2是数字类型，使用CInt进行转换尝试（如果确定是数字）
rs.MoveNext
i = i + 1
Loop
' 省略关闭连接代码...
%>
注意：使用 CInt 或其他类型转换函数前，请确认该字段确实可以安全地转换为相应的数据类型，以避免数据丢失或运行时错误。如果字段可能包含非数字字符，最好在转换前进行检查或使用更安全的转换方法如 CLng 或 CDbl。