ACCESS数据库加密读取

时间：2005-09-03 00:00:00 来源：TIANZI.ORG 作者：天子阅读：2595次

ACCESS数据库加密读取

<%

db="db.mdb"
pass_word="这里是密码"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="&pass_word&";Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

' Call DBConnEnd()
Sub DBConnEnd()
On Error Resume Next
If IsObject(objCmd) Then
objCmd.Close
Set objCmd = Nothing
End if
If IsObject(objConn) Then
objConn.Close
Set objConn = Nothing
End if
End Sub

%>

我顶

首页

发表评论

【查看全部条评论】

用户名:	密码:
验证码:	匿名: