ASP編碼最佳化技巧8則

1.聲明VBScript變數

在ASP中，對VBScript提供了強勁的支援，能夠無縫整合VBScript的函數、方法，這樣給擴充ASP的現有功能提供了很大便利。由於ASP中已經模糊了變數類型的概念，所以，在進行ASP與VBScript互動的過程中，很多程式員也慣於不聲明VBScript的變數，這樣加重了伺服器的解析負擔，進而影響伺服器的響應請求速度。
鑒於此，我們可以象在VB中強制使用者進行變數聲明一樣在VBScript中強制使用者進行變數聲明。實現方法是：
在ASP程式行首放置<% option explicit%>。

2.對URL地址進行編碼
在我們使用ASP動態產生一個帶參數URL地址並進行跳轉時，在IE中解析很正常，但在NetScrape瀏覽時卻有錯誤如下：
HTTP Error 400
400 Bad Request
Due to malformed syntax, the request could not be understood by the server.
The client should not repeat the request without modifications.
解決方案是對產生的URL參數使用ASP內建server對象的URLencode方法進行URL編碼，例子如下：
<%
URL="xur.asp"
var1="username=" & server.URLencode("xur")
var2="&company=" & server.URLencode("xurstudio")
var3="&phone=" & server.URLencode("021-53854336-186")
response.redirect URL & "?" & var1 & var2 & var3
%>

3.清Null 物件
當使用完對象後，首先使用Close方法來釋放對象所佔用的系統資源；然後設定對象值為“nothing”釋放對象佔用記憶體。下面的代碼使用資料庫內容建立一個下拉式清單。程式碼範例如下：
<% myDSN="DSN=xur;uid=xur;pwd=xur"
mySQL="select * from authors where AU_ID<100"
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
set rstemp=conntemp.execute(mySQL)
if rstemp.eof then
response.write "資料庫為空白"
response.write mySQL
conntemp.close
set conntemp=nothing
response.end
　end if%>
<%do until rstemp.eof %>
<%
rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>

4.使用字串建立SQL查詢
使用字串來建立查詢並不能加快伺服器的解析速度，相反，它還會增加伺服器的解析時間。但在這裡仍然推薦使用字串代替簡單的查詢語句來進行查詢。這樣做的好處是，可以迅速發現程式問題所在，從而便利高效地產生程式。樣本如下：
<%mySQL= ""select * "
mySQL= mySQL & "from publishers"
mySQL= mySQL & "where state='NY'"
response.write mySQL
set rstemp=conntemp.execute(mySQL)
rstemp.close
set rstemp=nothing
%>

5.使用case進行條件選擇
在進行條件選擇的時候，盡量使用case語句，避免使用if語句。使用case語句，可以使程式流程化，執行起來也比if語句來的快。樣本如下：
<%
　　FOR i = 1 TO 1000
　　 n = i
　　 Response.Write AddSuffix(n) & "<br>"
　　NEXT
　　%>
　　<%
　　Function AddSuffix(num)
numpart = RIGHT(num,1)
SELECT CASE numpart
CASE "1"
IF InStr(num,"11") THEN
num = num & "th"
ELSE
num = num & "st"
END IF
CASE "2"
IF InStr(num,"12") THEN
num = num & "th"
ELSE
num = num & "nd"
END IF
CASE "3"
IF InStr(num,"13") THEN
num = num & "th"
ELSE
num = num & "rd"
END IF
CASE "4"
num = num & "th"
CASE ELSE
num = num & "th"
END SELECT
AddSuffix = num
　　END FUNCTION
%>

6.使用adovbs.inc檔案中定義的常量開啟記錄集
開啟記錄集時，可以定義記錄集開啟的遊標類型和鎖定類型。在adovbs.inc檔案中定義了一些常量來定義這些類型。adovbs.inc檔案儲存在\inetpub\iissamples\IISamples目錄下面。下面列舉幾個常用的遊標類型和鎖定類型。
遊標類型：adOpenFowardOnly遊標只能向前；adOpenKeyset遊標可向前或者向後，如一使用者添加記錄，新記錄不會出現在記錄集中；adOpenDynamic遊標動態隨意；adOpenStatic記錄集不對其他使用者造成的記錄修改有所反映。
鎖定類型：adLockReadOney不能修改記錄集中的記錄；adLockPessimistic在編輯一條記錄時鎖定它；adLockOptimstic調用記錄集Update方法時才鎖定記錄；adLockBatchOpeimstic記錄只能成批更新。
<!--#INCLUDE VIRTUAL="/ADOVBS.INC" -->
<%
connectme="DSN=xur;uid=xur;pwd=xur"
sqltemp="select * from publishers where name='xur'"
set rstemp=Server.CreateObject("adodb.Recordset")
rstemp.open sqltemp, connectme, adOpenStatic，adLockOptimstic
response.write rstemp.recordcount & " records in<br>" & sqltemp
rstemp.close
set rstemp=nothing
%>

7.避免在使用global.asa檔案中進行對象定義
由於global.asa檔案中的內容可以為網站內所有檔案引用，無疑，在global.asa檔案中進行對象定義可以省去很多重複工作。比如在global.asa中的application_onstart函數中進行如下定義：
<%SUB application_onstart
set application("theCONN")=server.createobject("adodb. connection")
END SUB %>;
這樣就可以在網站任何代碼中做類似引用：
<%
mySQL="select * from publishers where state='xur'
set rstemp=application("theconn").execute(mySQL)
%>
同樣地，可以在session_onstart函數中建立記錄集對象
<%SUB session_onstart
set session("rstemp")=server.createobject("adodb.recordset")
END SUB %>
然後在網站也面中進行如下引用：
<%
mySQL="select * from publishers where state='xur'
set session("rstemp")=conntemp.execute(mySQL)
%>
但這樣做的同時也有很大的負面影響，由於Application和Session變數都只有在關閉網站的時候才釋放佔用的資源，所以Session參數會浪費大量不必要記憶體，而且此時Application變數成為伺服器效能的瓶頸。
解決方案：建立定義對象ASP頁面，在需要進行調用這些對象的頁面上，引入這張ASP頁面。假設定義對象的ASP頁面名稱為define.asp，則只要在對應ASP頁面中加入以下語句就能引入該頁面。
<!--#INCLUDE VIRTUAL="/define.asp" -->
在進行頁面引進時，最好在待引進的ASP檔案中不要包含<%@LANGUAGE="VBSCRIPT"%>語句。因為在ASP檔案中，只能有一句由@來定義的指令碼解析語言。

8.安全防護
ASP提供了很好的代碼保護機制，所有的ASP代碼都在伺服器端執行而只返回給用戶端代碼執行結果。即便這樣，在老版本的IIS中還可以在檔案名稱後面加::$DATA來查看ASP的原始碼，這已經屬於Web Server安全範疇不在本文討論範圍內。下面提出兩點簡單的安全注意事項。
雖然在ASP中建議引入檔案以inc作為副檔名，在這裡仍建議以ASP作為引檔案的副檔名。當這些代碼在安全機制不好的Web Server上運行時，只需在地址欄上輸入引入檔案的地址(inc為副檔名)，就可以瀏覽該引入檔案的內容，這是由於在Web Server上，如果沒有定義好解析某類型（比如inc）的動態串連庫時，該檔案以源碼方式顯示。
不要把資料庫檔案放在網站結構內部，這樣，當惡意人士擷取資料庫路徑後，就可以輕易擷取該資料庫，進而肆意更改資料庫內容。比較好的做法是，為資料庫建立DSN（Date Source Name），而在進行資料庫訪問時直接存取該DSN。

ASP提速技巧五則

技巧之一：提高使用Request集合的效率
訪問一個ASP集合來提取一個值是費時的、佔用計算資源的過程。因為這個操作包含了一系列對相關集合的搜尋，這比訪問一個局部變數要慢得多。因此，如果打算在頁面中多次使用Request集合中的一個值，應該考慮將其存貯為一個局部變數。例如將代碼寫成下面的形式以加快指令碼引擎處理速度：
strTitle=Request.Form("Title")
strFirstName=Request.Form("FirstName")　
strLastName=Request.Form("LastName")　
If Len(strTitle) Then strTitle=strTitle & " "　
If strFirstName="" Then strFullName=strTitle & " " & strLastName　
Elseif Len(strFirstName)=1 Then
strFullName=strTitle & strFirstName & ". " & strLastName
Else
strFullName=strTitle & strFirstName & " " & strLastName　
End If

技巧之二：直接存取適當的集合
如果不是別無選擇，否則不要使用strPage=Request("page")的這樣的形式來擷取參數，因為這將按順序搜尋全部的集合—QueryString、Form、Cookies、ClientCertificate、ServerVarible直到發現第一個匹配值的名稱。這樣做比直接存取適當的集合效率低，並且是不安全的，除非能絕對保證這個值不會出現在另外一個集合中。
例如，可能希望搜尋滿足客戶請求的WEB伺服器名稱，這通過出現在每個查詢中的Request.ServerVarables集合中尋找“SERVER_NAME”來實現。然而，假如其他的集合也包含名為“SERVER_NAME”的值（鍵名不區分大小寫），當使用Request("server_Name")時，就會得到錯誤的結果。總而言之，應儘可能直接存取適當的集合。

技巧之三：在費時操作前使用Response.IsClientConnected屬性
使用Response.IsClientConnected是觀察使用者是否仍連到伺服器並正在載入ASP建立的網頁的有用方式。如果使用者中斷連線或停止下載，我們就不用再浪費伺服器的資源建立網頁，因為緩衝區內容將被IIS丟棄。所以，對那些需要大量時間計算或資源使用較多的網頁來說，值得在每一階段都檢查遊覽者是否已離線：
…… Code to create first part of the page
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
…… Code to create next part of page

技巧之四：最佳化ASP中的ADO操作
通常面言，資料構成了WEB網站的實際內容。所以，最佳化ADO操作以加速ASP代碼執行，十分有用：
a. 僅選擇所需的列：當開啟ADO記錄集時，除非需要獲得所有的列，否則不應自動地使用表名（即SELECT *）。使用單獨的列意味著將減少發送到伺服器或從伺服器取出的資料量。即使需要使用全部列，單獨地命名每個列也會獲得最佳的效能，因為伺服器不必再解釋這些列的名字。
b. 儘可能的使用預存程序。預存程序是預先編譯的程式，含有一個已經準備好的執行計畫，所以比SQL語句執行更快。
c. 使用適當的游標和鎖定模式。如果所做的全部工作只是從屬記錄集中讀取資料，並將其顯示在螢幕上，那麼就使用預設的只能前移、唯讀記錄集。ADO用來維護記錄和鎖定的細節的工作越少，執行的效能就越高。
d. 使用物件變數。當遍曆記錄集時一個肯定能提高效能的方法是使用物件變數指向集合中的成員。例如：
While Not RsGc.EOF
Response.Write "工程名稱：" & RsGc("GcMC") & "(工程代碼：" & RsGc("GcCode") & ")
"　
RsGc.MoveNext
Wend
可以用改寫為下面的代碼以加快執行：
set GcMc=RsGc("GcMc")
set GcCode=RsGc("GcCode")　
While Not rsGc.EOF Response.Write "工程名稱：" & GcMc & "(工程代碼：" & GcCode & ")
" RsGc.MoveNext　
Wend

新的代碼建立了物件變數的引用，所以可以使用物件變數而不是實際的變數，這意味著指令碼引擎的工作減少了，因為在集合中進行索引的次數變少了。

技巧五：不要混用指令碼引擎

我們知道，ASP頁面中既可以使用VBScript，也可以使用JScript。但是在同一個頁面上同時使用JScript和VBScript則是不可取的。因為伺服器必須執行個體化並嘗試緩衝兩個（而不是一個）指令碼引擎，這在一定程度上增加了系統負擔。因此，從效能上考慮，不應在同一頁面中混用多種指令碼引擎。