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

<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: [url=http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-91220-01.gif][img]http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-91220-01.gif[/img] [/url] 截图解释：CPU的波形变化是由页面自动刷新引起的，不必在意！我们要观察的只是内存线的变化。这是原始状态，内存线保持水平无变化。 好，下面实验正式开始： [b]第一步: [/b] 把原始代码中的 '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： [url=http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-89371-02.gif][img]http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-89371-02.gif[/img] [/url] 结果：内存开始出现方波。 [b]第二步：[/b] 接着也把 '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： [url=http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-69547-03.gif][img]http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-69547-03.gif[/img] [/url] 结果：方波比原来高了一层，成了阶梯形。 [b]第三步：[/b] 接着也把 '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： [url=http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-62927-04.gif][img]http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-62927-04.gif[/img] [/url] 结果：很明显，第二个波锋不见了，看来释放成功了。 [b]第四步：[/b] 我们先把代码恢复成最初的原始代码，等内存平稳下来后，再把前三步快速做一次，以便在同一个截图里比较内存的变化情况。 内存变化截图5： [url=http://www.cnbruce.com/blog/uploadfile/JPG/2006-9/21-55470-05.jpg][img]http://www.cnbruce.com/blog/uploadfile/JPG/2006-9/21-55470-05.jpg[/img] [/url] 结果：可以很清楚的看到三种情况的不同。无伦执行时间和内存占用，变量主动释放都比不被动释放的好。 [b]第五步：[/b] 接着第三步的代码,把 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： [url=http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-73352-06.gif][img]http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-73352-06.gif[/img] [/url] 结果：再看下步才给结论吧 [b]第六步：[/b] 把 '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: [url=http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-39959-07.gif][img]http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-39959-07.gif[/img] [/url] 结果：用同一个变量名，即使再重新赋值，原来的占用过的空间也得不到释放或替换（截图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： [url=http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-80319-08.gif][img]http://www.cnbruce.com/blog/uploadfile/GIF/2006-9/21-80319-08.gif[/img] [/url] 结果：可以看出主动释放比被动的所需要的时间要少（波峰尖） [b]实验结论：[/b] 主动来释放内存是有作用的，不是某些人所说的要等页面结束才能释放掉，或者只是呆等程序结束再自动释放，而是在执行过程中也可以人为控制的。特别是程序中需要调用到几个大体积的变量时，尽快释放掉已无用的变量，不但可以减轻服务器的负担，也可以加快程序的运行。 如果发现此实验过程或结论有误，欢迎指正。 最后，关于用""，empty 或 null 来释放，结果基本是一样，有兴趣的可以自己亲自动手比较试试。至于说用哪个来释放变量更正规或更有效率，我无法在此实验中判断出来，希望知道的朋友来指教。 （出处：Viphot）