ASP database Anti-Download processing _ Application Skills

Copy Code code as follows:

<%
Db= "Market.asp" is changed to your database address
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
%>