「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)
%>
このコードはまだテストしていませんが、ここから始めます。