[點(diǎn)晴永久免費(fèi)OA]ASP快速執(zhí)行動態(tài)網(wǎng)頁
這是一篇關(guān)于怎樣精簡代碼和Asp特征以獲得最快執(zhí)行速度的詳細(xì)文章。對于一個(gè)急燥的用戶來說，任何在按下用戶按鈕到結(jié)果出現(xiàn)在它們的屏幕之間的延遲可能意味著它們會轉(zhuǎn)到瀏覽其它的站點(diǎn)，假如你的是商業(yè)站點(diǎn)，這有可能意味著失去潛在的銷售。 我們沒有任何辦法控制用戶的帶寬，但我們的確能通過優(yōu)化Asp站點(diǎn)來獲得最佳的性能。大部分潛在性能的提升是通過系統(tǒng)改變而不是緊縮代碼，一個(gè)不合適的想法是，一旦遇到系統(tǒng)效率問題，就向系統(tǒng)開發(fā)者提意見要其升級系統(tǒng)。 首先，哪個(gè)因素可能影響Asp的性能？很不幸，有很多因素，下面這些只是其中的一部分：
1、可用帶寬
2、服務(wù)器上的處理器和其它硬件的速度 3、在服務(wù)器上運(yùn)行的其它程序(比如象那些OpenGL屏幕保護(hù)程序！)4、數(shù)據(jù)庫連接模式，連接池，數(shù)據(jù)庫系統(tǒng)本身(比如Oracle優(yōu)于Sql Server，Sql server優(yōu)于Access) 5、所使用的語言 6、存儲過程優(yōu)于行式Sql語句 7、使用編譯組件而不是VB或Javascript，好的Asp編程經(jīng)驗(yàn)，比如錯(cuò)誤處理等 一些以上的因素可能已經(jīng)被有IIS 知識經(jīng)驗(yàn)的開發(fā)者普遍留意到了，但其它的可能對于他們來說是十分復(fù)雜的問題。在這篇文章里， 將試著解釋所有影響Asp性能的每個(gè)因素，讓我們看一看那些在我們刮胡子的幾毫秒內(nèi)就能做到的主要事情。 ASP腳本大小 你是腳本頁（還有其它頁面）是不是比必須的長度要長？這是一開始執(zhí)行就會降低Asp性能的東西。ASP 腳本在用來獲取信息和格式化輸出的時(shí)候是十分有用的，但腳本也是逐行解釋執(zhí)行，所以你的腳本越長，執(zhí)行它的時(shí)間也就越長。 如果你的腳本很龐大，怎么做才能減少腳本的長度呢？這里有幾點(diǎn)建議： 你可以將它們轉(zhuǎn)換成服務(wù)器端組件，也就是說，做成VB動態(tài)鏈接庫DLL或者通過先進(jìn)的Windows編程語言或適當(dāng)?shù)腃OM接口語言將它轉(zhuǎn)換成未編譯組件，并且在服務(wù)器端注冊它們。對一個(gè)寫得好的ActiveX 組件進(jìn)行編譯不但能大幅度提高性能，還可以保護(hù)你的軟件(腳本)，尤其當(dāng)你將你的Asp站點(diǎn)發(fā)布在第三方主機(jī)上的時(shí)候。 因?yàn)槟_本是逐行解釋執(zhí)行的，所以剔除多余的腳本或建立更高效率的腳本能夠改進(jìn)性能。如果你在單個(gè)Asp文件中有數(shù)百行的代碼，可能這樣做你能很好地劃分使用者，買賣和數(shù)據(jù)服務(wù)。事實(shí)上，如果你這樣做，可能會找出一些冗余的代碼：如果你需要輸出幾個(gè)表格，你可以編寫一個(gè)通用函數(shù)來輸出一個(gè)表格，只是多次調(diào)用它。 在講述Asp腳本的大小問題的時(shí)候，不得不提及包含文件的大小。當(dāng)你使用一個(gè)包含文件的時(shí)候，整個(gè)包含文件被裝入，當(dāng)包含文件被包含的時(shí)候，相當(dāng)于在Asp文件本身寫下那部分代碼。因此，如果你在一個(gè)冗長的包含文件里定義了很多通用的方法和定義，要明白到在你包含該文件的時(shí)候，不管你要不要用到里面的每個(gè)方法和定義，它都是被整個(gè)裝入的。ASP 緩存全部的展開代碼，這會降低查找效率在這種情況下，包含文件必須被分割成更小的模塊化的文件。也要明白到包含文件被服務(wù)器視為單獨(dú)的頁面請求，使用太多的包含文件會影響下載時(shí)間。
<!-- #include file="Header.asp" -->
<!-- #include file="Footer.asp" -->
<script language="vbscript" runat="server">
Sub Main()
WriteHeader
WriteBody
WriteFooter
End Sub
Sub WriteBody()
...
End Sub Main '調(diào)用過程Main
</script> 假如你的腳本冗長的話，請使用Response.IsClientConnected。這意味著在客戶端不再連接到服務(wù)器的時(shí)候，你的服務(wù)器CPU能避免循環(huán)等待。
<%
'檢查客戶端是否仍在連接
If Not Response.IsClientConnected Then
'仍然連接著，處理程序
Else
'斷開
End If
%>
Interspersing ASP and HTML，每個(gè)人都這樣做？當(dāng)我們輸出表格的時(shí)候，我們會在ASP 和HTML代碼間轉(zhuǎn)換，而這是一個(gè)不好的習(xí)慣。例如：
<HTML>
<BODY>
<%
Set MyConn = Server.createObject("ADODB.Connection")
MdbFilePath = Server.MapPath("sample.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "select * from Friends"
Set RS = MyConn.execute(SQL_query)
WHILE NOT RS.EOF
%>
<LI><%=RS("Name")%>: <A HREF="">Homepage</A>
<%
RS.MoveNext
WEND
%>
</BODY>
</HTML> 另一個(gè)普遍的例子是使用IF語句的時(shí)候：
<%
If Not Session("DBOpen") Then
%>
<H1>Database not connected</H1>
<%
Else
%>
<H1>Database open</H1>
<%
End If
%> 在這些情況下，腳本性能能通過將服務(wù)器端腳本寫到一起來，而用Response.write產(chǎn)生Html代碼來提高性能。比如：
<%
If not Session ("DBOpen") Then
Response.Write "<H1>Database not connected</H1>"
Else
Response.Write "<H1>Database open</H1>"
End If
%> 在大的腳本和很多腳本的情況下，你將能看到性能的提高。注意這里盡量避免了使用<%標(biāo)記，這樣就能提高性能，ASP不需在執(zhí)行腳本的時(shí)候計(jì)算字符的Ascii碼。 Session狀態(tài)
無庸置疑地，在Asp中能夠通過Session維持某個(gè)狀態(tài)的能力是十分強(qiáng)大的特色。然而，它會影響你的性能。明顯地，你的站點(diǎn)的可伸縮性能變成了另一個(gè)問題，如果限制Session的使用的話。然而，session會為每個(gè)用戶消耗服務(wù)器資源。 如果你不使用session變量，或事實(shí)上你不必使用？使用隱藏表單域，在數(shù)據(jù)庫中保存數(shù)據(jù)，查詢字符串是不是其中的竅門？所以你應(yīng)該禁止Session狀態(tài)。你可以使用下面的聲明禁止使用session：
@EnableSessionState = False 這樣，ASP將不再檢查session信息。 如果你不得不依賴于session狀態(tài)，應(yīng)該避免在session對象中存放大量的數(shù)據(jù)。IIS中的session在客戶端的HTTP cookie可用的時(shí)候就會保持，導(dǎo)致被session占用的內(nèi)存在session 終止或超時(shí)前一直被占用。這樣，如果很多用戶同時(shí)使用你的程序的時(shí)候，你的服務(wù)器資源可能會耗盡。 數(shù)據(jù)庫訪問 數(shù)據(jù)庫訪問是必須的麻煩，訪問數(shù)據(jù)庫將會極大的減慢你的程序，但很顯然，如果沒有數(shù)據(jù)庫，很多站點(diǎn)將變得毫無價(jià)值可言。但通過存儲過程訪問數(shù)據(jù)庫來代替使用嵌入式Sql 語句，你可以提升潛在的性能。通過使用存儲過程和ActiveX Data Objects (ADO)，它們亦同樣擁有良好的靈活性。編程時(shí)應(yīng)該盡可能從存儲過程來輸出數(shù)據(jù)。 確認(rèn)你的數(shù)據(jù)庫具有索引，因?yàn)檫@樣能直接提高你的程序的效率。同樣，盡量在你的數(shù)據(jù)庫服務(wù)器運(yùn)行更新統(tǒng)計(jì)(update Statistics)以幫助追蹤你的數(shù)據(jù)分發(fā)，這樣，你的數(shù)據(jù)庫就能夠基于這些信息來改造查詢執(zhí)行。注意一些數(shù)據(jù)庫比如MS Access，是不是真正能在企業(yè)級程序中被接受？SQL Sever或者Oracle是一個(gè)更好的賭注。 讓SQL象它被設(shè)計(jì)的那樣工作，它能count(統(tǒng)計(jì))，連接(join)，排序(sort)和group數(shù)據(jù)。當(dāng)你能夠?qū)懗鲆粋€(gè)查詢語句來做這些東西的時(shí)候，就不要自己用其它語言來實(shí)現(xiàn)。 下面是一個(gè)統(tǒng)計(jì)所有列的最簡單的語法：
select count(*) from publishers where state='NY' 如果你統(tǒng)計(jì)一個(gè)指定的列，你必須使用group by語句來分組該列，否則它不會工作：
select count(city),city from publishers GROUP BY city 分類返回的數(shù)據(jù)：
select * from TableName where FieldName>50 OR FieldName<100 ORDER BY FieldName2, Field Name3 使用Odbc還是文件DSN連接數(shù)據(jù)庫？使用快速的OLEDB Provider技術(shù)連接你的數(shù)據(jù)庫而不是使用DSN連接。不再需要懇求你的ISP(或數(shù)據(jù)庫管理員/網(wǎng)管)為你建立一個(gè)系統(tǒng)DSN，當(dāng)你移走Web文件的時(shí)候，亦不需要改變配置。 OLEDB介于ODBC層和應(yīng)用程序之間。在你的ASP頁面中，ADO介于ODEDB之上的“應(yīng)用程序”。你的ADO調(diào)用首先被送到OLEDB，接著被送到ODBC層。然而，你可以直接連接到OLEDB層，并且如果你這樣做的話，你就能看到服務(wù)器端性能的提高。然而，怎樣直接連接到OLEDB？ 如果你使用SQLServer，使用下面的連接代碼連接數(shù)據(jù)庫： strConnString = "DSN='';DRIVER={SQL SERVER};" & _ "UID=myuid;PWD=mypwd;" & _ "DATABASE=MyDb;SERVER=MyServer;" 最重要的參數(shù)是DRIVER=部分。如果你要繞過ODBC而使用通過使用OLEDB連接SQL Server(這是更快的連接)，請使用下面的語法： strConnString ="Provider=SQLOLEDB.1;Password=mypassword;" & _ "Persist Security Info=True;User ID=myuid;" & _ "Initial Catalog=mydbname;" & _ "Data Source=myserver;Connect Timeout=15" 有什么不對的地方嗎？ 現(xiàn)在你可能會覺得有點(diǎn)奇怪：我們在這個(gè)新的連接方法中的要點(diǎn)是什么呢？為什么不使用標(biāo)準(zhǔn)DSN-less/System DSN途徑？呵，根據(jù)Wrox在他的著作《ADO 2.0 Programmer's Reference》中測試的結(jié)果表明，如果你使用OLEDB連接和DSN或者DSN-less連接方法比較，你會發(fā)現(xiàn)有下面的改進(jìn)： 性能對比：
SQL Access
OLEDBDSNOLEDBDSN
連接時(shí)間：18?82?連接時(shí)間：62?99
查詢1,000條記錄時(shí)間：29005400查詢1,000條記錄時(shí)間：100950 注釋：這個(gè)結(jié)果在Wrox的《ADO 2.0 Programmer's Reference》一書的第232和233頁可以查到。時(shí)間的單位是毫秒，查詢1,000記錄時(shí)間是通過服務(wù)器端游標(biāo)計(jì)算出來的(當(dāng)使用客戶端游標(biāo)的時(shí)候，OLEDB與DSN記錄集的性能之間的差別不大)。 ASP譯碼問題：
盡可能在客戶端確認(rèn)用戶輸入來減少HTTP來回請求的數(shù)量。如果瀏覽器有支持Javascript或其它腳本的能力，使用它們的力量以釋放更多的服務(wù)器資源。 下面的VBscript運(yùn)行于客戶端瀏覽器，在提交到你的服務(wù)器之前，用來驗(yàn)證用戶信息：
<script LANGUAGE="VBscript">
<!--
Sub btnEnter_OnClick
Dim TheForm
Set TheForm = Document.MyForm
If IsNumeric(TheForm.Age.Value) Then
TheForm.submit
Else
Msgbox "Please enter a numerical age."
End if
End Sub
//-->
</script>
<FORM method="POST" name=MyFormaction="myfile.asp">
Name: <INPUT typr="text" name="Name">
Age: <INPUT type="text" name="Age">
<INPUT type="button" name="btnEnter"value="Enter">
</FORM> 使用局部變量，避免使用全局變量。局部變量比全局變量更快地被Asp腳本引擎存取，因?yàn)椴恍杷阉髡麄€(gè)名稱域。避免改變數(shù)組定義。在第一次初始化的時(shí)候就簡單分配足夠的大小效率更高。在這種情況下，你可能會浪費(fèi)一些內(nèi)存，但你獲得了速度的優(yōu)勢。在服務(wù)器負(fù)載重的時(shí)候這個(gè)技術(shù)是顯然易見有效的。 如果你需要引用不一定要用到的對象，那么最好使用<OBJECT>標(biāo)記而不是用 Server.createObject方法。 使用Server.createObject引起對象立即被建立，反之，<OBJECT>標(biāo)記則不會這樣立即建立對象如果使用<object>定義后不使用該對象，你不會浪費(fèi)資源。 例如：下面的例子是一個(gè)使用<OBJECT>標(biāo)記建立一個(gè)application-scope廣告輪 Ad Rotator對象實(shí)例：
<OBJECT runat=server scope=Application id=MyAds progid="MSWC.AdRotator">
</OBJECT> 在存儲該Ad Rotator對象進(jìn)Application后，你可以在任何程序的頁面中用下面的語法訪問該對象
<%=MyAds.GetAdvertisement("CustomerAds.txt") %> 打開'Option Explicit'開關(guān)。在VB和VBscript 中，你可以在沒有顯式聲明的情況下使用變量。但打開這個(gè)選項(xiàng)可以鑒別用定義變量，這樣可以很好地書寫變量，并能幫助提高性能。未定義的局部變量會變慢，因?yàn)樵诮⑺?，名稱空間必須被搜遍后才知道變量是否存在。擺脫它，使每個(gè)變量清楚地定義(先定義后使用)。 這是一個(gè)好習(xí)慣，it may trap typos, 這樣更快。 除非你真正需要使用，否而不要使用Server.MapPath方法。如果你知道真實(shí)路徑就使用真實(shí)路徑。使用MapPath需要IIS找回現(xiàn)時(shí)服務(wù)器路徑，這意味著得向服務(wù)器發(fā)一個(gè)特殊的請求，也就意味著降低了性能。另一個(gè)方法是將路徑存放到局部變量中，在需要的時(shí)候使用，這樣就不需要服務(wù)器多次查找。 檢查你自己是怎么做的
你可以通過工具來測量你的系統(tǒng)性能，比如系統(tǒng)性能監(jiān)視器，netMon和PerfMon。
測試web性能可以用WCAT (Web Capacity Analysis Tool)。使用WCAT，你可以測試你的IIS服務(wù)器和網(wǎng)絡(luò)配置響應(yīng)各種各樣的客戶請求，數(shù)據(jù)或HTML頁面的能力。這些測試結(jié)果能夠被用來作為優(yōu)化你的服務(wù)器和網(wǎng)絡(luò)配置的指導(dǎo)。WCAT是專門設(shè)計(jì)用來估計(jì)Windows 2000中的因特網(wǎng)服務(wù)(或Windows NT)和IIS 能響應(yīng)的客戶工作量(仿真)。為了得到更多的信息，請參閱IIS Resource Kit(資源工具包)。那里也有冗長的WCAT用戶指南在MSDN在線Web sorkshop站點(diǎn)里面有一個(gè)下載鏈接。如果你認(rèn)真對待你的Asp 性能的話，務(wù)必取得該工具。力求最優(yōu)化應(yīng)用程序性能，你的web應(yīng)用程序會運(yùn)行更加順暢。如果不是真正需要，就不要影響服務(wù)器的性能。 asp 用存儲過程實(shí)現(xiàn)數(shù)據(jù)分頁
一、創(chuàng)建表 tiku_koushi
if exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[tiku_koushi]') and OBJECTPROPERTY
(id, N'IsUserTable') = 1)
drop table [dbo].[tiku_koushi]
GO
create TABLE [dbo].[tiku_koushi] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[title] [varchar] (250) COLLATE
Chinese_PRC_CI_AS NULL ,
[list2_id] [char] (10) COLLATE
Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO 二、存儲過程 sp_c
create proc sp_c
@tablename varchar(50),
@title varchar(250),
@list2_id varchar(50)
as
if @tablename='tiku_koushi'
select count(*) from tiku_koushi where title like '%'+@title+'%' and list2_id=@list2_id
GO 三、存儲過程 sp_search_tiku
create PROCEDURE sp_search_tiku
@tablename varchar(50),
@title varchar(250),
@list2_id varchar(10),
@pagesize int,
@page int
AS
if @tablename='tiku_koushi'
begin
declare @ks int
declare @str varchar(200)
set @ks=@pagesize*(@page-1)
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[temp_table91]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
begin
select * into temp_table91 from tiku_koushi where
title like '%'+@title+'%' and list2_id=@list2_id order
by id desc
set rowcount @pagesize
set @str='select * from temp_table91 where id not in
(select top '+str(@ks)+' id from temp_table91)'
execute(@str)
drop table temp_table91
end
end
GO 四、search_koushi.asp
<!-- #include file="conn.asp" -->
<%
line=6
if request("page")="" then
page=1
else
page=request("page")
end if
if page<1 then
page=1
end if
title=trim(request("title"))
list2_id=trim(request("list2_id"))
set rs2=conn.execute("sp_c 'tiku_koushi','"&title&"','"&list2_id&"'")
pagecount=CInt(rs2(0)\line)
if(CInt(rs2(0)) mod line)=0 then
pagecount=pagecount
else
pagecount=pagecount+1
end if
if CInt(page)>=pagecount then
page=CInt(pagecount)
end if
str=""
str=str&"page="&page&"&title="&title&"&list2_id="&list2_id
set rs=conn.execute
("sp_search_tiku 'tiku_koushi','"&title&"','"&list2_id&"','"&line&"','"&CInt(page)&"'")
if rs.eof then
response.write "no record"
else
%>
<html>
<head>
<style type="text/css">
td{}
a{text-decoration:none;}
</style>
<script language="javascript">
</script>
</head>
<body>
<table width="518" border="1" bordercolorlight="000000"
bordercolordark="#ffffff"
align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr bgcolor=#dfdfdf>
<td width="454" align="center" height=24 valign="middle">口試題的題目</td>
<td width="63" align="center" valign="middle">刪除</td>
</tr>
<% do until rs.eof %>
<tr height=22>
<td valign="middle">·<a href=void(0)" onclick="window.open('editkoushi.asp?id=<%=rs("id")%>&page=<%=page%>&title=<%=title%>&list2_id=<%=list2_id%>','','width=518 height=160 left=100')">
<%=rs("title")%></a></td>
<td align="center" valign="middle">刪除</td>
</tr>
<%
rs.movenext
loop
%>
<tr align="left" valign="middle" bgcolor="efeff6" height=22>
<td coldiv="2" style="padding-left:6px;">
<a href="search_koushi.asp?page=<%=1%>&title=<%=title%>&list2_id=<%=list2_id%>">首頁</a> <a href="search_koushi.asp?page=<%=page-1%>&title=<%=title%>&list2_id=<%=list2_id%>">上一頁</a> <a href="search_koushi.asp?page=<%=page+1%>&title=<%=title%>&list2_id=<%=list2_id%>">下一頁</a> <a href="search_koushi.asp?page=<%=pagecount%>&title=<%=title%>&list2_id=<%=list2_id%>">末頁</a> 一共 <%=pagecount%> 頁 當(dāng)前頁為: <%=page%>/<%=pagecount%> 頁 共有 <%=rs2(0)%> 條記錄</td>
</tr>
</table>
</body>
</html>
<%
rs2.close
set rs2=nothing
rs.close
set rs=nothing
end if
%>
該文章在 2022/6/21 22:40:00 編輯過 |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... 
|
400 186 1886
