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

首先，如果只是直接將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後綴"  
%>