Access数据库防止下载

<%

'access数据防止下载程序

db="access.mdb" '数据库地址

set conn=server.createobject("Adodb.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)

conn.open connstr

'添加notdownload表

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

%>

写入数据完成！

1.请不要反复运行本程序

2.您现在可以删除本程序了。