top
Loading...
作一個可以直接和瀏覽器進行交互的組件
【豆腐】 于 2000-11-9 9:49:22 加貼在 Joy ASP ↑:

作一個可以直接和瀏覽器進行交互的組件
/**
***
豆腐制作 都是精品
http://www.asp888.net 豆腐技術站
如轉載 請 注明出處
*/

我們一般在作組件的時候,一般都是在 asp 中首先獲取 數據,然后傳送到組件,經過組件處理,
再傳回瀏覽器,但是有的時候,這樣做似乎 有困難,或者不方便,所以今天豆腐就在這里給大家
講一下如何 作一個可以直接和瀏覽器進行交互的組件
首先在 VB 制作組件的工程中 添加 asp.dll,然后看完豆腐的代碼 你就會 覺得 很簡單了

Private objRequest as Request
Private objResponse as Response
Private objServer as Server
Private objSession as Session
Private objApplication as Application

Public Sub onstartpage(sc As ScriptingContext)
' 創建 asp 對象,這樣下面的 objRequest...就可以和在 vb 中一樣簡單了
Set objRequest = sc.Request
Set objResponse = sc.Response
Set objServer = sc.Server
Set objSession = sc.Session
Set objApplication = sc.application
End Sub

Public Sub WriteCopyright()
objResponse.Write "豆腐制作,都是精品<br>"
objResponse.Write "<a href=http://www.asp888.net>豆腐技術站</a>"
End Sub
然后生成這個組件,給他起個工程名字 testCom,在 asp 中做如下調用
<html>

<%
Set testCom = createObject("testCom.testWrite")
testCom.WriteCopyright
%>

</html>

ok 我們就作好了 ,有興趣的話 大家可以類似的 多做幾個 例子

北斗有巢氏 有巢氏北斗