在運用Visiol studio.NET 開發Web 應用程式中，開發者常常會遇到一些問題：如開發好的程式，在開發環境下測試沒問題，怎么一搬到應用環境下，就會有問題? 不是程式的無法運行，就是程式的效率慢的同蝸牛在爬， 這種情況在.NET的新手中尤其常見。這篇文章不僅對.NET開發者的新手有幫助，同樣對哪些有經驗,也帶來一些啟示和參考。他們會遇到什么樣的問題，我不妨總結給大家：

1. 數據庫連接超時
2. 創建的對象只管用，不管釋放
3. 調試(Debug)模式下編譯后，就用于應用環境中了
4. 實際作業模式分享
上面的問題就像毒瘤，積累到一定程度就爆發,且影響深遠。

一、數據庫連接超時篇

　　若要知道數據庫連接超時問題,先看下面一段代碼:
[Sample-01]:
Public Shared Function getOEMPN(ByVal psPN As String, ByRef OEMPN As String) As BSResult
0001 Dim clsResult As New BSResult
0002 Try
0003 clsResult.ResultID = -1
0004 Dim dtResult As New DataTable
0005 Dim Sql As String = String.Empty
0006 Dim clsOraDb As New clsOraClienDb
0007 Dim strConn As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
0008 clsOraDb.Open(strConn) ‘這里Open后，后面看不到 clsOraDb.Close
0009 Sql = "SELECT SATBMMBRND.OEMPN FRUNO FROM SATBMMBRND WHERE SATBMMBRND.MATNO = :MATNO"
0010 Dim params() As OracleParameter = {New OracleParameter("MATNO", psPN)}
0011 If clsOraDb.FillDataTable(Sql, dtResult, params) = False Then
0012 Return clsResult
0013 End If
0014 If dtResult Is Nothing Then
0015 Return clsResult
0016 End If
0017 If dtResult.Rows.Count > 0 Then
0018 OEMPN = dtResult.Rows(0)("FRUNO").ToString()
0019 Else
0020 OEMPN = ""
0021 End If
0022 clsResult.ResultID = 1
0023 Return clsResult
0024 Catch ex As Exception
0025 clsResult.ResultID = -1
0026 Return clsResult
0027 End Try
End Function
對上述代碼行的部分解釋：
0006:引用數據庫連接的類;
0008:打開數據庫連接;

　　然后，整個函數你再找不到關閉數據庫連接的動作，是要等著操作系統來釋放嗎? 有人就說啦，看起來好像沒有什么大不了的,這僅僅是一個函數而已; 數據庫打開連接，未關閉不會影響到整個應用程式; 果真是這樣嗎?

　　讓我們談談數據庫連接的問題，在Oracle數據庫里，一般默認的數據庫連接數最多也就100多來個，不會超過200個,即使你改變這個連接數，但無論怎樣，它的連接數是有限的，不可能無限地供你消耗。

　　在Web這個程式里，它不僅不會自動關閉數據庫連接，象這樣的函數還會每次調用，都會重新用掉一個數據庫連接; 如果象這樣的函數很多的話，你就等著一個錯誤警告頁面彈出來，如Database Connection Timeout….等訊息。

　　這還不算什么，更有甚者，盡然在循環語句里寫下面的代碼如 ：
[Sample-02]
Foreach(DataRow row in tabl.select(“”,”ProductID”)
……………
clsOraDb.Open(strConn)
………….
Next
有人還喜歡玩下面的語句:
[Sample-03]
Foreach(DataRow row in tabl.select(“”,”ProductID”)
Foreach(DataColumn col in tbl.columns)
……………
clsOraDb.Open(strConn)

Next
………….
Next
說到這，有人就問啦，我在開發環境下測試一點問題都沒有呀？是呀，你是沒有問題，我想問的是，你開發環境的測試數據有幾筆？

現在，問題已經知道在哪里，怎么解決?

針對[sample-01]做如下處理,注意下面代碼:

Public Shared Function getOEMPN(ByVal psPN As String, ByRef OEMPN As String) As BSResult
0001 Dim clsResult As New BSResult
0002 Try
0003 clsResult.ResultID = -1
0004 Dim dtResult As New DataTable
0005 Dim Sql As String = String.Empty
0006 Dim clsOraDb As New clsOraClienDb
0007 Dim strConn As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
0008 clsOraDb.Open(strConn) 注釋：這里Open后，后面看不到 clsOraDb.Close
0009 Sql = "SELECT SATBMMBRND.OEMPN FRUNO FROM SATBMMBRND WHERE SATBMMBRND.MATNO = :MATNO"
0010 Dim params() As OracleParameter = {New OracleParameter("MATNO", psPN)}
0011 If clsOraDb.FillDataTable(Sql, dtResult, params) = False Then
0012 Return clsResult
0013 End If
0014 If dtResult Is Nothing Then
0015 Return clsResult
0016 End If
0017 If dtResult.Rows.Count > 0 Then
0018 OEMPN = dtResult.Rows(0)("FRUNO").ToString()
0019 Else
0020 OEMPN = ""
0021 End If
0022 clsResult.ResultID = 1
0088 clsOraDb.Close 注釋：后面看到 clsOraDb.Close
0023 Return clsResult
0024 Catch ex As Exception
0099 clsOraDb.Close 注釋：程序異常也看到 clsOraDb.Close
0025 clsResult.ResultID = -1
0026 Return clsResult
0028 Throw ex
0027 End Try
End Function
注意上面的兩句代碼:0088行和0099行。

在異常處理的時候,特別提醒兩點：

　　一, 你的數據庫關閉的時候應該是在代碼行0028前，而不是后;

　　二, 有人不習慣(或者一時疏忽)加上0088行的代碼;

針對[Sample-02]和[sample-03]，把打開數據庫連接寫在所有的循環語句之前,如:

clsOraDb.Open(strConn)
Foreach(DataRow row in tabl.select(“”,”ProductID”)
……………

………….
Next
　　當然還有另外一個做法，就是用Using語

二、對象只管創建應用，不管釋放篇

　　我們繼續用[Sample-01]的代碼,我們現在看0004行的代碼:
　　0004 Dim dtResult As New DataTable
　　誰會發現它被釋放，你不能，我也不能，從來沒有被釋放過。

　　“0004”行的代碼解釋是，要在內存劃分一個空間給這個定義的對象dtresult; 系統要劃分多大的空間呢？呀，我沒有研究過(留給那些有心人吧，呵呵..)。但有一點，要在內存劃分一個空間，就是要占用內存。那么內存有多大呢，不是無限大吧，也是有限的，所有運行上述代碼的最終結果是，系統的執行效率越來越慢，有人就懷疑，我有內存1到2G的，加上虛擬內存就更大，我只能說你的懷疑沒錯?？墒悄愕膽贸绦蚓陀眠@么一只函數嗎?我想肯定不是，所以上百只函數的應用執行對內存的消耗可想而知。如果是后臺自動運行的程序，及時是一個function，也會讓系統崩潰。這只是一個簡單的例子，有更復雜的。像這樣的對象應用還有:Dataset, Datatable,DataReader,DataAdapter,Datagrid..等。

那么怎么解決這些問題呢：

2.1在Try catch 語句前定義好所用的對象， 如:

Dim dtResult As New DataTable
Dim DR as New DataReader
Dim DS as New Dataset
Try
..
Catch ex As Exception
Throw ex
Finally
End Try

2.2釋放的語句如下

Dim dtResult As New DataTable
Dim DR as New DataReader
Dim DS as New Dataset
Try
..
……………..
Catch ex As Exception
--釋放應用的對象
Throw ex
Finally
--使用完后，釋放應用的對象
dtResult.dispose --從內存里清楚該對象
DR.dispose -從內存里清楚該對象
DS.dispose -從內存里清楚該對象
End Try
有人習慣寫成下面這樣:
Dim dtResult As New DataTable
Dim DR as New DataReader
Dim DS as New Dataset
Try
..
‘使用完后，釋放應用的對象
dtResult.dispose ‘從內存里清楚該對象
DR.dispose ‘從內存里清楚該對象
DS.dispose ‘從內存里清楚該對象
Catch ex As Exception
‘釋放應用的對象
Throw ex
Finally
End Try

這不是也釋放了嗎？我想問的是，如果程序出現異常，它們會釋放嗎 ？我肯定得告訴大家，它們一定不能釋放，為了確保程序的穩定運行，我建議大家都來用Try Catch語句。

2.3 絕不建議在循環語句寫如下的語句， 具體為什么,自己思考。

Foreach (DataRow row in tabl.select(“”,”ProductID”)
……………
Dim DS new Dataset 記住此乃寫代碼之大忌;
Dim DT new Databable….
………….
Next
還有一種寫法
Dim DS new Dataset
Dim DT new Databable…
Foreach (DataRow row in tabl.select(“”,”ProductID”)
DS=GetDatase
DT=GetDatatable……………
.
………….
Next

正確的寫法是：
Dim DS new Dataset
Dim DT new Databable…
Try
Foreach (DataRow row in tabl.select(“”,”ProductID”)
DS=nothing ‘每次使用，都先把內存空間釋放出來
DT=nothing ‘每次使用，都先把內存空間釋放出來
DS=GetDatase
DT=GetDatatable……………
.
………….
Next
Catch ex As Exception
Throw ex
Finally
DS.dispose
DT.dispose
End Try

　　另外，提醒大家一點，記得用 For Each 語句替代For i=0 to Rowcount-1，這樣的效率改善也是明顯的。

三、調試（Debug）模式下編譯就用于應用環境中篇

　　接著，程式開發好(也包括單元測試)，然后編譯直接分發到應用環境。

　　整個過程就結束了。誰也不曾想，這里埋下了一個深深的地雷，據微軟的人講，這樣分發的程式到應用環境，你有多少內存恐怕都不夠。

　　所以微軟建議我們做如下的工作:

“請將Web.config中的debug及Trace均設為False。還有您的所有程式請確保compile為Release Mode
Application set up for debugging
One reason for high memory that we see here in Support a lot is when you have debugging, tracing, or both enabled for your application.
While you are developing your application, this is a necessity.By default, when you create your application in Visual Studio .NET, you will see the following attribute set in your Web.config file:

and/or

Also, when you do a final build of your application, make sure that you do this in "Release" mode, not "Debug" mode. ”

　　如果不這樣做會有什么事情發生? 我分享一個同事的感受給大家：

　　“已經是很強悍的的DB和AP服務器(全部是刀片式服務器)了，可是問題一而再再而三地發生，那種感覺真的很無助很凄涼啊~”

　　后來的結果發現是內存使用率超高，到一定限度的時候，就會反應變慢，這個時候只要重啟IIS就可以好一段時間。后來分析IIS用到實體加虛擬的內存超過2G就會爆掉。

　這就是原因，你想遇到嗎？那就不妨試試。

四、實際操作分享篇

　　上面三個環節，任何一個發生問題，都會影響到系統的效率。我分享我們實際的作業的過程發生的一些情況，及怎么解決這些問題。

　　4.1 內存使用達到峰值，導致程序無法繼續運行。

　　有個同事分享了他們的經驗如下（原話分享）：

　　我們有一些程式是server跑的Job，并有越來越多之勢。而大家在寫程式的時候可能比較少考慮到耗內存這個問題。
下面的例子也許會給我們一點啟示。

　　下面也是原話
Pls help to check the Run In Rack Job program . It will no response after running two or three days . the AP server Memory usage will over 2.5G . after we close the the program , Memory will decrease to 1.5 .

　　大致意思是：在服務器端(也叫后臺)自動跑的一只程式，運行了兩三天后，停止運行了。檢查Server的內存使用率時,發現超過了2.5G; 在關掉了這只程式后，它就降到了1.5G…

　　4.2 進程請求過多，導致CPU無法及時處理，程序效率反應較慢。

　　下面都是同事的原話:

　　“年后產量逐漸增加，新的問題又出現了。從Server Performance上分析，和上次Memory過高不同的是CPU使用率過高。

　　每當CPU過高的時候，產線會大面積的反應說慢（這點和連接到哪臺AP有關系）。
　　每次慢的時候，我們就找到CPU過高的那臺AP，recycle IIS的application pool后就OK了。

　　于是我么再次找到Bon幫忙分析（結論:微軟結案報告 20090226V1 - SRT090119833891 Web service can't serve IISReset can fix.msg）。并給出了開發程序時的一些建議。

　　結論大致是說，沒有進程占用了特別高的CPU，也沒有進程占用CPU時間過長。只是對DB的請求的進程過多（比較吻合3廠的實際狀況—附件多，刷的快），加起來就整體過高。

　　還發現了很多DLL是built in debug mode，這些DLL占用了過多的memory資源。
后來根據Bon的建議，我們修改了IIS application pool的設定如下，解決過多請求不能及時處理，而造成CPU過高的問題。”

　　這里有一些問答關于應用連接池(Application Pool)的設定，對理解這樣的設置有一定的幫助:

1. Is one application pool’s maximum memory usage 1.5G?
A&: Each application pool is a w3wp.exe. w3wp.exe is a process. Every process has 2 G User mode virtual address, so the maximum memory usage for application pool is 2G. However, you can’t make sure that there is no memory fragment issue. Therefore, Out of memory always occur after 1.5 G according to our experience.
2. Is each application pool independent on memory usage?
A&: Different application pools are different w3wp.exe, so each application pool’s maximum memory usage is 2G.
3. Can setup maximum CPU usage on each application pool?
A&: You can monitor it, but you can’t setup it.