實驗?zāi)康?驗證主動釋放內(nèi)存變量是否有價值.

實驗原始代碼:

<script language=vbscript runat=server> Dim temp1,temp2 'temp1 = space(1024*1024*50) '50MB for i = 0 to 5000000 ' 延遲 next 'temp1="" '開關(guān)變量 '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>

內(nèi)存變化截圖1:


截圖解釋：CPU的波形變化是由頁面自動刷新引起的，不必在意！我們要觀察的只是內(nèi)存線的變化。這是原始狀態(tài)，內(nèi)存線保持水平無變化。

好，下面實驗正式開始：

第一步:

把原始代碼中的
'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="" '開關(guān)變量 '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>

再觀察內(nèi)存變化一段時間

內(nèi)存變化截圖2：


結(jié)果：內(nèi)存開始出現(xiàn)方波。

第二步：

接著也把
'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="" '開關(guān)變量 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>

內(nèi)存變化截圖3：


結(jié)果：方波比原來高了一層，成了階梯形。

第三步：

接著也把
'temp1="" '開關(guān)變量
前面的注釋號 ' 去掉,改成
temp1="" '開關(guān)變量

<script language=vbscript runat=server> Dim temp1,temp2 temp1 = space(1024*1024*50) '50MB for i = 0 to 5000000 ' 延遲 next temp1="" '開關(guān)變量 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>

看看是否能釋放第一個變量所占用的內(nèi)存空間

內(nèi)存變化截圖4：


結(jié)果：很明顯，第二個波鋒不見了，看來釋放成功了。

第四步：

我們先把代碼恢復(fù)成最初的原始代碼，等內(nèi)存平穩(wěn)下來后，再把前三步快速做一次，以便在同一個截圖里比較內(nèi)存的變化情況。

內(nèi)存變化截圖5：


結(jié)果：可以很清楚的看到三種情況的不同。無倫執(zhí)行時間和內(nèi)存占用，變量主動釋放都比不被動釋放的好。

第五步：

接著第三步的代碼,把
temp1="" '開關(guān)變量
temp2 = space(1024*1024*50) '50MB
改成
'temp1="" '開關(guān)變量
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="" '開關(guān)變量 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>

內(nèi)存變化截圖6：


結(jié)果：再看下步才給結(jié)論吧

第六步：

把
'temp1="" '開關(guān)變量

改成
temp1="" '開關(guān)變量

<script language=vbscript runat=server> Dim temp1,temp2 temp1 = space(1024*1024*50) '50MB for i = 0 to 5000000 ' 延遲 next temp1="" '開關(guān)變量 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>

看看結(jié)果會不會有所不同

內(nèi)存變化截圖7:


結(jié)果：用同一個變量名，即使再重新賦值，原來的占用過的空間也得不到釋放或替換（截圖6說明），而且等程序被動釋放時，使用的時間也比手動的慢（綜合截圖6、7說明）。

下面把
temp1="" '開關(guān)變量

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

調(diào)換一下兩句的位置
temp1 = space(1024*1024*50) '50MB

temp1="" '開關(guān)變量

<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="" '開關(guān)變量 for i = 0 to 5000000 ' 延遲 next Response.write "<meta http-equiv='refresh' content='4;url=http://localhost/memory_test.ASP'>" </script>

后的截圖8：


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

實驗結(jié)論：

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

如果發(fā)現(xiàn)此實驗過程或結(jié)論有誤，歡迎指正。

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


（出處：Viphot）

最新評論