Miles

 

 dim j

j=Session.Contents.Count

Response.Write("Session variables: " & j & "
")

dim i

k = 1

For Each i in Session.Contents

  Response.Write(i &":" &Session.Contents(k) & "
")

  k=k+1

Next

下次要用就複製貼上了..