|
|
| access数据库防止下载程序 |
| 作者：佚名 来源：不详 发布时间：2006-5-9 16:07:10 发布人：chinazhan |
 减小字体
 增大字体
<%
'access数据防止下载程序
db="access.mdb" '地址
set conn=server.createobject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
conn.open connstr
'添加notdownload表
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
%>
写入数据完成！
1.请不要反复运行本程序
2.您现在可以删除本程序了。
|
| |
|
[]
[返回上一页]
[打 印]
[收 藏] |
|
| ∷相关文章评论∷ （评论内容只代表网友观点，与本站立场无关！） [更多评论...] |
|
|
设为首页
加入收藏
联系我们
