您的位置:首页网页设计ASP实例 → 防止access数据库被下载的代码

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

时间:2010/2/5 11:39:00来源:本站整理作者:我要评论(0)

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

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

相关阅读 Windows错误代码大全 Windows错误代码查询excel数字变成代码怎么办zepeto怎么看代码lol源代码乐芙兰怎么领取 lol源代码乐芙兰领取条件奇迹暖暖危险代码虚拟之镰怎么搭配 危险代码虚拟之镰高分搭配推荐myeclipse怎么显示代码行数 myeclipse显示代码行数设置方法噬血代码特典奖励及PS4各版本区别一览 噬血代码预购奖励是什么噬血代码多人模式介绍 噬血代码多人模式怎么玩

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码