asp数据库防下载处理

jasonking 2006-08-24

代码如下:

<% 
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 
%> 

相关推荐