将连接数据库的代码隐藏在DLL中


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

本文作者:



相关阅读:
PHP教程:strtotime函数用法
javascript table排序 这个更简单了,不用改变现在的表格结构
HCM获全球权威分析机构最高评级
javascript dom操作之cloneNode文本节点克隆使用技巧
详细解析ASP.NET的SEO:实现内容重定向
网页中图片的随机显示
CSS教程:关于网页中的透明元素
MySQL 随机查询数据与随机更新数据实现代码
验证IP属于国内还是国外的PHP类
javascript混合的构造函数/原型方式
WIN2003服务器安全配置终极技巧图(中)
纯jsp打造无限层次的树代码
信息发布中的判断过期和有效期的东西
影响MySQL中mysqld安全的四个选项
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4