結束ADOVB.INC的辦法

2019-11-18 21:11:34

字體：大中小

來源：轉載

供稿：網友

我在國外看到一篇文章，現轉譯如下。。。的確很有幫助

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獲得一個全局變量。
注意要放在<SCRipT>塊里面

讓我們看看微軟怎么說的，我只找到了一篇文章，該文章可概括如下：

"Avoid using server-side #include directives to include large lists of constants. Use the new <METADATA> tag to import type-library constants into global.asa"

這個是原文
http://msdn.microsoft.com/library/PSDk/bdg/bdgapp03_3rhv.htm

兩點要注意的地方，當您在GLOBAL。ASA里使用METADATA的時候，而您同時又使用ADOVBD。INC，您會得到一個錯誤。
其次是該方法至少需要IIS4的支持

希望能對你有所幫助

上一篇：介紹一個制作下拉菜單完全不同的辦法

下一篇：二文件上傳,才30行代碼