asp批量修改数据库

<%
Dim conn, sql, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_db;User ID=your_user;Password=your_password"

sql = "UPDATE your_table SET column1 = 'new_value' WHERE condition = 'some_value'"
Set rs = conn.Execute(sql)

If Not rs.EOF Then
    Response.Write "修改成功"
Else
    Response.Write "修改失败"
End If

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

<%
Dim conn, sql, rs, i, batchSize
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_db;User ID=your_user;Password=your_password"

batchSize = 1000
i = 0

sql = "SELECT * FROM your_table WHERE condition = 'some_value'"
Set rs = conn.Execute(sql)

Do While Not rs.EOF
    If i Mod batchSize = 0 Then
        conn.BeginTrans
    End If

    sql = "UPDATE your_table SET column1 = 'new_value' WHERE id = " & rs("id")
    conn.Execute(sql)

    i = i + 1

    If i Mod batchSize = 0 Then
        conn.CommitTrans
    End If

    rs.MoveNext
Loop

If i Mod batchSize <> 0 Then
    conn.CommitTrans
End If

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>