今天给大家讲解一下如何在asp中,使用vb来开发dll组件
                           (下次讲解在vc++中来开发)

视频下载

1.新建文件夹 aspdll
2.新建文件 test.asp (<%=now()%>)
3.设置文件夹共享
4.测试一个简单的asp页面

http://localhost/aspdll/test.asp

没有问题

5.打开vb,新建 ActiveX DLL工程

添加引用:
Project --- references 
选择
Microsoft Active Server Pages Object Library
如果要使用数据库,就是ado对象 还要添加下面一个引用
Microsoft ActiveX Data Objects 2.6 Library

6.为了方便使用asp中的6大对象,我们要添加下面的一段话,一会我给大家解释

Option Explicit  '意思是: 要使用变量就必须要声明,默认情况下vb中使用变量是不用声明的
                 '为了程序的机构以及执行的速度,我们尽量声明变量,再使用变量

'声明对象,这些对象就是我们在asp中经常使用的6大对象
'这里做声明主要是方便在vb中方便的使用asp内置的6大对象
Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server

'当一个页面加载的时候执行
'这里主要是用来创建对象的
Public Sub OnStartPage(PassedscriptContext As ScriptingContext)
Set Context = PassedscriptContext
Set Application = Context.Application
Set Request = Context.Request
Set Response = Context.Response
Set Server = Context.Server
Set Session = Context.Session
End Sub

'当这个页面卸载的时候执行
'这里主要是用来销毁对象的
Public Sub OnEndPage()
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
Set Session = Nothing
Set Context = Nothing

End Sub

7.写一个函数

DllTest.AspDll

Public Function DllTest()
Response.Write ("现在时间是:" & Now())
End Function

现在我给大家解释一下代码

8 对应的asp文件的写法
<%

'set zujian = server.createobject("工程名称.类名称")
set zujian = server.createobject("DllTest.AspDll")
zujian.DllTest
%>

9.调试
 右键工程 -- 工程属性  -- 调试

选择start browser with URl:
http://localhost/aspdll/test.asp

10 运行,......................

ok
没有问题

11.发布
File -- Make dll
选择一个路径,这样我们的动态链接库就ok了
那么我们怎么使用呢

12 给系统注册
regsvr32 DllTest.dll

卸载组件  regsvr32 /u DllTest.dll

ok 这样我们的组件就做好了,
如果你要修改组件,必须重新启动iis,才能生效

好了,朋友们再见!

视频下载