使用ADO批量更新记录（源代码）

'**************************************

    ' Name: Batch Update using ADO

    ' Description:ADO has a great batch upda

    '     te feature that not many people take adv

    '     antage of. You can use it to update many

    '     records at once without making multiple

    '     round trips to the database. Here is how

    '     to use it.

    ' By: Found on the World Wide Web

    '

    '

    ' Inputs:None

    '

    ' Returns:None

    '

    'Assumes:None

    '

    'Side Effects:None

    '

    'Warranty:

    'code provided by Planet Source Code(tm)

    '     (http://www.Planet-Source-Code.com) 'as

    '     is', without warranties as to performanc

    '     e, fitness, merchantability,and any othe

    '     r warranty (whether expressed or implied

    '     ).

    '**************************************

    

    

    

    

    <%

    Set cn = Server.CreateObject("ADODB.Connection")

    Set rs = Server.CreateObject("ADODB.RecordSet")

    cn.Open Application("guestDSN")

    rs.ActiveConnection = cn

    rs.CursorType = adOpenStatic

    rs.LockType = adLockBatchOptimistic

    rs.Source = "SELECT * FROM authors"

    rs.Open

    If (rs("au_fname") = "Paul") or (rs("au_fname") = "Johnson") Then

    newval = "Melissa"

    Else

    newval = "Paul"

    End If

    If err <> 0 Then

    %>

    Error opening RecordSet

    <% Else %>

    Opened Successfully

    <% End If %>

    

Before Batch Update

    

    

    <% For i = 0 To rs.Fields.Count - 1 %>

    

    <% Next %>

    

    <% For j = 1 To 5 %>

    

    <% For i = 0 To rs.Fields.Count - 1 %>

    

    <% Next %>

    

    <%

    rs.MoveNext

    Next

    rs.MoveFirst

    %>

    

<%= rs(i).Name %>

<%= rs(i) %>

    Move randomly In the table and perform updates To table.


    <%

    Randomize

    r1 = Int(rnd*3) + 1 ' n Itterations

    r2 = Int(rnd*2) + 1 ' n places skipped between updates

    For i = 1 To r1

    response.write "Itteration: " & i & "
"

    rs("au_fname") = newval

    For j = 1 To r2

    rs.MoveNext

    response.write "Move Next
"

    Next

    Next

    rs.UpdateBatch adAffectAll

    rs.Requery

    rs.MoveFirst

    %>

    <% rs.MoveFirst %>

    

After Changes

    

    

    <% For i = 0 To rs.Fields.Count - 1 %>

    

    <% Next %>

    

    <% For j = 1 To 5 %>

    

    <% For i = 0 To rs.Fields.Count - 1 %>

    

    <% Next %>

    

    <%

    rs.MoveNext

    Next

    rs.Close

    Cn.Close

    %>

    

<%= rs(i).Name %>

<%= rs(i) %>