ITPub博客

首页 > 数据库 > 数据库开发技术 > 将连接数据库的代码隐藏在DLL中(转)

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

原创 数据库开发技术 作者:RegisterForBlog 时间:2007-09-19 19:32:51 0 删除 编辑
将连接数据库的代码隐藏在DLL中(转)[@more@]

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

  

本文来自:http://www.linuxpk.com/30646.html

-->linux电子图书免费下载和技术讨论基地

·上一篇:解析Java语言的接口与类型安全

·下一篇:黑客攻击技术之高级SQL注入技术
 
     最新更新
·注册表备份和恢复

·低级格式化的主要作用

·如何防范恶意网站

·常见文件扩展名和它们的说明

·专家:警惕骇客骗局,严守企业信息

·PGPforWindows介紹基本设定(2)

·解剖安全帐号管理器(SAM)结构

·“恶作剧之王”揭秘

·绿色警戒

·黑客反击战

·网络四大攻击方法及安全现状描述

·可攻击3种浏览器代码流于互联网

·黑客最新的兴趣点,下个目标会是谁?

·“僵尸”——垃圾邮件的主要传播源

·Lebreat蠕虫惊现3变种

·POSTFIX反病毒反垃圾Ų…

·在FreeBSD上用PHP实现在线添加FTP用户

·简单让你在FreeBSDADSL上…

·安全版本:OpenBSD入门技巧解析

·Internet连接共享上网完全攻略

·关于ADSL上网网速常识

·静态缓存和动态缓存的比较

·最友好的SQL注入防御方法

·令网站提速的7大秘方

·网络基础知识大全

·路由基本知识

·端口映射的几种实现方法

·VLAN经典诠释

·问题分析与解决——ADSL错误代码

·问题分析——关于2条E1的线路绑定


关于我们 | 联系方式 | 广告合作 | 诚聘英才 | 网站地图 | 网址大全 | 友情链接 | 免费注册

Copyright © 2004 - 2007 All Rights Reserved

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

请登录后发表评论 登录
全部评论