木子屋
 

标题: 统计站点Application和Session个数

作者: dnawo

日期: 2008-01-17 06:21 PM

分类: Web编程

内容: 复制内容到剪贴板 程序代码<%
Application("aaa") = "木子屋"
Application("bbb") = Array(1,2,3)
Session("aaa") = "www.mzwu.com"
Set Session("bbb") = Server.CreateObject("ADODB.RecordSet")
'Application统计
Response.Write("Application个数:" & Application.Contents.Count & "<br/>")
For Each apps In Application.Contents
    If IsObject(Application.Contents(apps)) then
        Response.Write("[对象]" & "<br/>")
    ElseIf IsArray(Application.Contents(apps)) then
        Response.Write("[数组]" & "<br/>")
    Else
        Response.Write(apps & ":" & cHtml(Application.Contents(apps)) & "<br/>")
    End If
Next
Response.Write("<br/><br/>")
'Session统计
Response.Write("Session个数:" & Session.Contents.Count & "<br/>")
For Each sens In Session.Contents
    If IsObject(Session.Contents(sens)) then
        Response.Write("[对象]" & "<br/>")
    ElseIf IsArray(Session.Contents(sens)) then
        Response.Write("[数组]" & "<br/>")
    Else
        Response.Write(sens & ":" & cHtml(Session.Contents(sens)) & "<br/>")
    End If
Next
Function cHtml(iText)
  cHtml = iText
  cHtml = Server.HTMLEncode(cHtml)
  cHtml = Replace(cHtml,chr(10),"<br>")
End Function
%>

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: 统计站点Application和Session个数

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms