我不知道为什么我会收到错误500,语法是否正确

时间:2017-04-06 14:39:38

标签: session vbscript asp-classic vb6 recordset

我正在开发一个Web应用程序,我只需要将5个参数传递给在DLL上编译的Visual Basic 6方法。 以下参数是:

IdReport As Long
IdModel As Long
rsFilter As ADODB.RecordSet
stUser As String

我的问题是当我评论该行

olist.ListReport CLng(request("REP_ID")), CLng(request("RMO_ID")), list, CStr(session("MM_Domain") & "\" & session("MM_User"))

该应用程序工作正常,并且在浏览器上不显示错误500。当我取消注释该行时,我得到的错误号为500,即使我使用sublime文本和Visual Studio检查语法,我也无法检测到原因。

这是ASP Classic代码:

<%
Dim olist
Set olist = Server.CreateObject("cisft_Customers.Reports")

Dim list
Set list = Server.CreateObject("ADODB.Recordset")
Set list = olist.GetStructure()  'returns an empty recordset with the structure of the table from database

Dim array_list
array_list = Split(request("list"), ".")

Dim i
Dim list_item

i = 0
Do While i < IBound(array_list) + 1
    &nbsp; list_item = Split(array_list(i),"_")
    &nbsp; list.AddNew
    &nbsp; list("CustomerId") = CInt(list_item(0))
    &nbsp; list("CustomerOperator") = CInt(list_item(1))
    &nbsp; list("Ref_Value") = CStr(list_item(2))
    &nbsp; i = i + 1
Loop

If list.recordcount > 0 Then
    list.MoveFirst
End If

olist.ListReport CLng(request("REP_ID")), CLng(request("RMO_ID")), list, CStr(session("MM_Domain") & "\" & session("MM_User"))

response.write(Err.Number & "-" & Err.Description)

response.end
%>

0 个答案:

没有答案