经典 ASP 数组不返回值，错误 500

Question

我正在努力多次执行相同的代码来生成一个表。我的第一个想法是使用数组来做到这一点。

这是我到目前为止所得到的：

Dim iRow
iRow = 0 

'alternate color for rows   
Do While Not rsGlobalWeb.EOF 
If iRow Mod 2 = 0 Then 
    response.write "<tr bgcolor=""#FFFFFF"">"
Else 
    response.write "<tr bgcolor=""#EEEEEE"">"
End If 

'some other code
SqlBackup = "SELECT * FROM CMDBbackup WHERE Naam_Cattools = '" & rsGlobalWeb("Device_name") & "'" 
Set rsBackup = Server.CreateObject("ADODB.Recordset")
rsBackup.Open SqlBackup, dbGlobalWeb, 3     

'declaration of array
Dim fieldname(5),i
fieldname(0) = "Device_name"
fieldname(1) = "Image"
fieldname(2) = "Backup"
fieldname(3) = "Uptime"
fieldname(4) = "Processor"
fieldname(5) = "Nvram"

For i = 0 to 5
    If rsGlobalWeb(fieldname(i)) <> "" Then
        response.write("<td>" & rsGlobalWeb(fieldname(i)) & "</td>")
    Else
        If Not rsBackup.EOF Then
            If Not IsNull(rsBackup(fieldname(i))) And (rsBackup(fieldname(i)) <> "") Then
                response.write("<td>" & rsBackup(fieldname(i)) & " (backup)</td>")
            End if
        Else
            response.write("<td>No data found</td>")
        End if
    End if  
Next

response.write("</tr>")

iRow = iRow + 1
rsGlobalWeb.MoveNext 
Loop

我现在遇到的问题是，即使我关闭了友好消息，也会出现以下错误：

“500 - 内部服务器错误。 您正在查找的资源有问题，无法显示。”

日志文件显示以下内容： “DaEngineSDB.asp |58|800a000d|Type_mismatch 80 -” 其中 58 是包含 Dim Fieldname 的行。

如果没有数组，它确实会显示代码的其余部分（我还有 1 个其他字段被添加）。如果我删除数组并用普通字符串值填充字段名（i），它也可以正常工作。

我正在尝试谷歌所说的东西，但在尝试了几件事之后，我仍然遇到了困难。 有什么想法吗？

预先感谢，

埃里克

Answer 1

首先，您应该在 iis 中打开错误显示，或者阅读错误日志以获取其描述，如果不确定如何，请用 google 搜索。

如果没有错误描述，就很难检查错误所在。

Answer 2

问题解决了！

在我用头撞墙一天后，我发现我愚蠢地在 DO WHILE 循环内声明了数组。将声明移出并解决问题。