<%
'access數據防止下載程序
db="date/user.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
%>