 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<HTML> <HEAD><TITLE>Place Document Title Here</TITLE></HEAD> <BODY BGColor=ffffff Text=000000> <% 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 %> <B>Error opening RecordSet</B> <% Else %> <B>Opened Successfully</B><P> <% End If %> <H2>Before Batch Update</H2> <TABLE BORDER=1> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><B><%= rs(i).Name %></B></TD> <% Next %> </TR> <% For j = 1 To 5 %> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><%= rs(i) %></TD> <% Next %> </TR> <% rs.MoveNext Next rs.MoveFirst %> </TABLE> Move randomly In the table and perform updates To table.<BR> <% 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 & "<BR>" rs("au_fname") = newval For j = 1 To r2 rs.MoveNext response.write "Move Next<BR>" Next Next rs.UpdateBatch adAffectAll rs.Requery rs.MoveFirst %> <% rs.MoveFirst %> <H2>After Changes</H2> <TABLE BORDER=1> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><B><%= rs(i).Name %></B></TD> <% Next %> </TR> <% For j = 1 To 5 %> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><%= rs(i) %></TD> <% Next %> </TR> <% rs.MoveNext Next rs.Close Cn.Close %> </TABLE> 返回类别: 教程 上一教程: ASP通用分页类 下一教程: ASP与数据库运用：密码验证 您可以阅读与"使用ADO批量更新记录(源代码)"相关的教程: · 使用ADO的批量更新方式UPDATEBATCH · 菜鸟学ADO实例教程之ADO 更新记录 · FILTER与UPDATEBATCH混合使用实现批量更新 · 菜鸟学ADO实例教程之ADO 添加新记录 · ASP程序中使用断开的数据记录集 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
