asp数据库防下载处理

　　<%

　　db="market.asp" '这里改成您的数据库地址

　　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

　　%>