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

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

<%
DimDBRSSQL
DB="DBasp"’这里改成你的数据库后缀一定要是asp
SetConn=ServerCreateObject("AdodbConnection")
ConnOpen"Provider=MicrosoftJetOLEDB;DataSource="&ServerMapPath(db)
ConnExecute("CreateTableNotDownload(NotDownOLEObject)")
SetRS=ServerCreateObject("ADODBRecordSet")
SQL="Select*FROMNotDownload"
RSOpenSQLConn
RSAddnew
RS("NotDown")appendchunk(chrB(Asc("<"))&chrB(Asc("%")))
RSUpdate
RSClose
SetRS=Nothing
ConnClose
SetConn=Nothing
ResponseWrite"数据库防下载处理完成请确认您的Access数据库已经改为ASP后缀"
%>