brug af session.sessionid

Jamen du bruger den bare, f.eks. når der tilføjes til indkøbskurven indsætter du den sammen med alle data. også når du skal trække ud igen, henter du bare de records som har det rigtige session id

Her er et eksempel...

\' Context context management code
\'
\' Contains two implementations of context storage: client-side cookie and database
\'

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\' Cookie implementation
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\'Dim CookieName
\'Dim ContextKey
\'CookieName = \"geekfest\"
\'ContextKey = \"context\"
\'
\'
\'Function GetContext()
\'  GetContext = Request.Cookies(CookieName)(ContextKey)
\'  If GetContext = \"\" Then
\'    GetContext = CreateNewSession()
\'  End If
\'End Function
\'
\'Function PutContext(ByVal UserContext)
\'  Response.Cookies(CookieName)(ContextKey) = UserContext
\'End Function

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\' Database implementation
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
Dim CookieName
Dim ContextKey
CookieName = \"duwamish_online\"
ContextKey = \"SessionID\"

Function GetContext()
  Dim SessionID
  Dim SessionData
  Dim SessionXML

  Dim oWfl
  Dim XMLDoc
  dim ContextElement

  Set XMLDoc = Server.CreateObject(\"Microsoft.XMLDOM\")
  XMLDoc.async = False

  Set oWfl = Server.CreateObject(\"d5wfl.cWorkflow\")

  \'\' Get session ID from cookie
  SessionID = Request.Cookies(CookieName)(ContextKey)

  \' If session ID exists, get session data from database
  If SessionID <> \"\" Then
    SessionData = oWfl.GetSession(SessionID)

    \'response.write \"<div style=\"\"display:none\"\">SessionData : \" & SessionID & \":\"      & SessionData & \"</div>\"

    XMLDoc.loadXML (SessionData)

    Set ContextElement = XMLDoc.documentElement.selectSingleNode(\"Context\")

    If Not ContextElement Is Nothing Then
      GetContext = ContextElement.xml
    else
      \'if there was no context element returned, just send new context back
      GetContext = SessionData
    End If

  \' Else session ID does not exist, create new session
  \' Save SessionID to cookie
  Else
    SessionData = CreateNewSession()
    SessionXML = oWfl.InsertSession(SessionData)

      \'  response.write \"<div style=\"\"display:none\"\">SessionXML : \" & SessionXML & \"</div>\"

    XMLDoc.loadXML (SessionXML)\' & \"</Session>\")

    If Not XMLDoc.documentElement Is Nothing Then

        SessionID = XMLDoc.documentElement.GetAttribute(\"Id\")
        \'response.write \"<div style=\"\"display:none\"\">\" & CookieName & \" : \" & ContextKey & \" : \" & SessionID  & \" : \" & SessionData & \" : \" & SessionXML & \"</div>\"

        response.Cookies(CookieName)(ContextKey) = SessionID & \"\"

        \'response.write \"<div style=\"\"display:none\"\">SessionID : \" & SessionID & \"</div>\"

  end if

    GetContext = SessionData

  End If



  \'we are not testing the Error Child.


  Set XMLDoc = Nothing
  Set ContextElement = Nothing
  Set oWfl = Nothing

End Function

Function PutContext(ByVal SessionData)
  Dim SessionID
  Dim oWfl
  Dim bRtn

  Set oWfl = Server.CreateObject(\"d5wfl.cWorkflow\")

  \' Get session ID from cookie
  SessionID = Request.Cookies(CookieName)(ContextKey)

  \' response.write \"<div style=\"\"display:none\"\">PUTCONTEXT :SessionData : \" & SessionID & \":\"      & SessionData & \"</div>\"

  \' If session ID exists, update session data in database
  If SessionID <> \"\" Then
    bRtn = oWfl.UpdateSession(SessionID, SessionData)
  \' Else if session ID does not exist, create new session
  Else
    SessionID = oWfl.InsertSession(SessionData)
    Response.Cookies(CookieName)(ContextKey) = SessionID
  End If

    \' response.write \"<div style=\"\"display:none\"\"PUTCONTEXT : UpdateSession for \" & SessionID & \" : returned -\"      & SessionData & \"</div>\"

  Set oWfl = Nothing
End Function

\' helper function for GetContext, PutContext--don\'t use this function directly
Function CreateNewSession
  CreateNewSession = \"<Context></Context>\"
End Function