| <% '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.您现在可以删除本程序了。