将连接数据库的代码隐藏在DLL中
来源:互联网 发布:wifi窃听软件 编辑:程序博客网 时间:2024/05/18 02:22
启动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 Function 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 Function
Public Function datasource() As Variant
datasource = "driver={sql server};server=yang;uid=sa;pwd=; database=dcss"
End Function
编译生成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")
- [转帖]将连接数据库的代码隐藏在DLL中
- 将连接数据库的代码隐藏在DLL中
- 将连接数据库的代码隐藏在DLL中
- 在DLL中使用ADO连接数据库的问题
- 将dll作为资源隐藏在进程中
- 在web.config中 连接数据库的代码
- java连接Postger数据库,并通过Jsp将数据库中数据表的在网页中显示
- 在代码中隐藏标题栏
- java中常用的连接数据库代码
- 在Unity中利用Mono.Cecil将代码注入到Dll中
- java连接数据库代码sqlserver2008(在netbeans中)
- java 内部类来将线程 代码隐藏在类中
- 如何通过使用匿名内部类来将线程代码隐藏在类中
- 在asp中数据库的连接
- 在WEBPART中连接数据库的方法
- 将文件秘密隐藏在图片中
- 如何将文件隐藏在图片中
- 如何将文件隐藏在图片中
- ASP.NET程序中常用代码汇总(三)
- ASP.NET程序中常用代码汇总(四)
- 用Asp修改注册表
- ASP.NET程序中常用代码汇总(五)
- 生成像资源管理器一样的树形目录
- 将连接数据库的代码隐藏在DLL中
- ASP面向对象编程探讨及比较
- 海量数据库的查询优化及分页算法方案[转帖]
- 一个用ASP生成html的新方法
- 将指定的asp文件内容生成HTML文件
- ASP中无限分类的基于数组实现。
- ASP中CACHE技术的应用
- ASP调用WEBSERVICE文档
- 用Asp获取Dll加密新闻内容