查看ASP Session 变量的小工具

ewing142

ewing142

2016-01-29 18:38

查看ASP Session 变量的小工具,查看ASP Session 变量的小工具
 

<%@ LANGUAGE="VBSCRIPT" %
<%
'#####################################################
'Function: 
'           List server Session variable &  Application  variable
'Author: Hardy He
'Date:   2003-3-12 23:30
'Memo: Be care for diffrent virtul path show diffrent Session
'#####################################################
%
<table border="2" cellspacing="1" bordercolor="#800000" width="100%" id="AutoNumber1" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="37" bgcolor="#D6D3CE"
<%
  Dim sessitem
   
 
  response.write "SessionID: " & Session.SessionID & "<br"
  response.write "List of " & Session.Contents.Count & "   items in Session  contents collection: "
 
 
  intItem=1
  For Each sessitem in Session.Contents
    response.write "<tr"
    If IsObject(Session.Contents(sessitem)) Then
         Response.Write  "<td"+CStr(intItem) + "</td"
           Response.Write  "<td"+sessitem+ "</td"
           Response.Write  "<td"+"Session object"+ "</td"
    Else
      If IsArray(Session.Contents(sessitem)) Then        
        Response.Write  "<td"+CStr(intItem) + "</td"
         Response.Write  "<td"+"Array Object "+ "</td" + "<td"
                 
         For each objArray in Session.Contents(sessitem)
         Response.Write  "***;"
         Next
         Response.Write "</td"
                 
      Else
             Response.Write  "<td"+CStr(intItem) + "</td"
        Response.Write  "<td"+ sessitem + "</td"
        Response.Write  "<td"+ CStr(Session.Contents(sessitem)) + "</td"        
      End If
    End If
    response.write "</tr"
    intItem=intItem+1  
  Next
 
%
</table

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

<br
<hr
LIST Application

<hr
<table border="2" cellspacing="1" bordercolor="#800000" width="100%" id="AutoNumber1" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="37" bgcolor="#D6D3CE"
<%

   intItem=1
   For Each Key in Application.Contents

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

    Response.Write  "<tr"
    If IsObject(Application.Contents(intItem)) Then
    
     Response.Write  "<td"+CStr(intItem) + "</td"
     Response.Write  "<td"+CStr(Key) + "</td"
     Response.Write  "<td"+"Object" + "</td"
    
    Else   
     Response.Write  "<td"+CStr(intItem) + "</td"
     Response.Write  "<td"+CStr(Key) + "</t

展开更多 50%)
分享

猜你喜欢

查看ASP Session 变量的小工具

ASP
查看ASP Session 变量的小工具

查看服务器Application/Session变量工具

ASP
查看服务器Application/Session变量工具

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

2.10 Application/Session变量工具

Web开发
2.10 Application/Session变量工具

win7小工具打不开win7小工具无法显示

电脑入门
win7小工具打不开win7小工具无法显示

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

了解U盘信息的小工具

电脑入门
了解U盘信息的小工具

揭秘Windows 8隐藏小工具

windows系统
揭秘Windows 8隐藏小工具

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

ASP中用Join和Array 可以加快字符连接速度

ASP中用Join和Array 可以加快字符连接速度

在ASP中使用Oracle数据库技巧

在ASP中使用Oracle数据库技巧
下拉加载更多内容 ↓