熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 10:43:02  來源: .NET編程 

  首先如果只是直接將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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.