防止Access数据库被解密工具

<% '数据库连接实例,如原ASP程序已做好,只需修改数据库链接即可,其它无需做任何修改 Dim conn, Dbencryptconn Set Dbencryptconn = server.CreateObject("Dbencrypt.Conn") Dbencryptconn.Datatype = 2 Dbencryptconn.AccessDataSource = "db1.dll" '此处为数据加密后上传到网站的路径 Dbencryptconn.AccessPwd = "440ac85892ca43" Set conn = Dbencryptconn.open '创建记录集,和不使用组件的方法是一样的 set rs=server.CreateObject("adodb.recordset") sql="select * from users" rs.open sql,conn,1,1 %> <% '输出字段内容 response.write rs("userid") %>