實驗目的:驗證主動釋放內存變量是否有價值.

實驗原始代碼:

<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 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說明）。

下面把
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：


結果：可以看出主動釋放比被動的所需要的時間要少（波峰尖）

實驗結論：

主動來釋放內存是有作用的，不是某些人所說的要等頁面結束才能釋放掉，或者只是呆等程序結束再自動釋放，而是在執行過程中也可以人為控制的。特別是程序中需要調用到幾個大體積的變量時，盡快釋放掉已無用的變量，不但可以減輕服務器的負擔，也可以加快程序的運行。

如果發現此實驗過程或結論有誤，歡迎指正。

最后，關于用""，empty 或 null 來釋放，結果基本是一樣，有興趣的可以自己親自動手比較試試。至于說用哪個來釋放變量更正規或更有效率，我無法在此實驗中判斷出來，希望知道的朋友來指教。


（出處：Viphot）

轉載于:https://www.cnblogs.com/Athrun/archive/2008/05/16/1200631.html

總結

以上是生活随笔為你收集整理的[转]一份ASP内存的释放的实验报告的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。