当前位置: 首页 > 图文教程 > 网络编程 > ASP > 作一个可以直接和浏览器进行交互的组件

ASP
asp OpenTextFile文本读取与写入实例代码
在ASP编程中nothing代表什么意思?
asp之让Session永不过期
ASP获取ACCESS数据库表名及结构的代码
推荐一篇不错的新手asp编程的基本法则
最简洁的asp多重查询的解决方案
ASP 判断是否有中文的代码
asp.net常用函数收藏
asp下几种常用排序算法
asp获取数据库中表名和字段名的代码
简单的asp采集代码教程
asp生成带有样式的word文件方法
实用301转向到另一域名相应页面的asp代码
asp伪继承初探_实例代码
asp代理采集的核心函数代码
js table排序类代码
ASP UTF-8页面乱码+GB2312转UTF-8 +生成UTF-8格式的文件(编码)
Asp生成RSS的类_给网站加上RSS
utf-8 网页不显示+utf-8网页乱码的通用解决方法
asp截取指定英汉混合字符串_支持中文

ASP 中的 作一个可以直接和浏览器进行交互的组件


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 125 ::
收藏到网摘: n/a

  我们一般在作组件的时候,一般都是在 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 我们就作好了 ,有兴趣的话  大家可以类似的 多做几个 例子