明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

防范access數(shù)據(jù)庫被下載的代碼_ASP圖文說明教程

發(fā)表時(shí)間：2023-08-14 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]首先，如果只是直接將access數(shù)據(jù)庫的后綴名改為.asp是無法防止下載的，正確的做法是，建立一個(gè)表，為這個(gè)表中寫入二進(jìn)制文件，即OLE對象。具體代碼如下: <% Dim DB,RS,SQ...

首先，如果只是直接將access數(shù)據(jù)庫的后綴名改為.asp是無法防止下載的，正確的做法是，建立一個(gè)表，為這個(gè)表中寫入二進(jìn)制文件，即OLE對象。具體代碼如下:

 

<%  
Dim DB,RS,SQL  
DB = "DB.asp"  ’這里改成你的數(shù)據(jù)庫，后綴一定要是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 "數(shù)據(jù)庫防下載處理完成，請確認(rèn)您的Access數(shù)據(jù)庫已經(jīng)改為ASP后綴"  
%>

Microsoft Access在很多地方得到廣泛使用，例如小型企業(yè)，大公司的部門。