用vb生成dll封装asp代码一个例子-连接access数据库等

《用vb生成dll封装asp代码一个例子-连接access数据库等》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、用VB生成DLL封装ASP代码一个例子:连接access数据库等>>教育资源库封装为dll会带来很多的好处，主要包括只是产权的保护，以及效率和安全性能的提升。这个例子中被封装的dll文件可以隐藏access数据库的实际路径。VB生成的DLL封装ASP代码来连接数据库（Access）。本文用一个最简单的连接access数据库的例子来说明如何将asp代码封装为dll文件。我们用vb，最常见的方式来封装asp代码。我们需要封装的对象如下:'Proconn.aspdimProConnsetProConn=Server.CreateObject("ADODB.CONNECTION")Pro

2、Conn.Open"driver={MicrosoftAccessDriver(*.mdb)};uid=;pp;Server.MapPath("DB.asp")我们将下面的部分封装"driver={MicrosoftAccessDriver(*.mdb)};uid=;pp;Server.MapPath("DB.asp")分析一下这段要封装的内容，它的前半部分就是一个字符串："driver={MicrosoftAccessDriver(*.mdb)};uid=;pp;连接上后半部分的另一个字符串。后半部分的另一个字符串是Server.MapPath对象函数的返回值。下面开始这个封装

3、的操作过程。首先新建一个VB下的ActiveXDLL工程，工程的名称Project1更改成ConDBDLL方法class1的名称更改成cs工程名和方法名会在调用这个DLL的时候使用到，大家可以按照自己命名规则定义，但请注意好好使用。这个DLL的代码部分书写如下：DimrpAsResponseDimrqAsRequestDimapAsApplicationDimsrAsServerDimsnAsSessionPublicSubOnStartPage(MyScriptingContextAsScriptingContext)Setrp=MyScriptingContext.Respo

4、nseSetrq=MyScriptingContext.RequestSetsr=MyScriptingContext.ServerSetap=MyScriptingContext.ApplicationSetsn=MyScriptingContext.SessionEndSubPublicSubOnEndPage()Setrp=NothingSetrq=NothingSetsr=NothingSetap=NothingSetsn=NothingEndSub'以上语句是必须的，将原本的对象作了简化处理，并在两个基本函数中作了处理PublicFunctionConnectDB()A

5、sVariantConnectDB="driver={MicrosoftAccessDriver(*.mdb)};uid=;picrosoftactiveXdataobjects2.6library"进行完以上操作，我们就可以编译生成DLL了，（别忘了前面的改工程名和方法名）准备好数据库文件DB.asp(由DB.mdb更改后缀而成，密码123)下面就是调用封装的连接数据库的asp文件代码：由于是自己创建的DLL，把它拷贝到相应的目录后，必须注册才能使用。注册的方法，在“运行”中执行：Regsvr32.exedllname.dll取消这个DLL的注册的方法是：Regsvr32.ex

6、e/udllname.dll注册完毕，我们的工作基本上就做完了，现在我们可以使用这样的封装方法连接具有针对性的数据库了。不过有一点需要特别注意的是：由于DimConDBsetConDB=Server.CreateObject("ConDBDLL.Conn")'ConDB就是创建的DLL对象这是在ASP中创建的对象，包括ProConn，那么我们在任何使用到（引用）ProConn.asp的其他ASP文件中记得释放这两个对象！ProConn.closesetProConn=nothingsetConDB=Nothing否则系统会由于对象没有释放，而变得越来越不堪重负。关于这个封装ASP

7、代码连接Access数据库的方法，我想完全适用其他数据库的连接方法。再例如，下面的封装的例子：12下一页>>>>这篇文章来自..，。首先要申明变量：PrivateWenScriptingContextAsScriptingContextPrivateWenApplicationAsApplicationPrivateWenRequestAsRequestPrivateWenResponseAsResponsePrivateWenServerAsServerPrivateWenSe