给你一段ASP的VBS代码,你自己转化一下放在服务器.要用VB写的话要引用相应的库:For Each objItem in Session.Contents If IsObject(Session.Contents(objItem)) Then Response.Write "Object reference: '" & objItem & "'<BR>" ElseIf IsArray(Session.Contents(objItem)) Then Response.Write "Array: '" & objItem & "' contents are:<BR>" varArray = Session.Contents(objItem) 'note: the following only works with a one-dimensional array For intLoop = 0 To UBound(varArray) Response.Write " Index(" & intLoop & ") = " & Server.HTMLEncode(varArray(intLoop)) & "<BR>" Next Else Response.Write "Variable: '" & objItem & "' = " _ & Server.HTMLEncode(Session.Contents(objItem)) & "<BR>" End If Next For Each objItem in Session.StaticObjects If IsObject(Session.StaticObjects(objItem)) Then Response.Write "<OBJECT> element: ID='" & objItem & "'<BR>" End if Next
估计有难度,顶一个先
好像与Web安全机制不符
用Cookies试试,Cookies是保存在客户端的
If IsObject(Session.Contents(objItem)) Then
Response.Write "Object reference: '" & objItem & "'<BR>"
ElseIf IsArray(Session.Contents(objItem)) Then
Response.Write "Array: '" & objItem & "' contents are:<BR>"
varArray = Session.Contents(objItem)
'note: the following only works with a one-dimensional array
For intLoop = 0 To UBound(varArray)
Response.Write " Index(" & intLoop & ") = " & Server.HTMLEncode(varArray(intLoop)) & "<BR>"
Next
Else
Response.Write "Variable: '" & objItem & "' = " _
& Server.HTMLEncode(Session.Contents(objItem)) & "<BR>"
End If
Next
For Each objItem in Session.StaticObjects
If IsObject(Session.StaticObjects(objItem)) Then
Response.Write "<OBJECT> element: ID='" & objItem & "'<BR>"
End if
Next