如何防止access数据库被下载的代码_ASP教程

教程Tag：暂无Tag,欢迎添加,赚取U币!

缂備礁娲﹂埅绀慹deCMS閻熸瑥妫濋。鍫曞极濞嗘垟鏌�濞戞梹澹嗛埞鏍⒒閿燂拷缂佸鍠愬﹢鍥礉閳ヨ櫕鐝� 闂侇偄顦辩紞澶屾兜閺囨氨闉嶉柤杈ㄦ缁憋拷 闁哄啰濮撮崪鏍博濞嗘挻姣愮€规悶鍎遍崣锟�,闁谎勫劤鐎规娊寮堕崘顔兼濞戞挴鍋撻梺娆惧枛閸欏繘寮婚敓锟�!

推荐：浅析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 在程序中调用这两个函数