使用组件封装学习ASP技术的数据库操作

    同学们在书写学习ASP技术程序时，最担心的可能就是数据库的连接信息，会被一些人看到，进行一些破坏。下面同学们用VB6.0来做一个动态链接库(.dll)来隐藏数据库的连接信息。
  　　启动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 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")