2007/02/17 13:23 ..by
ASP是一种简单易用的服务器端活动页面，使用ASP来建设动态网站的人也比较多。但ASP本身有一个特点，就是代码的公开性。基本上运行着你的ASP程序的服务器都能完全看到你的页面代码。有的时候，你的ASP程序不得不要放在别人的服务器上运行（例如虚拟主机），但你又不想别人看到你的一些保密性比较强的信息（如你的数据库连接字符串）。又或者你的朋友想要你的VB程序代码学习学习，但你又不想让他知道这些信息。苦恼的你是否还在为这件事而烦恼呢？不妨试试这个数据库连接插件。
此插件为VB6编写，采用了独有的加密算法，让你的连接字符串更加安全、保密。此插件适合ASP/VB程序使用。
下载后，转到插件所在目录，运行Regsvr32 FXDBControl.dll即可使用。配合附带的加密程序，即可将你的连接字符串加密码。
以下为VB中的示范例子：
以下为ASP中的示范例子：
。NET中的使用跟VB的使用方法差不多。目前在。NET中用ADO测试通过，ADO。NET尚未测试，有兴趣的朋友可以自行测试！
由于自己机器的问题，插件在ASP中使用不了。在此感谢好友黑心狼的帮助，使得插件在ASP中也测试通过！
字符串加密程序，只能加密由数字、大小写字母、西文标点等组成的字符串，不支持中文，欲加密字符串最小长度为20。有些人习惯直接把加密后的密文复制到程序中使用而导致程序出错，加密时把修正选项选上即可。
数据库连接插件：
下载文件
字符串加密程序：
下载文件
此插件为VB6编写，采用了独有的加密算法，让你的连接字符串更加安全、保密。此插件适合ASP/VB程序使用。
下载后，转到插件所在目录，运行Regsvr32 FXDBControl.dll即可使用。配合附带的加密程序，即可将你的连接字符串加密码。
以下为VB中的示范例子：
Dim FXDBCtl As FXDBControl.DBControl '//声明变量
Dim IsConn As Boolean
Set FXDBCtl = New FXDBControl.DBControl '//创建插件对象
FXDBCtl.IsEncode = 0 '//设置加密级别：0不加密，1ConnectString加密，2ConnectionString与DatabaseFile均加密
FXDBCtl.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" '//连接字符串。当DatabaseFile为空时必须加上Data Source=C:\Windows\Temp\TestBase.mdb。当IsEncode<>0时，该处必须为密文。
FXDBCtl.DatabaseFile = "C:\Windows\Temp\TestBase.mdb" '//数据库所在位置。当ConnectionString中设置了数据库的位置，此处请留空。当IsEncode=2时，该处必须为密文
'//ConnectionString与DatabaseFile不能同时指定数据库所在位置。
IsConn = FXDBCtl.Connect '//连接数据库，连接成功时返回True，否则返回False
If IsConn Then MsgBox "数据库连接成功！" '//成功连接弹出成功对话框。IsConn表示是否连接成功。
'//之后就可以使用此对象操作数据库了。如：
'//FXDBCtl.RsOpen "Select * from TestTable", Conn, 1, 3
'//FXDBCtl.RsFields("TestCol")="Test Data"
'//FXDBCtl.RsUpdate
'//FXDBCtl.RsClose
FXDBCtl.UnConnect '//关闭数据库连接
Set FXDBCtl = Nothing '//注销数据库连接插件
Dim IsConn As Boolean
Set FXDBCtl = New FXDBControl.DBControl '//创建插件对象
FXDBCtl.IsEncode = 0 '//设置加密级别：0不加密，1ConnectString加密，2ConnectionString与DatabaseFile均加密
FXDBCtl.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" '//连接字符串。当DatabaseFile为空时必须加上Data Source=C:\Windows\Temp\TestBase.mdb。当IsEncode<>0时，该处必须为密文。
FXDBCtl.DatabaseFile = "C:\Windows\Temp\TestBase.mdb" '//数据库所在位置。当ConnectionString中设置了数据库的位置，此处请留空。当IsEncode=2时，该处必须为密文
'//ConnectionString与DatabaseFile不能同时指定数据库所在位置。
IsConn = FXDBCtl.Connect '//连接数据库，连接成功时返回True，否则返回False
If IsConn Then MsgBox "数据库连接成功！" '//成功连接弹出成功对话框。IsConn表示是否连接成功。
'//之后就可以使用此对象操作数据库了。如：
'//FXDBCtl.RsOpen "Select * from TestTable", Conn, 1, 3
'//FXDBCtl.RsFields("TestCol")="Test Data"
'//FXDBCtl.RsUpdate
'//FXDBCtl.RsClose
FXDBCtl.UnConnect '//关闭数据库连接
Set FXDBCtl = Nothing '//注销数据库连接插件
以下为ASP中的示范例子：
Dim FXDBCtl
Dim IsConn
Set FXDBCtl = Server.CreateObject("FXDBControl.DBControl")
FXDBCtl.IsEncode = 1
FXDBCtl.ConnectionString = "0C4DEIz{dj69CC)'dsTU!""euOQa$!(zu:8jwBRnhJKLIMI@Ng{edfgdf%=Xgx|OTLmjcbl|w|*u{uwDGL4E"
FXDBCtl.DatabaseFile = "C:\Windows\Temp\TestBase.mdb"
IsConn = FXDBCtl.Connect
If IsConn Then MsgBox "数据库连接成功！"
FXDBCtl.UnConnect
Set FXDBCtl = Nothing
'//在此不作注释了，请参考VB的例子！
Dim IsConn
Set FXDBCtl = Server.CreateObject("FXDBControl.DBControl")
FXDBCtl.IsEncode = 1
FXDBCtl.ConnectionString = "0C4DEIz{dj69CC)'dsTU!""euOQa$!(zu:8jwBRnhJKLIMI@Ng{edfgdf%=Xgx|OTLmjcbl|w|*u{uwDGL4E"
FXDBCtl.DatabaseFile = "C:\Windows\Temp\TestBase.mdb"
IsConn = FXDBCtl.Connect
If IsConn Then MsgBox "数据库连接成功！"
FXDBCtl.UnConnect
Set FXDBCtl = Nothing
'//在此不作注释了，请参考VB的例子！
。NET中的使用跟VB的使用方法差不多。目前在。NET中用ADO测试通过，ADO。NET尚未测试，有兴趣的朋友可以自行测试！
由于自己机器的问题，插件在ASP中使用不了。在此感谢好友黑心狼的帮助，使得插件在ASP中也测试通过！
字符串加密程序，只能加密由数字、大小写字母、西文标点等组成的字符串，不支持中文，欲加密字符串最小长度为20。有些人习惯直接把加密后的密文复制到程序中使用而导致程序出错，加密时把修正选项选上即可。
引用
V1.0 2007/2/17
*插件面世
V1.1 2007/2/19
*修改可能泄露加密连接字符串的BUG
*支持Recordset对象的大部分操作
*插件面世
V1.1 2007/2/19
*修改可能泄露加密连接字符串的BUG
*支持Recordset对象的大部分操作
数据库连接插件：
下载文件 字符串加密程序：
下载文件 
5 comment(s)
152
[2007/03/07 19:13]
mima
鱼
[2007/02/18 18:53]
PFPF
分页： 1/1 
1 
1
