asp创建和获取Session级的对象及变量

时间:2009-03-25    点击:1533   
<%
'定义Index作为序号
Dim Index
Index=1
For Each SessItem In Session.Contents
'如果是对象
If IsObject(Session.Contents(SessItem)) Then
        Response.Write "(" & CStr(Index) & ")"
        Response.Write "名称:" & SessItem & ";"
        Response.Write "对象"
Response.Write("<br>")
    Else
'如果是数组
        If IsArray(Session.Contents(SessItem)) Then
            Response.Write "(" & CStr(Index) & ")"
            Response.Write "数组;"
            For each ArrayItem in Session.Contents(SessItem)
                Response.Write  ArrayItem & ","
            Next
     Response.Write("<br>")
        Else
     '如果是变量
            Response.Write "(" & CStr(Index) & ")"
            Response.Write "名称:" & SessItem & ";"
            Response.Write "值:" & CStr(Session.Contents(SessItem))
Response.Write("<br>")
        End If
    End If
    Index=Index+1
Next
%>
VBScript和JavaScript的数据共享(JavaScript to VBScript)
实现VBScript和JavaScript的数据共享(VBScript to JavaScript)
实现VBScript和JavaScript的数据共享(Server to Client)
创建VBScript编码模板
asp创建和获取Application级的对象及变量
> 返回     
地址:上海市普陀区胶州路941号长久商务中心 电话: QQ:
© Copyright 2012 上海网络 All Rights Reserved