现在只是把他写成asp代码了，方便使用。

因为这样话可以直接执行就ok了，也不用下载数据库然后建表等。。。。然后再上传覆盖了。。。

偶的代码只是为了实现这个功能：讲究实用。请各位多多指点。。。。

顺便补充一下这代码产生的背景：我也是提议mdb映射的比较好，也作了录象了，后来他硬要问：在没有做隐射的虚拟主机上怎么办，所以就匆忙写了这么段代码免去他下载然后手工插入<%然后上传的麻烦。

1.加了详细的错误描述了。

2.我用随机表应该可以解决这个问题的吧。

3.我加入多个<%也基本可以避免%>的问题的吧。在简单的其他地方不涉及两进制数据的时候，我认为这个方法还是不错。

同时谢谢zhouzhen的批评。欢迎再次提出批评。。谢谢

<%OPTION EXPLICIT%>
<%
Dim str_form,str_version,i
dim mdbfile,conn,rec,str_notdown,tabale_notdown
str_version="code by 喜欢忧伤QQ:122545971<br>"
str_version=str_version&"本页代码作用：防止Access数据库被下载<br>"&"特点是:使用方便，直接上传到空间执行完毕就可以了。<br>"
str_version=str_version& "powers联盟大家庭<A href='http://www.powers.com.cn'>_blank>http://www.powers.com.cn</A><br>"

mdbfile=request("mdbfile")

if mdbfile="" then
str_form="<form action='' method='post'>数据库文件名[包含相对路径]:<input type=text name=mdbfile></input><input type='submit' name='submit' value='防止下载'>"
call out_YS(str_form)
response.end
end if

mdbfile=server.mappath(mdbfile)
set conn=server.createobject("adodb.connection")
On error resume next
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq="&mdbfile
If Err Then
err.Clear
Set Conn = Nothing
call out_YS("数据库连接出错，请检查数据库名字和相对路径是否正确<A href='javascript:history.back()'>返回</A>")
Response.End
End If

On error resume next
'取随机表名
RANDOMIZE()
tabale_notdown="notdown"&int(9999*rnd()+1)
tabale_notdown="notdown678"
conn.execute("create table "&tabale_notdown&"(notdown image)")
if err then
call out_YS("出错：<b>"&err.Description &"</b>,<br><br>请根据提示解决这个问题")
else
str_notdown=chrB(60)&chrB(37)
for i=1 to 13
str_notdown=str_notdown&chrB(60)&chrB(37)
next
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM notdown",conn,1,3
rec.addnew
rec("notdown").appendchunk str_notdown
rec.update
rec.close
set rec=nothing
call out_YS("防止下载完成，同时提醒一下，如果不是asp扩展名的请修改为asp")
end if
conn.close
set conn=nothing
sub out_YS(str_out)
response.write "<div align=left>"&str_version& "</div><center>"&"<br><br><br ><br>"&str_out&"<br>"&"<br> "&"<br>"&"<br>"&"<br>"&"&l t;br></center>"
end sub
%>