一份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:


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

第三步:

接着也把
'temp1="" '开关变量
前面的注释号 ' 去掉,改成
temp1="" '开关变量


<script language=vbscript runat=server>
Dim temp1,temp2

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3302.html