一份ASP内存的释放的实验报告

实验目的:验证主动释放内存变量是否有价值.
实验原始代码:

<script language=vbscript runat=server>
Dim temp1,temp2
'temp1 = space(1024*1024*50) '50MB
for i = 0 to 5000000 ' 延迟
next
'temp1="" '开关变量
'temp2 = space(1024*1024*50) '50MB
for i = 0 to 5000000 ' 延迟
next
Response.write "<meta http-equiv='refresh' content='4;url=http://localhost/memory_test.ASP'>"
</script>

内存变化截图1:

截图解释：CPU的波形变化是由页面自动刷新引起的，不必在意！我们要观察的只是内存线的变化。这是原始状态，内存线保持水平无变化。
好，下面实验正式开始：
第一步:
把原始代码中的
'temp1 = space(1024*1024*50) '50MB
前面的注释号 ' 去掉，改成
temp1 = space(1024*1024*50) '50MB

<script language=vbscript runat=server>
Dim temp1,temp2
temp1 = space(1024*1024*50) '50MB
for i = 0 to 5000000 ' 延迟
next
'temp1="" '开关变量
'temp2 = space(1024*1024*50) '50MB
for i = 0 to 5000000 ' 延迟
next
Response.write "<meta http-equiv='refresh' content='4;url=http://localhost/memory_test.ASP'>"
</script>

再观察内存变化一段时间
内存变化截图2：

结果：内存开始出现方波。
第二步：
接着也把
'temp2 = space(1024*1024*50) '50MB
前面的注释号 ' 去掉,改成
temp2 = space(1024*1024*50) '50MB

<script language=vbscript runat=server>
Dim temp1,temp2
temp1 = space(1024*1024*50) '50MB
for i = 0 to 5000000 ' 延迟
next
'temp1="" '开关变量
temp2 = space(1024*1024*50) '50MB
for i = 0 to 5000000 ' 延迟
next
Response.write "<meta http-equiv='refresh' content='4;url=http://localhost/memory_test.ASP'>"
</script>

内存变化截图3：

结果：方波比原来高了一层，成了阶梯形。