结束ADOVB.INC的办法

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

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

 1   
 2Dim objConn, strSQL   
 3Set objConn = Server.CreateObject("ADODB.Connection")   
 4objConn.Open "DSN=Blah"   
 5  
 6strSQL = "SELECT * FROM Table1"   
 7  
 8Dim objRS   
 9Set objRS = Server.CreateObject("ADODB.Recordset")   
10objRS.Open strSQL, objConn, adOpenKeyset   
11  
12'...   

现在让我们换个别的方法试试看
用METADATA标签

该标签的格式如下:

首先,你需要set TYPE="typelib",其中FILE和UUID两个只需要指定一个就可以了
您可以直接指定TLB或者DLL文件给FILE属性。
打个比方,在我的机器上,我是这样做的:

现在让我们看一下怎么替换ADOVBS.INC文件
在原来包含该文件的位置替换成如下代码:

 1   
 2Dim objConn, strSQL   
 3Set objConn = Server.CreateObject("ADODB.Connection")   
 4objConn.Open "DSN=Blah"   
 5  
 6strSQL = "SELECT * FROM Table1"   
 7  
 8Dim objRS   
 9Set objRS = Server.CreateObject("ADODB.Recordset")   
10objRS.Open strSQL, objConn, adOpenKeyset   
11  
12'...   

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

1<script></script>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus