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

技术文章

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

时间：2009-03-25 点击：1525

<%
'定义Index作为序号
Dim Index
Index=1
For Each AppItem In Application.Contents
'如果是对象
If IsObject(Application.Contents(AppItem)) Then
        Response.Write "(" & CStr(Index) & ")"
        Response.Write "名称：" & AppItem & "；"
        Response.Write "对象"
Response.Write("<br>")
    Else
'如果是数组
        If IsArray(Application.Contents(AppItem)) Then
            Response.Write "(" & CStr(Index) & ")"
            Response.Write "数组；"
            For each ArrayItem in Application.Contents(AppItem)
                Response.Write ArrayItem & ","
            Next
     Response.Write("<br>")
        Else
     '如果是变量
            Response.Write "(" & CStr(Index) & ")"
            Response.Write "名称：" & AppItem & "；"
            Response.Write "值：" & CStr(Application.Contents(AppItem))
Response.Write("<br>")
        End If
    End If
    Index=Index+1
Next
%>

asp判断奇数和偶数

VBScript和JavaScript的数据共享（JavaScript to VBScript）

实现VBScript和JavaScript的数据共享（VBScript to JavaScript）

实现VBScript和JavaScript的数据共享（Server to Client）

创建VBScript编码模板

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：