用VB 6封装ASP代码, 制作DLL组件

原创 2004年09月27日 10:22:00

这篇文章只是提供一个范例, 用户必须根据具体需求灵活运用.
推荐 CSDN龙卷风.Net 的Blog ASP组件的例子:
http://blog.csdn.net/online/category/9939.aspx

启动vb6.0,新建-->Active  dll工程。单击"工程"-->引用,选择"microsoft  active  server  pages 

object  library"
和"microsoft  activeX  data  objects  2.1  library"两项。将类模块的名称改为dcss.将工程的名称

改为yygwy.保存工程文件yygwy.vbp和类文件dcss.cls。
在dcss.cls中写入:
Private  myscriptingcontext  As  ScriptingContext
Private  myapplication  As  Application
Private  myrequest  As  Request
Private  myresponse  As  Response
Private  myserver  As  Server
Private  mysession  As  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

'以上语句是必须的。
'定义两个公有函数

Public    rsresult(strsql  As  String)  As  Recordset
Dim  mycnn  As  Connection
Dim  myset  As  Recordset
Dim  strconnstring  As  String
'strconnstring  =  "provider=sqloledb.1;
password=;"  &  "user  id=sa;"  &  "initial  catalog=vlog;"  &  "data  source=hpe60;
connect  timeout=15"
strconnstring  =  "driver={sql  server};server=yang;uid=sa;pwd=;  
database=dcss"
'mycnn.ConnectionString  =  strconnstring
mycnn.Open  strconnstring
myset.ActiveConnection  =  mycnn
myset.Open  strsql,  mycnn,  3,  adCmdText
Set  rsresult  =  myset
End 

Public    datasource()  As  Variant
datasource  =  "driver={sql  server};server=yang;uid=sa;pwd=;  database=dcss"
End 

编译生成dcss.dll文件。注册regsvr32  路径dcss.dll。
用visual  interdev打开global.asa文件.当然了,你也可以在其它文件中使用。
set    dcss=server.CreateObject("yygwy.dcss")  
oconn=dcss.datasource()          
application("strconn")=oconn  

在其它的页面中如下调用即可:
set  objConn  =  Server.CreateObject("ADODB.Connection")
objConn.Open  application("strconn")

使用VB将ASP代码封装到DLL文件完整实例

用VB封装ASP,建立SayHello测试程序1、打开VB6,新建ActiveX DLL ...
  • cncco
  • cncco
  • 2007年10月20日 21:38
  • 2321

用VB生成DLL封装ASP代码一个例子:连接access数据库等

用VB生成DLL封装ASP代码一个例子:连接access数据库等 封装为dll会带来很多的好处,主要包括只是产权的保护,以及效率和安全性能的提升。这个例子中被封装的dll文件可以隐藏access数据库...
  • shaily
  • shaily
  • 2007年12月04日 19:48
  • 1597

使用VB开发封装ASP的DLL例子

      封装为dll会带来很多的好处,主要包括只是产权的保护,以及效率和安全性能的提升。这个例子中被封装的dll文件可以隐藏access数据库的实际路径。VB生成的DLL封装ASP代码来连接数据库...
  • liaojiafan
  • liaojiafan
  • 2010年09月30日 11:10
  • 2097

用VB生成DLL封装ASP连接数据库代码

这篇文章以vb生成的dll封装asp代码来连接数据库(以access数据库为例)。 一般情况下我们在用asp连接access的数据库时通常都会进行如下的操作 //proconn.asp dim pro...
  • cncco
  • cncco
  • 2006年12月24日 22:22
  • 1901

dll封装后,ASP调用

Option ExplicitVB ActiveX DLL 类模块代码-----引用ASP中的一些设置------Private ScriptingContext As ASPTypeLibrary....
  • mymyal123
  • mymyal123
  • 2005年01月12日 15:25
  • 814

VB封装DLL实例(一)

正 文: 一、  DLL基本概念 (一)概念 DLL即动态链接库(Dynamic Link Library),是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分,而是运行...
  • miaoyangzhi
  • miaoyangzhi
  • 2017年02月11日 17:30
  • 539

如何将vbs脚本用VB封装为DLL,并在vbs脚本中调用

近来,做关于wincc的项目,用到将vbs脚本封装成DLL,并在vbs脚本里面调用,故而整理如下。 一、如何将vbs脚本封装DLL 1. 在VB6.0中新建ActiveX DLL工程。 2.命名...
  • sillyboy1104
  • sillyboy1104
  • 2015年03月24日 13:34
  • 2091

VB封装DLL实例(二)

正 文: 上文中我们已经就DLL的基本概念,以及如何将VBA代码封装为DLL,如何引用该生成的DLL动态链接库,进行了初步的讲解,我想大家对于VB封装DLL应该有了一个初步的了解。 下面主要就DL...
  • miaoyangzhi
  • miaoyangzhi
  • 2017年02月11日 17:37
  • 954

VB封装Excel_VBA代码为Dll

VB封装Excel_VBA代码为Dll VB封装Excel_VBA代码为Dll VB封装Excel_VBA成DLL技巧 使用VB6.0在WinXP_sp2、Excel 2000环境下制作、测试通...
  • sjpljr
  • sjpljr
  • 2017年03月16日 10:59
  • 1176

使用VB.net和VB编写DLL组件的方法

使用ESRI 的AO进行开发的时候,最常用的开发手段之一就是写DLL组件,使用VB或者VB.NET编写DLL组件的方法是不一样的。写DLL的时候,就是继承某个接口,而接口里面的方法和属性必须完全实现,...
  • yxtyxt3311
  • yxtyxt3311
  • 2005年05月26日 10:22
  • 6844
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB 6封装ASP代码, 制作DLL组件
举报原因:
原因补充:

(最多只允许输入30个字)