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("rs.update 
  
rs.close 
  
set rs=nothing 
  
conn.close 
  
set conn=nothing 
  
%>