使用组件封装数据库操作(一) (转)

使用组件封装数据库操作(一) (转)[@more@]  其实，大家在书写 ASP 程序时，最担心的可能就是 数据库的连接信息，会被一些人看到，进行一些破坏。下面我们用 vb6.0来做一个动态链接库(.dll)来隐藏数据库的连接信息。
　　启动vb6.0，新建--&gtActive dll工程。单击"工程"--&gt引用,选择" 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 data source() 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("ADO db.Connection")
objConn.Open application("strconn")

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-956709/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-956709/