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

时间:2022-06-01 12:45:11

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

实验原始代码: 


<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: 
一份ASP内存的释放的实验报告

截图解释: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:
一份ASP内存的释放的实验报告

结果:内存开始出现方波。

第二步:

接着也把 
'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: 
一份ASP内存的释放的实验报告

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

第三步:

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


<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> 


看看是否能释放第一个变量所占用的内存空间 

内存变化截图4:
一份ASP内存的释放的实验报告

结果:很明显,第二个波锋不见了,看来释放成功了。

第四步: 

我们先把代码恢复成最初的原始代码,等内存平稳下来后,再把前三步快速做一次,以便在同一个截图里比较内存的变化情况。

内存变化截图5:
一份ASP内存的释放的实验报告

结果:可以很清楚的看到三种情况的不同。无伦执行时间和内存占用,变量主动释放都比不被动释放的好。

第五步:

接着第三步的代码,把
temp1="" '开关变量 
temp2 = space(1024*1024*50) '50MB 
改成 
'temp1="" '开关变量 
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="" '开关变量 

temp1 = 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> 


内存变化截图6:
一份ASP内存的释放的实验报告

结果:再看下步才给结论吧 

第六步:

把 
'temp1="" '开关变量 

改成 
temp1="" '开关变量 


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

temp1 = space(1024*1024*50) '50MB 

for i = 0 to 5000000 ' 延迟 
next 

temp1="" '开关变量 

temp1 = 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> 


看看结果会不会有所不同 

内存变化截图7: 
一份ASP内存的释放的实验报告

结果:用同一个变量名,即使再重新赋值,原来的占用过的空间也得不到释放或替换(截图6说明),而且等程序被动释放时,使用的时间也比手动的慢(综合截图6、7说明)。

下面把 
temp1="" '开关变量 

temp1 = space(1024*1024*50) '50MB 

调换一下两句的位置 
temp1 = space(1024*1024*50) '50MB 

temp1="" '开关变量


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

temp1 = space(1024*1024*50) '50MB 

for i = 0 to 5000000 ' 延迟 
next 

temp1 = space(1024*1024*50) '50MB 

temp1="" '开关变量 

for i = 0 to 5000000 ' 延迟 
next 

Response.write "<meta http-equiv='refresh' content='4;url=http://localhost/memory_test.ASP'>" 
</script> 


后的截图8:
一份ASP内存的释放的实验报告

结果:可以看出主动释放比被动的所需要的时间要少(波峰尖)

实验结论:

主动来释放内存是有作用的,不是某些人所说的要等页面结束才能释放掉,或者只是呆等程序结束再自动释放,而是在执行过程中也可以人为控制的。特别是程序中需要调用到几个大体积的变量时,尽快释放掉已无用的变量,不但可以减轻服务器的负担,也可以加快程序的运行。

如果发现此实验过程或结论有误,欢迎指正。

最后,关于用"",empty 或 null 来释放,结果基本是一样,有兴趣的可以自己亲自动手比较试试。至于说用哪个来释放变量更正规或更有效率,我无法在此实验中判断出来,希望知道的朋友来指教。


(出处:Viphot)