包括一個(gè)外部類型庫(kù)的引用。
<reference [object="progID" |guid="typelibGUID"] [version="version"]>
如果指定了 object 屬性,則不能再指定 guid 屬性。
在腳本部件中引用類型庫(kù)使您可以在腳本中使用在該類型庫(kù)中定義的常數(shù)。<reference> 元素查找并使指定程序 ID 或類型庫(kù)名稱所關(guān)聯(lián)的類型庫(kù)成為可用的。類型庫(kù)信息可以在 .tlb、.olb 或 .dll 文件中獲得。
<reference> 元素應(yīng)出現(xiàn)在 <component> 元素內(nèi)。如果在程序包中有多個(gè)腳本部件,該類型庫(kù)只能應(yīng)用于在 <component> 元素中聲明了這個(gè)類型庫(kù)的 腳本部件。
在下面的腳本部件片段中,通過(guò)引用 ADO 的類型庫(kù)(包含在 MSAD015.DLL 文件中),就可以在腳本中使用諸如 adStateOpen 這些 ADO 常數(shù)。
注意 CDATA 項(xiàng)是必需的,以使 <script> 元素中的腳本成為不透明的。詳細(xì)信息請(qǐng)參閱腳本部件文件和 XML 一致性。
<reference object="ADODB.Connection.2.0"/>
<registration progid="ADOScriptlet"/>
<public>
<property name="cnnstate"/>
<method name="openConnection"/>
<method name="closeConnection"/>
</public>
<script language="VBScript">
<![CDATA[
Dim cnn
Dim cnnState
Function openConnection()
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString =
"driver={SQL Server};server=myserver;uid=sa;database=pubs"
cnn.Open
If cnn.State = adStateOpen Then
cnnState = "open"
Else
cnnState = "closed"
End If
End Function
Function closeConnection()
cnn.Close
cnnState = "closed"
End Function
]]>
</script>