說說對(duì)象的復(fù)制_ASP教程

2024-07-21 02:04:49

字體：大中小

供稿：網(wǎng)友

推薦：ASP實(shí)例：利用緩存提高數(shù)據(jù)顯示效率
實(shí)例演示：先建立一個(gè)簡單的數(shù)據(jù)庫，寫個(gè)function讀取一下，寫入一個(gè)dim變量temp中：ASP代碼以下為引用的內(nèi)容：<% Function DisplayRec

以下為引用的內(nèi)容：
<%
Dim oConn,oRs
Set oConn = Server.CreateObject("ADODB.Connection")
Set ors = Server.CreateObject("ADODB.RecordSet")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("db1.mdb")
Session("conn") = oConn
ors.open "select * from t1",Session("conn"),1,1
Response.write(oRs(0))
ors.close
Set ors = Nothing
oConn.close
Set oConn = Nothing
%>

這是網(wǎng)上流傳的把Connection對(duì)象保存在Seesion對(duì)象中的代碼，注意其中的：Session("conn") = oConn，對(duì)象的復(fù)制就是這樣子的嗎？下邊我們來驗(yàn)證一下：

以下為引用的內(nèi)容：

<%
Dim oConn,oRs
Set oConn = Server.CreateObject("ADODB.Connection")
Set ors = Server.CreateObject("ADODB.RecordSet")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("db1.mdb")
Session("conn") = oConn
ors.open "select * from t1",Session("conn"),1,1
Response.write(Session("conn").ConnectionString)
ors.close
Set ors = Nothing
oConn.close
Set oConn = Nothing
%>

結(jié)果出錯(cuò)，提示"缺少對(duì)象: 'Session(...)'"！這說明對(duì)象并沒有復(fù)制成功，那Session("conn")是什么類型的呢？我們用TypeName(Session("conn"))來測試下，結(jié)果為"String"！出于好奇，我們直接輸出Session("conn")看看：

以下為引用的內(nèi)容：
<%
Dim oConn,oRs
Set oConn = Server.CreateObject("ADODB.Connection")
Set ors = Server.CreateObject("ADODB.RecordSet")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("db1.mdb")
Session("conn") = oConn
ors.open "select * from t1",Session("conn"),1,1
Response.write(Session("conn"))
ors.close
Set ors = Nothing
oConn.close
Set oConn = Nothing
%>

結(jié)果為：

以下為引用的內(nèi)容：

Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=E:/www/db1.mdb;Mode=Share Deny None;

Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";

Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global

Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;

Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;

Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

這不是Connection對(duì)象的ConnectionString屬性值嗎？Connection對(duì)象默認(rèn)的屬性為ConnectionString，執(zhí)行Session("conn") = oConn時(shí)只是將Connection對(duì)象默認(rèn)屬性的值賦給Session("conn")。那為什么用在oRs.open "select * from t1",Session("conn"),1,1也能成功呢？查找資料得出RecordSet對(duì)象open方法的第二個(gè)參數(shù)可以為Connection對(duì)象，也可以是數(shù)據(jù)庫連接信息的字符串！Ok了，那在上邊例子中的oConn對(duì)象完全是多余的，直接用下邊代碼即可：

以下為引用的內(nèi)容：

<%
Dim ors
Set ors = Server.CreateObject("ADODB.RecordSet")
Session("conn") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("db1.mdb")
ors.open "select * from t1",Session("conn"),1,1
Response.write(oRs(0))
ors.close
Set ors = Nothing
%>

結(jié)果無錯(cuò)。好了，到現(xiàn)在為止還剩下一個(gè)問題沒有解決：怎么才是正確的對(duì)象復(fù)制方法？還是用Set語句：

以下為引用的內(nèi)容：
<%
Dim oConn,oRs
Set oConn = Server.CreateObject("ADODB.Connection")
Set ors = Server.CreateObject("ADODB.RecordSet")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("db1.mdb")
Set Session("conn") = oConn
ors.open "select * from t1",Session("conn"),1,1
Response.write(Session("conn").ConnectionString)
Response.write("<br/>")
Response.write(TypeName(Session("conn")))
ors.close
Set ors = Nothing
oConn.close
Set oConn = Nothing
%>

這次能顯示出ConnectionString屬性的信息了，結(jié)果也顯示Session("conn")為Connection對(duì)象！

原文：http://www.mzwu.com/article.asp?id=1105

分享：Windows 2003 安裝設(shè)置iis
安裝篇2003默認(rèn)安裝不帶IIS的，要安裝，請(qǐng)點(diǎn)擊開始->管理工具->配置您的服務(wù)器向?qū)缓笠徊讲降南乱徊?。到了列表選擇項(xiàng)目的時(shí)候。從列表中選擇應(yīng)用服務(wù)器（IIS,ASP.NET）

上一篇：有用的無聲遞交表單的客戶端函數(shù)_ASP教程

下一篇：多個(gè)函數(shù)驗(yàn)證同一表單_ASP教程