防范access數(shù)據(jù)庫(kù)被下載的代碼_ASP圖文說(shuō)明教程
發(fā)表時(shí)間:2023-08-14 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]首先,如果只是直接將access數(shù)據(jù)庫(kù)的后綴名改為.asp是無(wú)法防止下載的,正確的做法是,建立一個(gè)表,為這個(gè)表中寫(xiě)入二進(jìn)制文件,即OLE對(duì)象。具體代碼如下: <% Dim DB,RS,SQ...
首先,如果只是直接將access數(shù)據(jù)庫(kù)的后綴名改為.asp是無(wú)法防止下載的,正確的做法是,建立一個(gè)表,為這個(gè)表中寫(xiě)入二進(jìn)制文件,即OLE對(duì)象。具體代碼如下:
<%
Dim DB,RS,SQL
DB = "DB.asp" ’這里改成你的數(shù)據(jù)庫(kù),后綴一定要是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ù)庫(kù)防下載處理完成,請(qǐng)確認(rèn)您的Access數(shù)據(jù)庫(kù)已經(jīng)改為ASP后綴"
%> |
Microsoft Access在很多地方得到廣泛使用,例如小型企業(yè),大公司的部門(mén)。