ＡＳＰ(Active Server Page)是微軟公司的產品，由於它編程很容易上手，能快速開發功能強大的動態網站，現在很多網站（特別是Intranet/Extranet內部網）採用了ＮＴ＋ＩＩＳ＋ＡＳＳ的模式，使得較為流行的網站開發腳本語言。在ＷＥＢ服務中，文件上載服務是一個很常見的功能，而ＷＩＮ９Ｘ下的ＰＷＳ沒有提供相關元件；ＮＴ下的ＩＩＳ提供了一個Post Acceptor元件，但由於它要檢查使用者的ＷＷＷ存取權限而變得不太好用；也可以從Internet上下載有關元件，但這些大多都是商業元件，用於下載的是試用版，在使用時間或功能上都有限制。由於ＡＳＰ可以調用標準的ＯＬＥ/ＣＯＭ組件，我們可以用ＶＢ/ＶＣ／ＤＥＬＰＨＩ等高級編程工具根據我們自己的要求來定制自己的文件的組件，上Ｐ
以下將討論用ＤＥＬＰＨＩ為ＡＳＰ開發文件上載組件的原理和具體實現過程。
一、文件上載的實作原理
基於Web方式資料上傳，要遵從RFC1867標準，上載的檔案資料也不例外。如用下面ＨＴＭＬ頁面檔案（delphiup.htm）選擇上載檔案：
<!-- DelphiUp.htm：檔案上載介面-->
<html><head><title>檔案上載</title></head><body>
以ＤＥＬＰＨＩ編寫的文件上載元件實作文件上載
<form NAME="UploadForm" ACTION="delphiup.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<p>檔案另存為：<input TYPE=text NAME="SaveAs">
<p>請要選擇上載的檔案：<input TYPE=file NAME="FileData">
<input type="submit" name="b1" value="確認上載"> </p>
</form>
</body></html>
當客戶端選擇了一個檔案（如Test.TXT，其內容為「這裡是一個用於上載的檔案的內容。」）並按
「確認上載」按鈕提交資料後，伺服器端程式收到的資料將具有以下形式：
-----------------------------7cf1d6c47c#13#10
Content-Disposition: form-data; name="SaveAs"#13#10#13#10
NewFileName#13#10
-----------------------------7cf1d6c47c#13#10
Content-Disposition: form-data; name="FileData"; filename="D: est.txt"
Content-Type: text/plain#13#10#13#10
這裡是一個用於上載的文件的內容。 #13#10
-----------------------------7cf1d6c47c#13#10
Content-Disposition: form-data; name="b1"#13#10#13#10
確認上載#13#10
-----------------------------7cf1d6c47c--
其中，「-----------------------------7cf1d6c47c」是分界符，用來分隔表單（Form）中的各個網域；
#13#10是回車換行符的ＤＥＬＰＨＩ表示。我們可以這麼認為，每個表單域的資訊描述，都是以分界符加一對回車換行符#13#10開始；表單網域以「name="」開始，以「"」結束；表單域值以兩對回車換行符#13#10#13#10開始，以一對回車換行符#13#10#加分界符結束；檔案名稱以“filename="”開始，以“"”為結束。有了這些標誌，我們就可以取得表單域的名稱和值以及要上載的檔案的名稱，從而實現檔案資料的讀取和儲存了。
二、文件上載的實作過程
在理解上面提到的資料格式後，自己動手編寫一個文件上載元件對我們來說已經不是困難了。
（一）開始建立一個ＡＳＰ組件的工程
如果您對使用ＤＥＬＰＨＩ開發OLE Automation Server的步驟不太熟悉的話，請參閱《電子與電腦》１９９９年第０６期的一篇文章《用ＤＥＬＰ年第０６期的一篇文章《用ＤＥＬＰ的 Auto
這裡只簡單介紹一下操作步驟。
１、建立ActiveX Library工程
在ＤＥＬＰＨＩ中選擇選單File＝》New...，在“New Item”對話框的ActiveX選項卡中選擇“ActiveX Library”，ＤＥＬＰＨＩ會自動建立一個ＤＬＬ工程PRoject1。
２、建立Automation組件
在ＤＥＬＰＨＩ中選擇選單File＝》New...，在「New Item」對話方塊的ActiveX標籤中選擇「Automation Object」；然後在「Automation Object Wizard」對話方塊中輸入Class Name(如「UploadFile」) ，Instancing選擇“Multiple Instance」即可，點選「OK」後ＤＥＬＰＨＩ會自動建立一個ＴＬＢ（Type Library）檔案Project1_TLB.PAS和一個ＰＡＳ(Unit)檔案Unit1.PAS。在Type Library設計視窗中，將Project1改名為MyUpload，則該檔案上載元件的ＯＬＥ註冊碼為「MyUpload.UploadFile」。
３、引入ＡＳＰ類型庫
為了使用ＡＳＰ的五個內建物件（Request、Response、Server、application、session），需要引入ＡＳＰ類型庫。我們主要利用Request物件讀取從客戶端傳遞到伺服器端的資料。
在Project選單中選擇“Import Type Library”，在“Import Type Library”對話框的“Type Libraries”清單中選擇“Microsoft Active Server Pages Object Library(Version 2.0)」（如果沒有這個選項，請確定您的電腦上安裝了ＩＩＳ３以上或ＰＷＳ４以上並且ASP.DLL已正確註冊），Ｄ ＥＬＰＨＩ會自動建立一個ＴＬＢ檔案ASPTypeLibrary_TLB.PAS，其中有我們需要的ＡＳＰ物件類型宣告。
４、定義OnStartPage、OnEndPage流程
當在ＡＳＰ頁面上用Server.CreateObject建立一個ＯＬＥ物件實例時，ＷＥＢ伺服器會呼叫其方法OnStartPage，將ＡＳＰ應用環境資訊傳遞給該物件，我們可以在過程中取得客戶端資訊；當在ＡＳＰ頁面中釋放一個ＯＬＥ物件實例時，ＷＥＢ伺服器會呼叫其方法OnEndPage，我們可以在這個過程中進行釋放記憶體等結束操作。在我們這個元件中，我們要用到其OnStartPage方法。
OnStartPage方法應該在Unit1.PAS中定義，OnStartPage的函數原型為：
procedure OnStartPage(AScriptingContext: IUnknown);
其中參數AScriptingContext是一個IScriptingContext類型變量，包含五個屬性（Request、Response、Server、Application、Session）分別對應ＡＳＰ的五個內建同名物件。
我們需要在ＴＬＢ定義視窗（View＝》Type Library）中，為IUploadFile增加方法OnStartPage，其Declaration語句為「procedure OnStartPage(AScriptingContext: IUnknown);」。
（二）擷取客戶端上傳的數據
該工作可以放在OnStartPage過程中進行。
利用AScriptingContext的屬性Request(類型為IRequest)中的屬性TotalBytes（請求資訊內容長度）和方法BinaryRead可將客戶端上傳的請求資訊資料讀取到一個Byte類型的數組中，然後按RFC1867標準定義的資料格式來分析和提取數據。
１、先定義TUploadFile的幾個私有變數
在單元檔案UP01.PAS（由Unit1.PAS另存）中加入對ASPTypeLibrary_TLB.PAS的引用（Uses），
然後加入
private
FContentLength : LongInt;//請求訊息內容長度
FContentData : Variant;//內容資料,以陣列形式儲存請求資訊內容
FFileName, //要上載的檔案名稱
FDelimeter : string; //表單域分界符
FScriptingContext : IScriptingContext;//ASP處理上下文環境內容
FFileDataStart, //檔案資料開始位置
FFileDataEnd : LongInt; //檔案資料結束位置
２、提取客戶端上傳的請求資訊數據
//在OnStartPage事件中，取得ASP上下文資訊、請求資訊內容、表單域的分界符、檔案數據
procedure TUploadFile.OnStartPage(AScriptingContext: IUnknown);
var
ARequest : IRequest; //WWW請求對象
AOleVariant : OleVariant; //記錄請求資訊內容長度
intDelimterLength : integer;//分界符長度
longIndex,ALongInt,longPos : LongInt;
ContentData : AnsiString;//請求訊息內容的字串表示
strTemp : string;
FindEndOfFileData : boolean;//是否找到檔案資料結束位置
begin
//提取客戶端上傳的請求資訊數據
FScriptingContext := AScriptingContext as IScriptingContext;//取得ASP上下文信息
ARequest := FScriptingContext.Request;//取得WWW請求訊息
FContentLength := ARequest.TotalBytes;//請求資訊內容長度
//建立動態數組，用於以數組形式儲存請求資訊內容
FContentData := VarArrayCreate( [0,FContentLength], varByte );
//將請求資訊內容儲存到陣列中
AOleVariant := FContentLength;
FContentData := ARequest.BinaryRead( AOleVariant );//讀取請求資訊內容
//將請求資訊內容轉換為字串，方便定位
ContentData := ';
for longIndex := 0 to FContentLength - 1 do
begin
ContentData := ContentData + chr( Byte( FContentData[ longIndex ] ));
if FContentData[ longIndex ] = 0 then break;//0表示內容結束
end;
３、取得分界符、上載檔案名稱
//取得表單域的分界符
longPos := pos( #13#10,ContentData );//回車換行符所在位置
FDelimeter := Copy( ContentData,1,longPos-1);//該位置之前的內容為分隔符
//取得帶有來源路徑的檔案名稱，在請求資訊內容中，檔案名稱以
//filename="path/filename"的形式存儲
strTemp := 'filename="';//檔案名稱在「filename="」之後
longPos := pos( strTemp, ContentData );//取得「filename="」位置
if longPos <= 0 then
begin
FFileName := ';
FFileDataStart := -1;
FFileDataEnd := -2;
exit;
end;
//取得下個雙引號「"」之前的內容，即帶有來源路徑的檔案名稱
longPos := longPos + length( strTemp );
strTemp := ';
for longIndex := longPos to FContentLength - 1 do
if ContentData[ longIndex ] <> '"' then
strTemp := strTemp + ContentData[ longIndex ]
else break;
FFileName := strTemp;
４、取得文件資料的在請求資訊內容中的開始、結束位置
//檔案資料開始位置在檔案名稱後的第一個#13#10#13#10之後
delete( ContentData, 1, longIndex );
strTemp := #13#10#13#10;
FFileDataStart := longIndex + pos(strTemp, ContentData) + length(strTemp) - 1;
//檔案資料結束位置在下一個#13#10和分界符之前
//由於檔案資料可能包含非法字符，因此不能再用字串定位函數POS
//找出下一個分界符的位置
FFileDataEnd := FFileDataStart;
intDelimterLength := length( FDelimeter );
FindEndOfFileData := false;
while FFileDataEnd <= FContentLength - intDelimterLength do
begin
FindEndOfFileData := true;
for ALongInt := 0 至 intDelimterLength - 1 do
if Byte( FDelimeter[ ALongInt + 1 ] ) <>
FContentData[ FFileDataEnd + ALongInt ] then
begin
FindEndOfFileData := false;
break;
end;
if FindEndOfFileData then break;
FFileDataEnd := FFileDataEnd + 1;
end;
if not FindEndOfFileData then FFileDataEnd := FFileDataStart - 1//找不到分界符
else FFileDataEnd := FFileDataEnd - 3;//分界符,向前跳過#13#10
end;
（三）向ＡＳＰ程序傳遞訊息
在進行了（二）的操作之後，我們的上載組件可以根據ＡＳＰ程序的要求向其傳遞資料了。目前可以提供的資料有：客戶端來源檔案名稱（FFileName，含路徑）、檔案大小（FFileDataEnd-FFileDataStart+1）。
首先應該在ＴＬＢ設計視窗中宣告如下兩個方法GetFileName和GetFileSize。
１、返回客戶端來源檔案名稱（含路徑）
//傳回客戶端來源檔案名稱（含路徑）
function TUploadFile.GetFileName: OleVariant;
begin
result := FFileName;//客戶端來源檔案名稱（含路徑）
end;
２、返回檔案大小
//回傳檔案大小（Bytes）
function TUploadFile.GetFileSize: OleVariant;
begin
result := FFileDataEnd - FFileDataStart + 1;
end;
（四）保存文件
在進行了（二）的操作之後，我們的上載組件可以根據ＡＳＰ程序的要求保存文件了。首先應該在
ＴＬＢ設計視窗中宣告如下兩個方法SaveFileAs和SaveFile。
１、依指定文件名稱儲存文件
//以指定的文件名稱儲存文件，參數FileName為指定的文件名稱，傳回值True表示文件保存成功
function TUploadFile.SaveFileAs(FileName: OleVariant): OleVariant;
var
longIndex : LongInt;
AFile : file of byte;//以二進位的形式儲存文件
byteData : Byte;
begin
result := true;
try
assign( AFile, FileName );
rewrite( AFile );
for longIndex := FFileDataStart to FFileDataEnd do
begin
byteData := Byte( FContentData[ longIndex ] );
Write( AFile, byteData );
end;
CloseFile( AFile );
except
result := false;
end;
end;
２、按預設文件名稱儲存文件
//依預設文件名稱儲存文件，將文件以同名文件儲存於呼叫頁面所在目錄
function TUploadFile.SaveFile: OleVariant;
var
CurrentFilePath : string;
begin
//取得呼叫頁面所在目錄
CurrentFilePath := FScriptingContext.Request.ServerVariables['PATH_TRANSLATED'];
CurrentFilePath := ExtractFilePath( CurrentFilePath );
//儲存檔案
result := SaveFileAs( CurrentFilePath + ExtractFileName( FFileName ));
end;
三、上載元件應用舉例
在我們的例子中，DelphiUp.HTM是檔案上載介面，DelphiUp.ASP用來執行檔案上載作業。
DelphiUp.ASP的程式碼如下：
<!--DelphiUp.ASP：檔案上載處理頁面-->
<html><head><title>檔案上載</title></head><body>
<% dim Upload, FileName
set Upload = Server.CreateObject("MyUpload.UploadFile")
FileName = Upload.GetFileName
Response.Write "<br>正在儲存檔案《"&FileName&"》......"
if Upload.SaveFile then
Response.Write "<br>檔案《"&FileName&"》上載成功。"
Response.Write "<br>檔案大小為"&Upload.GetFileSize&"位元組。"
else
Response.Write "<br>檔案《"&FileName&"》上載失敗。"
end if
set Upload=nothing %>
</body></html>
四、幾點說明
１、由ＤＥＬＰＨＩ自動產生的原始碼編譯的ＤＬＬ檔案大小有２１５Ｋ，可以在
ASPTypeLibrary_TLB.PAS的Interface段中將Uses中的單元除ActiveX外全部刪除，在
MyUpload_TLB.PAS中刪除Uses中所有單元，則產生的ＤＬＬ檔案大小可減少到６１Ｋ。
２、以上方法同樣適用於ＣＧＩ程序，不過要用TWebRequest物件。
以上程序在PWIN98+Delphi3.0+PWS4.0下調試通過。