Asp組件初級入門與精通系列之四

來源:互聯網
上載者:User
數組問題

數組在程式中使用的很多,而且比較容易出問題

我們通過小例子來看看



開啟vb6,建立Activex Dll工程。工程名修改為fCom,類名修改為fC4

點擊菜單->工具->添加過程

我們在名稱內輸入AcceptArray1,類型選擇子程式,範圍選取公有,然後確定

再次操作:在名稱內輸入AcceptArray2,類型選擇函數,範圍選取公有,然後確定即可

‘功能:傳遞數組地址到組件,使用ByRef關鍵字,並賦值返回

Public Sub AcceptArray1(ByRef varray As Variant) As Variant

varray(0) = "龍捲風"

varray(1) = "20"

End Sub



‘功能:返回一個字串數組

Public Function AcceptArray2() As Variant

Dim a(2) as Variant

a(0) = "龍捲風"

a(1) = "20"

AcceptArray2=a

End Function



Ok,一個組件就寫好了,點擊菜單->檔案->產生fCom.dll檔案

確定,在目錄下就會有fCom.dll檔案



測試

開啟visual interdev6.0,產生一個asp檔案



<%@ Language=VBScript %>

<HTML>

<BODY>

<%

dim obj

set obj = server.createobject("fCom.fC4")

dim a(2)

'測試第一個組件方法

obj.AcceptArray1(a)

response.write a(0)

response.write "<br>"

response.write a(1)

response.write "<br>"

'測試第二個組件方法

dim b

b=obj.AcceptArray2()

for i=0 to ubound(b)

Response.Write b(i)

response.write "<br>"

next

%>



</BODY>

</HTML>



配置好虛擬目錄,在ie中執行此asp檔案,得到結果如下:

龍捲風
20
龍捲風
20



總結一下:

字串,數字通過值傳遞或者作為傳回值被返回

如果使用引用傳遞,將參數的類型設為Variant。這樣做可以避免一些錯誤。不過儘可能的減少引用傳遞參數



未完待續



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。