asp数据库防下载处理
2018-09-06 12:02
阅读：337
复制代码 代码如下:
<%
db=market.asp这里改成您的数据库地址
connstr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(db)
conn.openconnstr
conn.execute(createtablenotdownload(notdownoleobject))
setrs=server.createobject(adodb.recordset)
sql=select*fromnotdownload
rs.opensql,conn,1,3
rs.addnew
rs(notdown).appendchunk(chrB(asc(<))&chrB(asc(%)))
rs.update
rs.close
setrs=nothing
conn.close
setconn=nothing
%>
评论
亲，登录后才可以留言！