asp,vb 调用vb动态链接库

 一、新建vb动态链接库(dll)

打开vb6.0 弹出窗口，选择ActiveX dll ，将工程重命名为：Project, 类模板重命名为：Test

 

   添加引用：Microsoft Active Server Pages Object Library

 

   向Test中创建函数：

 

 

function ShowMsg() as string ShowMsg="Hello Word!" end function   

 

 保存，编译，生成Test.dll

 

 

二、asp页面调用 Test.dll显示 "Hello word!"

 

 

 

<% set myobject=server.createobject("Project.Test") '创建对象 response.write(myobject.ShowMsg) '调用对象方法 %>   

 

 

三、vb引用自身dll

    

 

 

 dim myobject set myobject=createobject("Project.Test") msgbox(myobject.ShowMsg)