/*******部分代碼*******/
/*******idArr()和codeArr()為兩個(gè)數(shù)組，其中，idArr()為filter數(shù)據(jù)過濾條件，codeArr()作為更新數(shù)據(jù)**********/
.......

dim CRs,sql,FStr
sql=""

conn.begintrans
set CRs=server.CreateObject("adodb.recordset")
CRs.ActiveConnection=conn
CRs.CursorType=1
CRs.LockType=3
CRs.Source="select * from MB_DCManage"
CRs.Open

for i=0 to ubound(codeArr)-1
FStr="DCM_ID="&idArr(i) '定義數(shù)據(jù)過濾
CRs.Filter=FStr
CRs("DCM_Code")=codeArr(i)
next
CRs.UpdateBatch(3) '批量更新

........

/***********避免重復(fù)的進(jìn)行open操作，但是filter本身也有效率問題；應(yīng)該結(jié)合事務(wù)處理；filter可進(jìn)行多條件選擇；updateBatch各參數(shù)-----adAffectCurrent(1):當(dāng)前位置；
adAffectGroup(2) :符合filter的數(shù)據(jù)
adAffterAll(3) :當(dāng)前所有數(shù)據(jù)***************/