快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

结束ADOVB.INC的办法

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

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

<!--#include virtual="/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标签

该标签的格式如下:
<!--METADATA
TYPE="typelib"
FILE="FileName"
UUID="TyleLibraryUUID"
-->

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

<!-- METADATA
TYPE="typelib"
UUID="00000200-0000-0010-8000-00AA006D2EA4"
-->



<!-- METADATA
TYPE="typelib"
FILE="C:Program FilesCommon FilesSystemADOmsado20.tlb"
-->

现在让我们看一下怎么替换ADOVBS.INC文件
在原来包含该文件的位置替换成如下代码:
<!-- METADATA
TYPE="typelib"
FILE="C:Program FilesCommon FilesSystemADOmsado20.tlb"
-->

<%
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获得一个全局变量。注重要放在<SCRIPT>块里面
返回类别: 教程
上一教程: WEB环境下打印报表的CRYSTAL的解决方案
下一教程: 利用ASP+XML架设在线考试系统

您可以阅读与"结束ADOVB.INC的办法"相关的教程:
· 无组件图片与文本同步存入数据库的最简朴的办法
· 页面之间传递元素的办法
· 介绍一个制作下拉菜单完全不同的办法
· ASP动态INCLUDE文件
· ASP中处理#INCLUDE
    微笑服务 优质保证 索取样品