asp程序运行速度测试（4）

新加一万条记录谁快？第一种方法用31秒，后者直到超时仍未完成。不得已，少掉一个0，1000条是，后者慢一半。

<!--#include file="filetou.asp"-->
<％
   sql ="SELECT 名称  from user where id=0"
   Set rs=Server.CreateObject("ADODB.RecordSet")                        
   rs.Open sql,conn,1,3
dim tttt1,ttt2 
ttt1=now()
  for i=1 to  10000
   rs.addnew
   rs("名称")="阿余A"
   rs.update
next
ttt2=now()
tou=ttt2-ttt1
Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
ttt1=now()
  for i=1 to  10000
     sql=" INSERT INTO  user (名称) VALUES('阿余B')"
     conn.execute sql,0,-1
next
ttt2=now()
tou=ttt2-ttt1
Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
％>

下面的程序结果说明RS新增记录较快，而删除较慢，用CONN新增慢，但删除很快。
运行的结果为：
、3.00000007264316:
、7.99999998416752:
、1.99999983888119:
、0:
后来用RS新增记录5000条，并用CONN删除这5000条， 结果为：
、17.000000202097:
、1.00000023376197:
程序为：

<!--#include file="filetou.asp"-->
<％
dim tttt1,ttt2 
ttt1=now()
sql ="SELECT 名称  from user where id=0"
   Set rs=Server.CreateObject("ADODB.RecordSet")                        
   rs.Open sql,conn,1,3
  for i=1 to  1000
   rs.addnew
   rs("名称")="阿余A"
   rs.update
next
ttt2=now()
tou=ttt2-ttt1
Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
ttt1=now()
  for i=1 to  1000
     sql=" INSERT INTO  user (名称) VALUES('阿余B')"
     conn.execute sql,0,-1
next
ttt2=now()
tou=ttt2-ttt1
Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
ttt1=now()
   sql ="SELECT  名称 from user where 名称='阿余A'"
   Set rs=Server.CreateObject("ADODB.RecordSet")                        
   rs.Open sql,conn,1,3
do while not rs.eof
   rs.delete
   rs.update
   rs.move 0,1
  loop
ttt2=now()
tou=ttt2-ttt1
Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"

ttt1=now()
   sql ="delete from user  where 名称='阿余B'"
    conn.execute sql,0,-1
ttt2=now()
tou=ttt2-ttt1
Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
％>