Asp组件中级入门与精通系列之二

原创 2004年08月07日 00:20:00

我们先来看看Application对象

以前使用Application对象常常用于计数器和数据库的连接串

我们以计数器为例:

先看global.asa文件,这个比较简单

<script  language =vbscript runat=server>

sub Application_onstart

       Application("Counter")=0

end sub

 </script>

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

然后

打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fZ2
引用“Microsoft Active Server Pages Object”对象库。
创建两个组件事件:OnStartPage以及OnEndPage
在事件OnStartPage中创建类ScriptingContent的一个引用。
实例化类ScriptingContent

 

代码如下:

Option Explicit

 

'对象的声明

Dim myResponse As Response

Dim myRequest As Request

Dim myApplication As Application

Dim myServer As Server

Dim mySession As Session

 

    '当组件被创建的时候会触发这个事件

Public Sub OnStartPage(myScriptingContent As ScriptingContext)

     '进行对象的实例化

     Set myResponse = myScriptingContent.Response

     Set myRequest = myScriptingContent.Request

     Set myServer = myScriptingContent.Server

     Set myApplication = myScriptingContent.Application

     Set mySession = myScriptingContent.Session

End Sub

 

    '当组件被销毁的时候触发这个事件

Public Sub OnEndPage()

     '销毁对象

     Set myResponse = Nothing

     Set myRequest = Nothing

     Set myServer = Nothing

     Set myApplication = Nothing

     Set mySession = Nothing

End Sub

可以看到,把以前asp中写的搬到了vb中,写法是一样的

Public Sub ShowCounter()

    Dim intcounter As Long

    myApplication.Lock

    intcounter = myApplication("counter")

    intcounter = intcounter + 1

    myApplication("counter") = intcounter

    myApplication.UnLock

   

    myResponse.Write CStr(intcounter)

End Sub

 

测试

打开visual interdev6.0,生成一个asp文件

<%@ Language=VBScript %>

<HTML>

<BODY>

<%

dim obj

set obj=server.CreateObject("fCom.fZ2")

obj.ShowCounter()

%>

 

</BODY>

</HTML>

 

配置好虚拟目录,需要将global.asa文件放到根目录下,ie中执行此asp文件,刷新页面,就可以看到一个不断变化的数字。

 

Application的用法就讲到这里。

C#从入门到精通源码资源汇总下载(全部免积分)

NET学习从入门到精通100+源代码大放送 专辑中全部是源码资源,有基础学习源码,也有从网上需要购买的源码,现在全部免积分供大家学习参考 专辑地址为:http://download.csdn.n...
  • swj524152416
  • swj524152416
  • 2016年11月01日 16:51
  • 5262

[ReactNative入门到精通]React Native概述

2015年9月15日,Facebook发布了 React Native for Android,把 Web 和原生平台的 JavaScript 开发技术扩展到了 Google 的流行移动平台。什么是R...
  • yzzst
  • yzzst
  • 2015年10月11日 01:15
  • 11302

单点登录之CAS SSO从入门到精通(第二天)

啊。。。。。。沙滩,阳光,笔记本往膝上一搁,开始写博客。第一次没在国内过年,避开了吃吃吃,感觉真好,人也觉得轻松多了。上次说到了CAS SSO最基本的使用方法,并且我们结合了一个数据库表来实现了我们自...
  • lifetragedy
  • lifetragedy
  • 2015年02月22日 20:20
  • 11719

API入门系列之二_-Unicode还是ASCII.pdf

  • 2012年01月23日 19:34
  • 68KB
  • 下载

ASP.NET MVC 2博客系列之二:模型验证

【原文地址】ASP.NET MVC 2: Model Validation【原文发表日期】 Friday, January 15, 2010 4:14 AM【除了写博客外,我现在还使用Twitter发...
  • chengly0129
  • chengly0129
  • 2011年01月28日 10:59
  • 1538

ASP.NET MVC架构与实战系列之二:理解MVC路由配置

ASP.NET MVC架构与实战系列之二:理解MVC路由配置       在上一篇文章中,我简短的谈了一下MVC的底层运行机制,如果对MVC还不是很了解的朋友,可以作为入门的参照。接下来...
  • autumn20080101
  • autumn20080101
  • 2016年09月12日 09:40
  • 174

ASP.NET MVC架构与实战系列之二:理解MVC路由配置

原文:http://www.cnblogs.com/hmiinyu/archive/2012/05/28/2519661.html
  • xuefeiliuyuxiu
  • xuefeiliuyuxiu
  • 2017年01月14日 18:09
  • 76

【REACT NATIVE 系列教程之二】创建自定义组件&&导入与使用示例

本站文章均为 李华明Himi 原创,转载务必在明显处注明: 转载自【黑米GameDev街区】 原文链接: http://www.himigame.com/react-native/2219.html在...
  • xiaominghimi
  • xiaominghimi
  • 2016年05月11日 21:37
  • 2513

【Java Swing探索之路系列】之二:Java Swing布局面板组件

作者:郭嘉 邮箱:allenwells@163.com 博客:http://blog.csdn.net/allenwells github:https://github.com/AllenWel...
  • AllenWells
  • AllenWells
  • 2015年06月30日 16:16
  • 2763

Android 中级应用 handler 之二 初试handler

  • 2011年06月24日 15:51
  • 87KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Asp组件中级入门与精通系列之二
举报原因:
原因补充:

(最多只允许输入30个字)