ACCESS数据库加密读取

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

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

%>

来顶一下

返回首页

发表评论

【查看全部条评论】

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

推荐资讯

找了个帝国CMS程序和	帝国CMS管理员登陆页
留言本从access数据	MacBookPro安装win1

相关文章

无相关信息

栏目更新

栏目热门