印 像 新 闻 系 统
创建一个表名为：adleyliu 和字段名为：adleyliu 类型：二进制
创建一个数据库链接，执行下面程序即可！
<style>
body{
font-size:12px;
font-family:verdana;
}
</style>
<h3>数据库防下载脚本</h3><br/>
<b>开始执行升级 SQL 语句</b><br/>
<br/>
<br/>
<div style="border:1px solid #4b372e;background:#fefded;padding:6px;line-height:160%;">
<%
dim rs,TempS
TempS=chrB(asc("<"))&chrB(asc("%"))&chrB(asc("_"))&chrB(asc("n"))&chrB(asc("o"))&chrB(asc("%"))&chrB(asc(">"))&chrB(asc("<"))&chrB(asc("%"))
set rs=server.createobject("adodb.recordset")
rs.open "adleyliu",conn,1,3
rs.addnew
rs("adleyliu").appendchunk(TempS)
rs.update
response.BinaryWrite("adleyliu")
rs.close
set rs=nothing
response.write "<span style=""color:#004000""><b></b> 数据库防下载更新成功！ </span>"
%>
</div>
<%
Conn.Close
Set Conn=Nothing
%>
