TypeLibrary 聲明ActiveX 組件常常要描述類型庫(kù)中該組件支持的常量。類型庫(kù)是一個(gè)文件，其中包含有關(guān) ActiveX 組件所支持的對(duì)象和類型的信
息。如果用戶的 Web 應(yīng)用程序依賴于已在類型庫(kù)中聲明了類型的 ActiveX 對(duì)象，就可以在 Global.asa 文件中聲明其類型。這
樣做以后，就可以在應(yīng)用程序范圍內(nèi)從任何腳本引用已在類型庫(kù)中聲明了的數(shù)據(jù)類型。有關(guān)在 ASP 中使用常量的詳細(xì)信息，請(qǐng)參閱“使用變量和常量”。 語(yǔ)法
<!--METADATA TYPE="TypeLib"FILE="file"UUID="typelibraryuuid"
VERSION="majorversionnumber.minorversionnumber"LCID="localeid"-->參數(shù)file
類型庫(kù)的絕對(duì)路徑。如果提供了該參數(shù)和 typelibraryuuid 參數(shù)，則 file 將用于標(biāo)識(shí)類型庫(kù)。file 參數(shù)和
typelibraryuuid 參數(shù)都是必選項(xiàng)。typelibraryuuid
類型庫(kù)統(tǒng)一的唯一標(biāo)識(shí)。file 參數(shù)和 typelibraryuuid 參數(shù)都是必選項(xiàng)。majorversionnumber
用于選擇版本。如果找不到所需的版本，將返回錯(cuò)誤。該參數(shù)是可選項(xiàng)。minorversionnumber
用于選擇版本。如果找不到所需的版本，將返回錯(cuò)誤。該參數(shù)是可選項(xiàng)。localeid 現(xiàn)場(chǎng)標(biāo)識(shí)，用于類型庫(kù)。如果找不到所需的現(xiàn)場(chǎng)，將返回錯(cuò)誤。該參數(shù)是可選項(xiàng)。
錯(cuò)誤信息服務(wù)器可返回下列錯(cuò)誤消息。錯(cuò)誤 說(shuō)明 ASP 0222 指定的類型庫(kù)無(wú)效。METADATA 標(biāo)記包含無(wú)效的類型庫(kù)指定。
ASP 0223 找不到類型庫(kù)。METADATA 包含的類型庫(kù)指定與注冊(cè)表項(xiàng)不符。
ASP 0224 類型庫(kù)無(wú)法加載。ASP 無(wú)法加載 METADATA 標(biāo)記中指定的類型庫(kù)。
ASP 0225 類型庫(kù)不能重疊。ASP 無(wú)法從在 METADATA 標(biāo)記中指定的類型庫(kù)中創(chuàng)建 Type Library Wrapper 對(duì)象。 注釋
最好將 METADATA 標(biāo)記寫在 Global.asa 文件的開始位置。但是，無(wú)論是內(nèi)部和外部 SCRIPT 標(biāo)記，都可以出現(xiàn)在 Global.asa
文件中的任何位置。通過(guò)將類型庫(kù)的名稱加在該常量的前面，可以避免對(duì)常量的不明確引用。例如，ADODB.adErrItemNotFound 會(huì)比
adErrItemNotFound 更明確。
如果使用 Microsoft Visual InterDev 創(chuàng)建 global.asa 文件，則 METADATA 標(biāo)記將包含可選的 STARTSPAN 和 ENDSPAN 關(guān)
鍵字。而 IIS 則會(huì)忽略這兩個(gè)關(guān)鍵字。示例
下面示例中的 MyComponent 是用 Visual Basic 5.0 編寫的。MyComponent 使用下列語(yǔ)句定義常量 MyError。
Public Const MyError = "You are not using MyComponent correctly."
類型庫(kù)包含在 mycomponent.lib 中，該文件安裝在下面的目錄中。C:\MyComponent
下面的 METADATA 標(biāo)記包含在 MyApp 應(yīng)用程序的 global.asa 文件中。該示例使用可選的 STARTSPAN 和 ENDSPAN 標(biāo)記。而
IIS 則不需要這兩個(gè)標(biāo)記。<!--METADATA TYPE="TypeLib"FILE="MyComponent.lib"-->
現(xiàn)在，MyApp 應(yīng)用程序中的任何 ASP 都包含如下腳本：<% Dim MyVar
Set MyVar = Server.CreateObject("MyComponent.MyClass")
Currentreturn = MyVar.MyMethod If Currentreturn = False
Response.Write(MyError) End If%>
（出處：熱點(diǎn)網(wǎng)絡(luò)）