打开VB6和建立一个新的ActiveX DLL
2。在工程参考中添加微软Active Server页面对象库选择
3，将代码添加如下：
复制代码代码如下所示：
代码开始
的声明部分
私人myｓｃｒｉｐｔingcontext作为ｓｃｒｉｐｔingcontext
私人申请应用
私人MyRequest As Request
私人MyResponse反应
私人服务器作为服务器
私人mysession会话
下列公共函数定义（使用ASP对象，可用于VB MyApplication相当于ASP在VB应用程序中，我的请求就相当于ASP的要求，MyResponse相当于ASP的反应，MyServer相当于ASP的服务器，mysession相当于ASP会议）
市民Sub OnStartPage（passedｓｃｒｉｐｔingcontext作为ｓｃｒｉｐｔingcontext）
集myｓｃｒｉｐｔingcontext = passedｓｃｒｉｐｔingcontext
设置应用myｓｃｒｉｐｔingcontext MyApplication =。
把我的请求，请求myｓｃｒｉｐｔingcontext。
设置= myｓｃｒｉｐｔingcontext响应响应。
个= myｓｃｒｉｐｔingcontext服务器设置。
mysession = myｓｃｒｉｐｔingcontext会话设置。
端子
市民Sub OnEndPage（）
集myｓｃｒｉｐｔingcontext =没有
设置申请=没有
把我的请求=没有
设置响应=没有
设置服务器=没有
集mysession =没有
端子
创建一个自定义函数sayHello
市民Sub SayHello（）
响应。写（Hello World）
端子
代码结束

4、班级名称更改为：HelloWorld变化项目名称：TestVBCode
5、产生testvbcode.dll文件，并利用Windows注册后运行注册组件命令regsvr32路径 testvbcode.dll。（卸载组件命令regsvr32 / U路径 testvbcode .dll）
6、建立test.asp文件，代码如下
复制代码代码如下所示：
<
vb自建函数调用格式
设置对象名称= server.createobject（工程名称。Class name)
对象名称。自建函数名
集mytestobj = server.createobject（testvbcode。HelloWorld）
mytestobj.sayhello
%>

7。test.asp文件运行的结果如下：
你好世界
===========================================================
对于更复杂的应用程序，您可以通过这个示例来扩展它。
如：
复制代码代码如下所示：
公共子connstr2（）
设置conn = myserver.createobject（数据连接）
康涅狄格州开司机= {微软Access Driver（* .mdb）}；DBQ =myserver.mappath（CODATA .mdb）
集=康涅狄格州执行（SELECT * FROM新闻）
do while not rs.eof
响应。写（RS（news_title ））
移到下一项
环
关闭
设置conn =没有
端子

这被封装在数据库连接的代码中，当然，添加一个ADO引用。