如何将经典 ASP 会话的全部内容传递给 .net 代码？

Question

我知道如何从经典 ASP 站点（Server.CreateObject、gacutil 和所有其他站点）调用 .net 代码的练习。我说的是从 VBScript 代码调用 .net DLL。 （这与 ASP.net 无关）

我想知道的是，如何将整个 Classic ASP 会话的内容传递给 .net 代码。我想我想将Session.Contents 传递给.net 代码，但我不知道如何编写一个可以接受该对象的接口。

如果您还可以告诉我如何传递Request.Form 和ASPError 对象的全部内容，则可以加分。

Answer 1

假设您说“从 VBScript 代码调用 .net DLL”时是指 Set invokedNetDLL = CreateObject("MyNamespace.MyType")，我会尝试以下操作：

<%
    Dim key
    Dim serializedSession
    Dim invokedNetDLL

    For Each key in Session
        serializedSession = key & "=" & Session(key) & "&"
    Next

    'Trim last &
    serializedSession = Left(serializedSession, Len(serializedSession) - 1)

    Set invokedNetDLL = CreateObject("MyNamespace.MyType")
    invokedNetDLL.MyMethod(serializedSession)

%>

就Request.Form而言，同样的方法可以应用：

<%
    Dim key
    Dim serializedSession
    Dim serializedRequestForm
    Dim invokedNetDLL

    For Each key in Request.Form
        serializedRequestForm = key & "=" & Request.Form(key) & "&"
    Next

    'Trim last &
    serializedRequestForm = Left(serializedRequestForm, Len(serializedRequestForm) - 1)

    For Each key in Session
        serializedSession = key & "=" & Session(key) & "&"
    Next

    'Trim last &
    serializedSession = Left(serializedSession, Len(serializedSession) - 1)

    Set invokedNetDLL = CreateObject("MyNamespace.MyType")
    invokedNetDLL.MyMethod(serializedRequestForm, serializedSession)

%>

我还没有测试过这段代码，但这就是我要开始的地方。