<%
'access数据防止下载程序
db="access.mdb"'数据库地址
setconn=server.createobject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)
conn.openconnstr
'添加notdownload表
conn.execute("createtablenotdownload(notdownoleobject)")
'写入<%数据
setrs=server.createobject("adodb.recordset")
  sql="select*fromnotdownload"
rs.opensql,conn,1,3
rs.addnew
  rs("notdown").appendchunk(chrB(asc("<"))&chrB(asc("%")))
  rs.update
  rs.close
setrs=nothing
'关闭连接
conn.close
setconn=nothing
%>
写入数据完成！
1.请不要反复运行本程序
2.您现在可以删除本程序了。