防止access数据库被下载的代码

2015-08-12 16:04:40来源:作者:人点击

首先,如果只是直接将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后缀"  
%>

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台