首頁 > 開發者 > ASP

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

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！
一直以來，想寫一些組件方面的應用，這段時間終於可以寫一點自己喜歡的東西。
希望大家通過這些教程學習後，可以隨心所欲的寫出自己的組件。
每篇文章可能沒有關聯，只是寫一些組件編寫過程中出現的問題。
歡迎大家批評指正
環境: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

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

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

聯繫我們

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

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

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More