Vbscript ASP经典记录集错误';8007000e';内存不足

Vbscript ASP经典记录集错误';8007000e';内存不足,vbscript,asp-classic,Vbscript,Asp Classic,我有一个将记录集导出到excel的脚本。我的记录集有139列。我可以在fiddler中看到excel的表头已创建,但在写入值时,我会遇到以下错误: Microsoft光标引擎错误“8007000e” 内存不足 /包括/ExportFunctions.inc,第49行 当我删除5列时,它工作得非常好,即使是空值列!这对我来说很奇怪,因为我找不到记录集的任何限制,我确信我已经处理了所有需要的对象。 这是我的密码: Response.Write "<table>" & vbCrLf

我有一个将记录集导出到excel的脚本。我的记录集有139列。我可以在fiddler中看到excel的表头已创建,但在写入值时,我会遇到以下错误:

Microsoft光标引擎错误“8007000e”

内存不足

/包括/ExportFunctions.inc,第49行

当我删除5列时,它工作得非常好,即使是空值列!这对我来说很奇怪,因为我找不到记录集的任何限制,我确信我已经处理了所有需要的对象。 这是我的密码:

Response.Write "<table>" & vbCrLf
Response.Write "<tr>" & vbCrLf
For intItem = 0 To rstResult.Fields.count - 1
    Response.Write "<th>" & rstResult(intItem).Name & "</th>" & vbCrLf
Next    
Response.Write "</tr>" & vbCrLf
dim index 
index = 0 
Do While Not rstResult.EOF
    Response.Write "<tr>" & vbCrLf
    For intItem = 0 To rstResult.Fields.count - 1
        Response.Write "<td><nobr>"
        If IsNull(rstResult(intItem).Value) Then
            Response.Write " "
        else
            Response.Write rstResult(intItem).Value
        end if
        Response.Write "</nobr></td>" & vbCrLf
    Next    
    Response.Write "</tr>" & vbCrLf

    Response.Flush

    rstResult.MoveNext
LOOP

有人知道这一点吗?

对于
ADODB.Recordset
来说,可能要处理的列太多了?(不知道只是猜测)。你在用什么数据库?您没有提供有关环境的详细信息,您使用的是服务器、本地桌面、IIS 5-7+、MySQL、SQL server(哪个版本)、其他一些RDM??不同语言相同错误。-我想ADODB.Recordset的列太多了,然后我尝试了一个150列的查询,像这样
选择1作为1,2作为2,…,150作为150
,代码运行得很好!真奇怪,我在Windows server 2012 R2中使用SQL server 2014和IIS 7
Do While Not rstResult.EOF