| <% db="vote_data.mdb" ’这里改成您的数据库地址 set 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)") 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.asp数据库地址改成你要进行防下载的库...运行1.asp后会在原来的数据库里加一个notdownload表
http://www.hack58.net/Article/60/61/2006/12072.htm
