如何防止access數據庫被下載的代碼_ASP教程
教程Tag：暫無Tag,歡迎添加,賺取U幣!
推薦：淺析js返回字符串中某個字符的出現次數使用此函數能返回字符串中某個字符或字符串出現的次數其中mainStr為要查找的字符串,subStr為要檢查的字符串或字符 function countInstances(mainStr, subStr) { var count = 0; var offset = 0; do { offset = mainStr.indexOf(subStr, offset); if(offset !=
首先，如果只是直接將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后綴" %> |
分享：解析asp編程中function和sub的區別以function定義的函數或過程可以有返回值，以sub定義的函數或過程沒有返回值。 例如： functiontestvalue() testvalue=餓了就要吃飯，hoho’函數名為返回值 endfunction subtestsub() Response.Write(餓了就要吃飯，hoho) endsub 在程序中調用這兩個函數
相關ASP教程：
- 相關鏈接：
- 教程說明：
ASP教程-如何防止access數據庫被下載的代碼
。