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：
结果：很明显，第二个波锋不见了，看来释放成功了。
第四步：
我们先把代码恢复成最初的原始代码，等内存平稳下来后，再把前三步快速做一次，以便在同一个截图里比较内存的变化情况。
内存变化截图5：
结果：可以很清楚的看到三种情况的不同。无伦执行时间和内存占用，变量主动释放都比不被动释放的好。
第五步：
接着第三步的代码,把
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：
结果：再看下步才给结论吧
第六步：
把
'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:
结果：用同一个变量名，即使再重新赋值，原来的占用过的空间也得不到释放或替换（截图6说明），而且等程序被动释放时，使用的时间也比手动的慢（综合截图6、7说明）。
下面把