繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP应用 >> 结束ADOVB.INC的办法

结束ADOVB.INC的办法

2004-10-01 08:26:10  作者:  来源:互联网  浏览次数:8  文字大小:【】【】【
简介:我在国外看到一篇文章,现转译如下。。。的确很有帮助 ASP的一个缺点是当我们在使用一个组件的时候,并不是拿来就可以用了 比如你要使用ADO的时候,你得先包含ADOVBS.INC文件 或者做类似的工作,看下面的代码:...
关键字:办法 ADOVB INC

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

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获得一个全局变量。

注意要放在

责任编辑:admin
相关文章