繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 作一个可以直接和浏览器进行交互的组件
- ASP
- 嵌入式Web视频点播系统实现方法
- GB与BIG5内码转换COM原代码
- 金额阿拉伯数字转换为中文的存储过程
- 利用 WSH 作定时工作流程
- 用InstallShield 进行 ASP 软件的打包和自动安装
- 服务器获得客户端时间的方法
- 关于如何读出图片的高度与长度的总结
- 按下回车键指向下一个位置的一个函数
- 一个不错的随机函数
- 一套加解密字符串的函数
- 一段加密函数（base64）
- 一段加密函数
- 使用asp实现支持附件的邮件系统（三）
- 使用asp实现支持附件的邮件系统（二）
- 使用asp实现支持附件的邮件系统（一）
- 检查当前目录下是否存在指定的文件，如果存在就重新命名
- MD5加密的javascript实现例子
- 如何在服务器端调用winzip命令行对上传的多个文件打包压缩
- MD5不可逆加密算法的ASP实现实例
- 看人家用使用InstallShield制作ASP安装程序(6)
ASP 中的 作一个可以直接和浏览器进行交互的组件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 211 ::
收藏到网摘: n/a
再传回浏览器，但是有的时候，这样做似乎 有困难，或者不方便,所以今天豆腐就在这里给大家
讲一下如何 作一个可以直接和浏览器进行交互的组件
首先在 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 我们就作好了 ，有兴趣的话 大家可以类似的 多做几个 例子
评论 (0) All
