<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      查看ASP Session 變量的小工具
                
                  發表時間：2023-08-17             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]<%@ LANGUAGE="VBSCRIPT" %><%'###############################################...
      <%@ 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>
      <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
          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) + "</td>"
           Response.Write  "<td>"+CStr(Application.Contents(intItem)) + "</td>"     
          End If
          intItem=intItem+1 
          Response.Write  "</tr>"
          
        Next
        
       %>
      </table>



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清