Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> 其他语言  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702627
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

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

作者:未详  摘自:未详  :cg1  更新日期:2003-2-26  浏览人次:

 

将连接数据库的代码隐藏在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") 

 

 
相关文章
     没有手动相关文章
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利