SOAP TOOLKIT→.NET WEBサービスでのセッション管理

Private Sub Command1_Click()
  Dim dom As New DOMDocument40
  Dim ser As New SoapSerializer30
  Dim xmlhttp As New ServerXMLHTTP40
  
  ser.Init dom
  
  ser.StartEnvelope
  ser.StartBody
  ser.StartElement "SetData", "http://example.org/"
  ser.StartElement "s", "http://example.org/"
  ser.WriteString Text1.Text
  ser.EndElement
  ser.EndElement
  ser.EndBody
  ser.EndEnvelope
  
  xmlhttp.open "POST", "http://localhost:8080/session.asmx"
  xmlhttp.setRequestHeader "SOAPAction", "http://example.org/SetData"
  xmlhttp.send dom
  
  Dim CookieStr As String
  CookieStr = xmlhttp.getResponseHeader("Set-Cookie")
  Dim SessionId As String
  SessionId = Mid$(CookieStr, 1, InStr(CookieStr, ";") - 1)
  
  Set dom = New DOMDocument40
  Set ser = New SoapSerializer30
  ser.Init dom
  
  ser.StartEnvelope
  ser.StartBody
  ser.StartElement "GetData", "http://example.org/"
  ser.EndElement
  ser.EndBody
  ser.EndEnvelope
  
  Set xmlhttp = New ServerXMLHTTP40
  xmlhttp.open "POST", "http://localhost:8080/session.asmx"
  xmlhttp.setRequestHeader "SOAPAction", "http://example.org/GetData"
  xmlhttp.setRequestHeader "Cookie", SessionId
  xmlhttp.send dom
  
  Set reader = New SoapReader30
  reader.Load xmlhttp.responseStream
  MsgBox reader.RpcResult.Text
End Sub

<%@WebService Language="C#" Class="SessionAware"%>
using System;
using System.Web.Services;
[WebService(Namespace="http://example.org/")]
public class SessionAware : WebService {
	[WebMethod(EnableSession = true)]
	public string GetData() { return (string)(Session["Data"]); }
	[WebMethod(EnableSession = true)]
	public void SetData(string s) { Session["Data"] = s; }
}