您的位置：首页 → 技术开发 → ASP技巧 → 结束ADOVB.INC的办法

结束ADOVB.INC的办法

时间：2004/11/7 4:10:00来源：本站整理作者：蓝点我要评论(0)

我在国外看到一篇文章，现转译如下。。。的确很有帮助



ASP的一个缺点是当我们在使用一个组件的时候，并不是拿来就可以用了比如你要使用ADO的时候，你得先包含ADOVBS.INC文件或者做类似的工作，看下面的代码：





<%

   Dim objConn, strSQL

   Set objConn = Server.CreateObject("ADODB.Connection")

   objConn.Open "DSN=Blah"



   strSQL = "SELECT * FROM Table1"



   Dim objRS

   Set objRS = Server.CreateObject("ADODB.Recordset")

   objRS.Open strSQL, objConn, adOpenKeyset



   '...

%>



现在让我们换个别的方法试试看

用METADATA标签



该标签的格式如下：





首先，你需要set TYPE="typelib",其中FILE和UUID两个只需要指定一个就可以了

您可以直接指定TLB或者DLL文件给FILE属性。

打个比方，在我的机器上，我是这样做的：







和







现在让我们看一下怎么替换ADOVBS.INC文件

在原来包含该文件的位置替换成如下代码：





<%

   Dim objConn, strSQL

   Set objConn = Server.CreateObject("ADODB.Connection")

   objConn.Open "DSN=Blah"



   strSQL = "SELECT * FROM Table1"



   Dim objRS

   Set objRS = Server.CreateObject("ADODB.Recordset")

   objRS.Open strSQL, objConn, adOpenKeyset



   '...

%>





但是，我原来在原来的页面使用ADOVBS。INC好好的，为什么要使用这么长的一窜代码呢，太麻烦了，是的，是有点麻烦，但是您可以把这段代码放在GLOBAL，ASA里，那样你可以用APPLICATION获得一个全局变量。

注意要放在