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

來源:互聯網
上載者:User
一直以來,想寫一些組件方面的應用,這段時間終於可以寫一點自己喜歡的東西。

希望大家通過這些教程學習後,可以隨心所欲的寫出自己的組件。

每篇文章可能沒有關聯,只是寫一些組件編寫過程中出現的問題。

歡迎大家批評指正

環境:winxp+vb6+sp6+visual interdev6.0



作為第一篇,我們先來寫一個比較簡單的組件

完成的功能是:輸入兩個數相加,返回相加的結果

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

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

我們在名稱內輸入Add,類型選擇函數,範圍選取公有,然後確定即可

產生如下代碼,我們繼續完善

Option Explicit

Public Function Add(ByVal a As Long, ByVal b As Long) As Long

Add = a + b

End Function



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

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



測試

開啟visual interdev6.0,產生一個asp檔案,為什麼要使用interdev,因為它有代碼提示功能,與vb的ide環境一致,方便書寫

<%@ Language=VBScript %>

<HTML>

<HEAD>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

</HEAD>

<BODY>

<%

set obj=server.CreateObject("fCom.fC1")

‘下面這句注意了,因為函數有傳回值的,不能按下面的方法寫,否則ie中會報錯

‘obj.Add(3,4)

‘錯誤類型:
’Microsoft VBScript 編譯器錯誤 (0x800A0414)
’調用子程式時不能使用括弧
’/xml/fc1.asp, line 9, column 12
’obj.Add(3,4)

‘下面是正確寫法

dim c

c=obj.Add(3,4)

Response.Write c

%>



</BODY>

</HTML>



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



第一篇結束了,祝大家學習愉快



相關文章

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。