zoukankan      html  css  js  c++  java
  • 用組件封裝數據庫操作(一)

    其实,大家在书写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")

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    自动布局
    初探 iOS8 中的 Size Class
    iOS数据安全性问题
    iOS应用程序之间的跳转
    iOS 关于xml解析的问题
    iOS中的一些基础知识点
    关于iOS项目中使用ZBarSDK
    iOS中关于google地图的用法
    基于4.5Framework web程序、SQLSERVER数据库打包
    docker私有仓库搭建
  • 原文地址:https://www.cnblogs.com/Athrun/p/1127418.html
Copyright © 2011-2022 走看看