以下為轉(zhuǎn)貼（http://www.chinaaspx.com/club/topic_6_16277.htm）
----------------------------------

作者：富 亮

--------------------------------------------------------------------------------

用ASP寫網(wǎng)頁(yè)的程序員，一定對(duì)VBSript語(yǔ)句“Set Conn=Server.Object(‘ADODB.Connection’)”非常熟悉。該語(yǔ)句是利用ASP的Server對(duì)象創(chuàng)建了一個(gè)數(shù)據(jù)庫(kù)控件，它提供了一系列的方法和屬性，可以幫助我們?cè)贏SP中方便的實(shí)現(xiàn)數(shù)據(jù)庫(kù)的操作。類似的，在Visual InteDev6.0中，我們還可以看到一些ASP的內(nèi)置組件如“Scripting.FileSystemObject”。但是，在有的場(chǎng)合，僅利用這些是不夠的或復(fù)雜的，而且ASP的Script語(yǔ)言遠(yuǎn)不如C++語(yǔ)言功能強(qiáng)大（如建立鏈表，B+樹結(jié)構(gòu)等），這就使我們想到，是否可以在開發(fā)網(wǎng)頁(yè)時(shí)使用具有良好數(shù)據(jù)結(jié)構(gòu)的C++語(yǔ)言。雖然CGI,ISAPI等都可謂是用C/C++開發(fā)網(wǎng)頁(yè)的先驅(qū)，但我們知道CGI,ISAPI的開發(fā)周期很長(zhǎng)，且不與網(wǎng)頁(yè)結(jié)合，直觀性差，編寫、調(diào)試?yán)щy；而在穩(wěn)定性上，由于ISAPI是動(dòng)態(tài)鏈接的方式，因此在執(zhí)行若出現(xiàn)問題，會(huì)使得Web服務(wù)器一起癱瘓。而ASP正好能補(bǔ)足這些缺點(diǎn)。
由此可見，如果能學(xué)會(huì)編寫ASP組件就能結(jié)合ASP的長(zhǎng)處編寫出強(qiáng)大的網(wǎng)頁(yè)。可惜的是，筆者在市面上很少看到有專門講如何用VC++來(lái)制作ASP組件的書籍。一般VC書籍只講一些寫Windows窗口程序或再加上編寫普通的動(dòng)態(tài)鏈接庫(kù)。而ASP書籍更是只談ASP中內(nèi)置組件的使用方法。其實(shí)，如果要真正掌握編寫ASP組件的機(jī)制，要牽涉到大量的COM技術(shù)的知識(shí)。而一些講COM技術(shù)的書是很深?yuàn)W的，且很少能結(jié)合有用的實(shí)例。為此，筆者想借此文以最簡(jiǎn)單的方法向大家介紹編寫過程。所謂簡(jiǎn)介，正說明將不涉及COM知識(shí)的具體細(xì)節(jié)，僅給出實(shí)現(xiàn)方法。
一、建立工程
打開VC++6.0，選擇New Projects中的ALT COM AppWizard, 并輸入好工程名（如MyStudio），記住該工程名將成為ASP組件名的一部分（其實(shí)可以修改，但很麻煩），在下一頁(yè)上選擇Server Type 為DLL，并可考慮在Support MFC前打勾（想必使用MFC編程的人不少）。按Finish結(jié)束。在生成的代碼中有四個(gè)標(biāo)準(zhǔn)的導(dǎo)出函數(shù)注冊(cè)DLL的，我們不必關(guān)心。

二、創(chuàng)建COM對(duì)象（新建ATL活動(dòng)模版庫(kù)類）
在菜單上選擇Insert New Class,并新建一個(gè)ATL Class,如取名為CmyComponent，你會(huì)發(fā)現(xiàn)在接口表中出現(xiàn)了一個(gè)ImyComponent，以后創(chuàng)建該接口的方法和屬性就可以在ASP中使用了。把Aggregatable選項(xiàng)去掉，我們不需要它。保持其他不變。

三、添加接口方法
在ClassView中，右擊ImyComponent,在出現(xiàn)的菜單中按Add Method。如圖，在Method Name中可寫上方法名如InitMyComp。在Parameters中寫上方法的參數(shù)如[in]int Number1,[out,retbal]int* Number2。這里要特別說明的是參數(shù)的寫法。

1.對(duì)于傳入的參數(shù)必須在參數(shù)前加上[in]，然后可跟上如int n或float f等。且每個(gè)傳入?yún)?shù)前都必須寫明。
2.對(duì)于調(diào)用方法的返回，不再是該方法名前的類型（因?yàn)樗羞@些方法都返回HRESULT，即表明是否調(diào)用成功），所以使用傳出的參數(shù)，在參數(shù)前必須加上[out,retval],然后可跟上如int* n 或者float* f等（如果返回的是int 或float 類型值時(shí)）。且每個(gè)方法僅限于返回一個(gè)這樣的參數(shù)。在函數(shù)體中可如寫上如“*Number2=Number1;”，表示把輸入?yún)?shù)作為傳出參數(shù)。

3.對(duì)于最常用的字符串參數(shù)在此我們使用BSTR str而不是通常的char* 或CString，所以在參數(shù)中需要寫作[in]BSTR str 或[out,retval]BSTR* str。需要特別注意與CString的轉(zhuǎn)換。如新建一個(gè)函數(shù)StrConv([in]BSTR bstr1,[out,retval]BSTR* bstr2)，在函數(shù)體中可寫上如：
CString str;
str=bstr1;
str=str.Left(str.GetLength()-1);
*bstr2=str.AllocSysString();
4.對(duì)于想把一個(gè)ASP對(duì)象作為參數(shù)的方法（如Request對(duì)象），可以使用[in]Iunkown *pIUnk，在函數(shù)體內(nèi)，可用如下語(yǔ)句：(具體請(qǐng)查閱MSDN中的相關(guān)類的內(nèi)容)
IRequest* pIRequest;
HRESULT hr = pIUnk->QueryInterface(IID_IRequest, reinterpret_cast<LPVOID*>(&pIRequest));
Long m_lDataSize;
HRESULT hr = pIRequest->get_TotalBytes(&m_lDataSize);
if (FAILED(hr))
return hr;
if (m_lDataSize == 0L)
{
return S_OK;
}

COleVariant varBytesToRead;
COleSafeArray sarrayBytes;
varBytesToRead = m_lDataSize;
sarrayBytes.CreateOneDim(VT_UI1, m_lDataSize);
hr = pIRequest->BinaryRead(&varBytesToRead, &sarrayBytes);
if (FAILED(hr))
{
sarrayBytes.Clear();
return hr;
}
…
5.對(duì)于不定個(gè)數(shù)參數(shù)，可使用SAFEARRAY，但使用方法較為復(fù)雜。可以在參數(shù)中輸入如下的內(nèi)容[in]SAFEARRAY array，并按Attribute…按鈕，在Name中選擇vararg。按確定后修改idl文件在把[in]SAFEARRAY array改為[in]SAFEARRAY(VARIANT) array。然后再打開MyComponent.h文件把該函數(shù)的參數(shù)SAFEARRAY array改為SAFEARRAY* array。再打開MyComponent.cpp文件修改參數(shù)，在函數(shù)體內(nèi)使用COleSafeArray類實(shí)現(xiàn)該參數(shù)的控制，如“COleSafeArray SArray(array,VT_BSTR)”，具體操作可查閱MSDN中的該類的成員函數(shù)。
四、添加接口屬性
在ClassView中，右擊ImyComponent,在出現(xiàn)的菜單中按Add Property。如圖，在Property中可選擇屬性類型如float，在下面可寫上屬性名如MyFloat。保持其他不變。這里需要說明的是在生成的put_MyFloat和get_MyFloat函數(shù)體中的書寫。

不妨舉個(gè)小例：
1.在CMyComponent 中添加成員變量m_myFloat
2.在put_MyFloat 中寫上：m_myFloat=newVal;
3.在get_MyFloat中寫上：*pVal=m_myFloat
有成員變量也是它優(yōu)于ISAPI的一個(gè)地方，在ISAPI中要在網(wǎng)頁(yè)間傳遞信息，只能通過URL參數(shù)或者是Cookie來(lái)實(shí)現(xiàn)，因?yàn)槊看握{(diào)用都是一次新的鏈接，無(wú)法在網(wǎng)頁(yè)之間仍然是同一次調(diào)用DLL,所以設(shè)置成員變量意義不大，只在一次調(diào)用中有用。而那兩種方法都只能傳遞很有限的字符，除非利用創(chuàng)建服務(wù)器端臨時(shí)文件（此方法很不好）。再說，ASP中的Session對(duì)象本身就是很好的存儲(chǔ)信息的對(duì)象。
至此，我們創(chuàng)建了一個(gè)非常簡(jiǎn)單的沒有什么功能的ASP組件，意在說明如何制作。下面，我們書寫一個(gè)簡(jiǎn)單的ASP網(wǎng)頁(yè)，來(lái)看看如何使用。網(wǎng)頁(yè)如下：
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Set Obj=Server.CreateObject("MyStudio.MyComponent")
j=Obj.InitMyComp(5)
Response.Write(j)
%>
<p>
<%
Obj.MyFloat=3.9
j=Obj.MyFloat
Response.Write(j)
%>
<p>
<%
str1="abcd"
str2=Obj.StrConv(str1)
Response.Write(str2)
%>
</BODY>
</HTML>
顯示結(jié)果為：
5
3.9
abc
也許，你現(xiàn)在還看不到編寫ASP組件的巨大魅力。但是，如果你正在編寫搜索引擎，文件上傳，自動(dòng)回復(fù)，等等的高級(jí)網(wǎng)頁(yè)制作，你若能夠充分的利用VC++的優(yōu)越編程手段，就不必在CGI，ISAPI中苦苦掙扎，可以比較方便的編寫這些功能。比方說用戶想在你的網(wǎng)頁(yè)上搜索幾個(gè)著名新聞網(wǎng)站上當(dāng)前的重要新聞，你就可以使用ASP組件在后臺(tái)實(shí)時(shí)的打開各網(wǎng)站獲得信息，篩選匹配后顯示給用戶。又比方說，當(dāng)注冊(cè)用戶告知他的email地址，你就可以利用ASP組件自動(dòng)給新注冊(cè)用戶發(fā)出確認(rèn)信函，用最快的方式讓用戶去確認(rèn)并使注冊(cè)成功……其實(shí)，你一定還有很多新的想法可以在網(wǎng)頁(yè)上得以實(shí)現(xiàn)，趕快行動(dòng)吧。