作一个可以直接和浏览器进行交互的组件
日期：2013-03-25 浏览次数：20995 次
【豆腐】 于 2000-11-9 9:49:22 加贴在 Joy ASP ↑：</P><P>作一个可以直接和浏览器进行交互的组件
/**
***
豆腐制作 都是精品
http://www.asp888.net 豆腐技术站
如转载 请 注明出处
*/</P><P>我们一般在作组件的时候，一般都是在 asp 中首先获取 数据，然后传送到组件，经过组件处理，
再传回浏览器，但是有的时候，这样做似乎 有困难，或者不方便,所以今天豆腐就在这里给大家
讲一下如何 作一个可以直接和浏览器进行交互的组件
首先在 VB 制作组件的工程中 添加 asp.dll,然后看完豆腐的代码 你就会 觉得 很简单了</P><P>Private objRequest as Request
Private objResponse as Response
Private objServer as Server
Private objSession as Session
Private objApplication as Application</P><P>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</P><P>Public Sub WriteCopyright()
objResponse.Write "豆腐制作，都是精品<br>"
objResponse.Write "<a href=http://www.asp888.net>豆腐技术站</a>"
End Sub
然后生成这个组件，给他起个工程名字 testCom,在 asp 中做如下调用
<html></P><P><%
Set testCom = createObject("testCom.testWrite")
testCom.WriteCopyright
%></P><P></html>
ok 我们就作好了 ，有兴趣的话 大家可以类似的 多做几个 例子
