防范access数据库被下载的代码

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

首先，如果只是直接将access数据库的后缀名改为.asp是无法防止下载的，正确的做法是，建立一个表，为这个表中写入二进制文件，即OLE对象。具体代码如下:

<%
Dim DB,RS,SQL
DB = "DB.asp"  ’这里改成你的数据库，后缀一定要是asp
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
Conn.Execute("Create Table NotDownload(NotDown OLEObject)")
Set RS = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * FROM NotDownload"
RS.Open SQL,Conn,1,3
RS.Addnew
RS("NotDown").appendchunk(chrB(Asc("<")) & chrB(Asc("%")))
RS.Update
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Response.Write "数据库防下载处理完成，请确认您的Access数据库已经改为ASP后缀"
%>

Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。

……

标签:防范access数据库被下载的代码_ASP图文详细教程

防范access数据库被下载的代码_ASP图文教程