ASP編碼優化技巧8則
2020-07-27 13:19:33
供稿：網友
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.清空對象
當使用完對象后，首先使用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")時，就會得到錯誤的結果?？偠灾瑧M可能直接訪問適當的集合。
技巧之三：在費時操作前使用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則是不可取的。因為服務器必須實例化并嘗試緩存兩個（而不是一個）腳本引擎，這在一定程度上增加了系統負擔。因此，從性能上考慮，不應在同一頁面中混用多種腳本引擎。
