memleak.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 41 行

ASPX

41 行

<%@ Import Namespace="System.Diagnostics" %>
<%@ Import Namespace="System.Text" %>

<script language="VB" runat=server>

   Sub Page_Load(Sender as Object, E as EventArgs) 
      Dim i As Integer
      Dim garbage As New StringBuilder
    
      If Application("garbage") Is Nothing Then
        Dim c As Integer

        For c=1 to 1000
          garbage = garbage.Append("xxxxxxxxxx")
        Next c

        Application("garbage") = garbage
      Else
        garbage = Application("garbage")
      End If

      For i=1 to 500
         ' Make sure we create a unique entry
         Application(i.ToString + DateTime.Now.ToString("r")) = (garbage.ToString() + DateTime.Now.ToString("r"))
      Next i

      Dim p as ProcessInfo 
      p = ProcessModelInfo.GetCurrentProcessInfo()

      ProcessID.Text = p.ProcessID.ToString()

   End Sub

</script>

<html>
   <body>
      <h2>The Process ID serving this request is: <asp:label id="ProcessID" forecolor=red runat=server/> </h2>
      <h2>There are <%=Application.Count.ToString()%> items in Application state memory.</h2>
   </body>
</html>

memleak.aspx - 源码说明

本页面展示了「This is a book about vb.you could learn this from this book」中的 memleak.aspx 源码文件，采用 ASPX 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与book相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?