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

　　一直以來想寫一些組件方面的應用這段時間終於可以寫一點自己喜歡的東西
　　
　　希望大家通過這些教程學習後可以隨心所欲的寫出自己的組件
　　
　　每篇文章可能沒有關聯只是寫一些組件編寫過程中出現的問題
　　
　　歡迎大家批評指正
　　
　　環境:winxp+vb+sp+visual interdev
　　　　　
　　作為第一篇我們先來寫一個比較簡單的組件
　　
　　完成的功能是:輸入兩個數相加返回相加的結果
　　
　　打開vb新建Activex Dll工程工程名修改為fCom類名修改為fC
　　
　　點擊菜單>工具>添加過程
　　
　　我們在名稱內輸入Add類型選擇函數范圍選擇公有然後確定即可
　　
　　生成如下代碼我們繼續完善
　　
　　Option Explicit
　　
　　Public Function Add(ByVal a As Long ByVal b As Long) As Long
　　
　　Add = a + b
　　
　　End Function
　　
　　
　　Ok一個簡單的組件就寫好了點擊菜單>文件>生成fComdll文件
　　
　　確定在目錄下就會有fComdll文件
　　
　　
　　測試
　　
　　打開visual interdev生成一個asp文件為什麼要使用interdev因為它有代碼提示功能與vb的ide環境一致方便書寫
　　
　　<%@ Language=VBScript %>
　　
　　
　　
　　
　　
　　GENERATOR Content=Microsoft Visual Studio >
　　
　　
　　
　　
　　
　　<%
　　
　　set obj=serverCreateObject(fComfC)
　　
　　下面這句注意了因為函數有返回值的不能按下面的方法寫否則ie中會報錯
　　
　　objAdd()
　　
　　錯誤類型
　　Microsoft VBScript 編譯器錯誤 (xA)
　　調用子程序時不能使用括號
　　/xml/fcasp line column
　　objAdd()
　　
　　下面是正確寫法
　　
　　dim c
　　
　　c=objAdd()
　　
　　ResponseWrite c
　　
　　%>
　　
　　
　　
　　
　　
　　
　　配置好虛擬目錄在ie中執行此asp文件得到結果
　　

From:http://tw.wingwit.com/Article/program/net/201311/12402.html