access|程序|数据|数据库|下载<%
'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.您现在可以删除本程序了。
access数据库防止下载程序
80酷酷网 80kuku.com
