<%
db="vote_data.mdb" '这里改成您数据库地址
 conn=server.createobject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
conn.open connstr
conn.execute("create table notdownload(notdown oleobject)")
 rs=server.createobject("adodb.record")
sql="select * from notdownload"
rs.open sql,conn,1,3
rs.add
rs("notdown").appendchunk(chrB(asc("<")) & chrB(asc("%")))
rs.update
rs.close
 rs=nothing
conn.close
 conn=nothing
%> 

保存为1.asp数据库地址改成你要进行防下载库...运行1.asp后会在原来数据库里加个notdownload表

上篇文章: 用ASP创建PDF文件

下篇文章: ASP中SQL语句