在组件中如何使用session对象呀？

[晚晨]

在用vb开发的组件中中如何使用session对象呢？

[chinesun]

http://www.csdn.net/develop/Read_Article.asp?Id=6495

[chinesun]

这个文章里的说明介绍你去看看，一定对你有所帮助。
祝你成功

[晚晨]

http://www.csdn.net/develop/Read_Article.asp?Id=6495
这篇文章找不到

[swans]

引用asp.dll后.
真接用里面的session对象...

[swans]

你在ASP页面中生成一个session变量并赋值, 再调用这个组件的
getSession(ID)看看是不是你的值..

=====================================
组件源文件.

Option Explicit

Private Response As ASPTypeLibrary.Response
Private Request As ASPTypeLibrary.Request
Private Session As ASPTypeLibrary.Session
Private Application As ASPTypeLibrary.Application
Private Server As ASPTypeLibrary.Server


'初始化
Public Sub onStartPage(my As ScriptingContext)
Set Request = my.Request
Set Response = my.Response
Set Session = my.Session
Set Server = my.Server
Set Application = my.Application
End Sub

Public Function getSession(ByVal ID As String)
if Trim(ID)<>"" then
getSession=Session(ID)
else
getSession=""
end if
End Function

'消毁
Public Sub onEndPage()
Set Request = Nothing
Set Response = Nothing
Set Session = Nothing
Set Server = Nothing
Set Application = Nothing
End Sub