VB.NET工作笔记002---asp调用vb6编写的activex dll

JAVA技术交流QQ群：170933152

注意这里下面写的，这个小项目，个人发现，仅仅写一个sayHello（）方法就可以了，仅仅做个例子的话，不用这么麻烦还写这么多。。

打开VB6，新建ActiveX DLL
2、在工程引用中加入Microsoft Active Server Pages Object Library选择
3、填加代码如下：

复制代码代码如下:

'Code Start
'声明部分
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
'下面定义公用函数（在VB中访问ASP对象，即在VB中可以用MyApplication等同于ASP中的Application、MyRequest等同于ASP中的Request、 MyResponse等同于ASP中的Response、 MyServer等同于ASP中的Server、 MySession等同于ASP中的Session 使用）
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
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub
'建立自定义函数SayHello
Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub
'Code End

4、将类名改为：HelloWorld 将工程名改为：TestVBCode
5、生成TestVBCode.DLL文件，并使用Windows运行注册组件命令Regsvr32 路径\TestVBCode.DLL注册后即可使用。（卸载组件命令为Regsvr32 /u 路径\TestVBCode.DLL）
6、建立Test.asp文件，代码如下

复制代码代码如下:

<%
'VB自建函数调用格式
'Set 对象名=Server.CreateObject("工程名.类名")
'对象名.自建函数名
Set MyTestObj = Server.CreateObject("TestVBCode.HelloWorld")
MyTestObj.SayHello
%>

7、运行Test.asp文件结果显示如下：
Hello World
===========================================================
对于更复杂的运用,大家可以通过这个实例向外扩展就可以了.
如:

复制代码代码如下:

Public Sub connstr2()
Set conn = MyServer.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyServer.MapPath("codata.mdb")
Set rs = conn.Execute("select * from news")
Do While Not rs.EOF
MyResponse.Write (rs("news_title") & "<br>")
rs.MoveNext
Loop
rs.Close
Set conn = Nothing
End Sub

这个是用数据库连接的代码封装,当然这里要添加ADO引用的.

VB.NET工作笔记002---asp调用vb6编写的activex dll相关推荐

C#调用C++编写的COM DLL
在C#调用C++编写的COM DLL封装库时会出现两个问题: 1．数据类型转换问题 2．指针或地址参数传送问题首先是数据类型转换问题.因为C#是.NET语言,利用的是.NET的基本数据类型, ...
VB.Net工作笔记001---用ASP调用VB.NET编写的dll_ClassLibrary
JAVA技术交流QQ群:170933152 最近做的这个项目真是旧啊..变态啊...为啥想起来用asp去调用vb.net 写的dll...天呐... 据说,2020年server2008 不再支持as ...
VB.NET工作笔记005---用visual studio2017 编写WCF vb.net webservice
技术交流QQ群[JAVA,C,.NET,BigData,AI]:170933152 近期有个项目要这样用,用vb.net的winform,去调用vb.net写的webservice,真是奇怪的需求,都 ...
VB.NET工作笔记003---使用ASP_vbs脚本_或vb.net调用Sqlserver DTS文件
JAVA技术交流QQ群:170933152 旧版的asp的估计以后也没人用了,用估计也要换思路了.. vb.net类似下面的把 c#中调用SQLserver的DTS包进行数据的转换 DTS是sql s ...
VB.NET工作笔记008---vs2017创建使用WCF服务_并调用服务demo
技术交流QQ群[JAVA,.NET,BigData,AI]:170933152 声明,找的例子,之前没有做过wcf,但是看了看例子感觉挺简单的,记一下吧 WCF的全称是Windows Communic ...
VB.NET工作笔记007---ASP.NET中Session超时一直不起作用
技术交流QQ群[JAVA,.NET,BigData,AI]:170933152 最后发现是这个原因,在IIS中找到应用程序池,然后右边点击,详细设置,然后找到,进程模块中的最大工作进程数,设置为1 ...
C++工作笔记-VS中“调用堆栈”窗口的使用，实现越界的快速定位
目录理论演示理论如下面的这个代码,会出现index out of range的提示! 在vs中可以根据"调用堆栈"窗口,实现快速的定位, 演示构造如下错误代码: #inc ...
区块链溯源系统架构---区块链工作笔记002
区块链溯源系统,实际上就是对区块链技术的一种实践我们可以把区块链当成一种存储系统.之前我们存储的时候都是把数据存储到存储系统中.但是之前存储到数据库系统中的数据属于中心化存储.这种存储方式很难保证数 ...
npm的安装和更新---npm工作笔记002
然后我们再去安装这个npm,安装npm非常简单,npm是nodejs自带的一个功能,所以我们直接去安装nodejs就可以了. 我们知道什么是nodejs? nodejs,其实就是强化了一下js,我们知 ...

VB.NET工作笔记002---asp调用vb6编写的activex dll

VB.NET工作笔记002---asp调用vb6编写的activex dll相关推荐

最新文章

热门文章