防止access數據庫被下載的代碼

　　首先如果只是直接將access數據庫的後綴名改為asp是無法防止下載的正確的做法是建立一個表為這個表中寫入二進制文件即OLE對象具體代碼如下:

 

<%  
Dim DBRSSQL  
DB = "DBasp"  ’這裡改成你的數據庫後綴一定要是asp  
Set Conn = ServerCreateObject("AdodbConnection")  
ConnOpen "Provider=MicrosoftJetOLEDB;Data Source="&ServerMapPath(db)  
ConnExecute("Create Table NotDownload(NotDown OLEObject)")  
Set RS = ServerCreateObject("ADODBRecordSet")  
SQL = "Select * FROM NotDownload"  
RSOpen SQLConn  
RSAddnew  
RS("NotDown")appendchunk(chrB(Asc("<")) & chrB(Asc("%")))  
RSUpdate  
RSClose  
Set RS = Nothing  
ConnClose  
Set Conn = Nothing  
ResponseWrite "數據庫防下載處理完成請確認您的Access數據庫已經改為ASP後綴"  
%>
From:http://tw.wingwit.com/Article/program/net/201311/14363.html