Private ASPsc As ObjectContext Set ASPsc = GetObjectContext Set Server = ASPsc.Item("Server") Set Application = ASPsc.Item("Application") Set Session = ASPsc.Item("Session") Set Request = ASPsc.Item("Request") Set Response = ASPsc.Item("Response")
Public P_Session As ASPTypeLibrary.Session P_Session.Contents("vvv") = "yyyyy" --赋值 REsponse.write P_Session.Contents("kkk") ---取值
up up up
Set ASPsc = GetObjectContext
Set Server = ASPsc.Item("Server")
Set Application = ASPsc.Item("Application")
Set Session = ASPsc.Item("Session")
Set Request = ASPsc.Item("Request")
Set Response = ASPsc.Item("Response")
P_Session.Contents("vvv") = "yyyyy" --赋值
REsponse.write P_Session.Contents("kkk") ---取值