IDC资讯中心
给工程和类命名
现在我们来根据自己的爱好来为project1和class1来命名吧!给它们命名也是很重要的,我们以后会用这个工程名和类名来创建这个组件的实例!后面详细介绍.
如何改名,我就不想多说了!
我们的工程名改为exmaple,类名为helloword
怎样使用工程和类
现在我们有了我们自己的工程(example1)和类名(helloworld).以后我们就会在asp代码中使用它们的名字来引用这个组件.在asp中我们就这样引用,如下:
set objreference = server.createobject("projectname.classname")
对于我们工程的引用就是:
set objreference = server.createobject("example1.helloworld")
现在我们就能用objreference来调用我们在组件中所创建的函数,子程序.下面我们会来写一个sayhello的子程序, 我们执行它的代码如下:
为了在helloword类中使用asp的方法,你必须在此类中写一个onstartpage
子函数.如下:
public sub onstartpage(passedscriptingcontext as scriptingcontext)
set myscriptingcontext = passedscriptingcontext
end sub
现在,无论什么时候用户访问一个带有本组件的asp文件,iis就会把scriptingcontext传送给我们的对象请我们使用.这个scriptingcontext包括了全部的asp方法和属性.实现上,这使得我们有能力访问所有asp的对象.看下面的代码:
public sub onstartpage(passedscriptingcontext as scriptingcontext)
set myscriptingcontext = passedscriptingcontext
set myapplication = myscriptingcontext.application
set myrequest = myscriptingcontext.request
set myresponse = myscriptingcontext.response
set myserver = myscriptingcontext.server
set mysession = myscriptingcontext.session
end sub
以后我们就能用在vb中用myapplication 来代替asp中的application,同理可以代替request,server…..,不过我们来是要在 onstartpage之前来申明这些变量:
private myscriptingcontext as scriptingcontext
private myapplication as application
private myrequest as request
private myresponse as response
private myserver as server
private mysession as session
