ASP程序运行速度测试

订阅专栏
  1   程序运行速度试验结果：
  2   1 。作相同的分支条件判断： IF   比  SELECT慢。
  3  用以下程序测试：
  4   < %
  5   dim  tttt1,ttt2
  6  session( " ii " ) = 0 
  7   for  sn = 0   to   5 
  8  ttt1 = now ()
  9   for  i = 0   to   300000 
 10      if  session( " ii " ) = 0   then 
 11        session( " ii " ) = 1 
 12      else 
 13        if  session( " ii " ) = 1   then 
 14        session( " ii " ) = 2 
 15        else 
 16          if  session( " ii " ) = 2   then 
 17            session( " ii " ) = 3 
 18           else 
 19             session( " ii " ) = 0 
 20            end   if 
 21        end   if 
 22      end   if 
 23   next 
 24  ttt2 = now ()
 25  tou = ttt2 - ttt1
 26  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " <br>" 
 27   next 
 28  
 29   for  sn = 0   to   5 
 30  ttt1 = now ()
 31   for  i = 0   to   300000 
 32      select   case  session( " ii " )
 33         case   0 
 34           session( " ii " ) = 1 
 35         case   1 
 36           session( " ii " ) = 2 
 37          case   2 
 38           session( " ii " ) = 3 
 39          case   3 
 40           session( " ii " ) = 0 
 41      end   select 
 42   next 
 43  ttt2 = now ()
 44  tou = ttt2 - ttt1
 45  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " <br>" 
 46   next 
 47  
 48  % > 
 49   2 , 如果把上例中的SESSION对象改为用普通的变量存。速度会快差不多8倍
 50   3 ,进行字符串连接时往中间加入相同多的字符串，基数越大，越慢。
 51  通过下面的程序测试：
 52   < %
 53   dim  tttt1,ttt2
 54  session( " ii " ) = 0 
 55   for  sn = 0   to   5 
 56  ttt1 = now ()
 57   '   txt="" 
 58       for  i = 0   to   10000 
 59         txt = " a " & txt
 60      next 
 61  ttt2 = now ()
 62  tou = ttt2 - ttt1
 63  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " <br>" 
 64   next 
 65  % > 
 66  进行同样长字节的字符连接时，汉字比英文快4倍，通过下面的程序测试
 67   < %
 68  
 69   dim  tttt1,ttt2
 70   for  sn = 0   to   5 
 71  ttt1 = now ()
 72    txt = " " 
 73       for  i = 0   to   20000 
 74            txt = " 人 " & txt
 75      next 
 76  ttt2 = now ()
 77  tou = ttt2 - ttt1
 78  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " <br>" 
 79   next 
 80  
 81  txt = " " 
 82   for  sn = 0   to   5 
 83  ttt1 = now ()
 84    txt = " " 
 85       for  i = 0   to   20000 
 86            txt = " aa " & txt
 87      next 
 88  ttt2 = now ()
 89  tou = ttt2 - ttt1
 90  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " <br>" 
 91   next 
 92  
 93  % > 
 94  用FOR 循环比DO  WHILE循环要快得多，用下面的程序测试，虽然FOR循环中要多一个变量，
 95   < %
 96   dim  tttt1,ttt2
 97  
 98   for  sn = 0   to   5 
 99  ttt1 = now ()
100    i = 0 
101      do   while  i <= 100000 
102        i = i + 1 
103      loop 
104  ttt2 = now ()
105  tou = ttt2 - ttt1
106  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " <br>" 
107   next 
108  
109   for  sn = 0   to   5 
110  ttt1 = now ()
111     ii = 0 
112      for  i = 0   to   100000 
113      ii = ii + 1 
114      next 
115  ttt2 = now ()
116  tou = ttt2 - ttt1
117  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " <br>" 
118   next 
119  % > 
120  定义5000个一个字符的SESSION并不比定义5000个有5000个字符串长的SESSION少花很多时间，两者时间差仅为近一倍，用一秒多钟。倒是生成这个5000个字符长的变量花了不少的时间， < %
121   dim  tttt1,ttt2
122  c = " a" 
123   for  sn = 0   to   5 
124  
125  session.abandon
126  ttt1 = now ()
127      for  i = 0   to   5000 
128         session( " s " & i) = c
129       next 
130  ttt2 = now ()
131  tou = ttt2 - ttt1
132  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>" 
133   next 
134  
135   for  i = 0   to   5000 
136    c = " a " & c
137   next 
138  
139   for  sn = 0   to   5 
140  session.abandon
141  ttt1 = now ()
142      for  i = 0   to   5000 
143         session( " s " & i) = c
144       next 
145  ttt2 = now ()
146  tou = ttt2 - ttt1
147  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : "    & session( " s " & i - 1 ) & " <br>" 
148   next 
149  
150  
151  % > 
152  
153  
154  这段程序从SN＝3起就很慢,而前面非常快
155   < ! -- #include file = " filetou.asp " --> 
156   < %
157   dim  tttt1,ttt2
158   for  sn = 0   to   5 
159  ttt1 = now ()
160     for  i = 1   to    20 
161     sql  = " SELECT 名称  from user where 名称='阿余'" 
162       Set  rs = Server. CreateObject ( " ADODB.RecordSet " )                        
163     rs.Open sql,conn, 1 , 3 
164     rs( " 名称 " ) = " 阿余" 
165      rs.update
166     rs.close
167   next 
168  ttt2 = now ()
169  tou = ttt2 - ttt1
170  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>" 
171   next 
172  
173  
174  % > 
175  
176  
177  而这样就快多了。看来建对象很要花些时间，还有，用MOVE  0 , 1  和  MOVEFIRST 相比速度没有什么差别。
178   < ! -- #include file = " filetou.asp " --> 
179   < %
180     sql  = " SELECT 名称  from user where 名称='阿余'" 
181       Set  rs = Server. CreateObject ( " ADODB.RecordSet " )                        
182     rs.Open sql,conn, 1 , 3 
183   dim  tttt1,ttt2 
184   for  sn = 0   to   5 
185  ttt1 = now ()
186     for  i = 1   to    700 
187     rs( " 名称 " ) = " 阿余" 
188      rs.update
189     rs.movefirst
190   next 
191  ttt2 = now ()
192  tou = ttt2 - ttt1
193  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>" 
194   next 
195  % > 
196  
197  而这两种方式相比，后者要慢3倍，可能是后者要重新查询，但比前面的用RS建查询后又去改，改了又关，相比，要快了不知多少。
198   < ! -- #include file = " filetou.asp " --> 
199   < %
200     sql  = " SELECT 名称  from user where 名称='阿余'" 
201       Set  rs = Server. CreateObject ( " ADODB.RecordSet " )                        
202     rs.Open sql,conn, 1 , 3 
203   dim  tttt1,ttt2 
204  
205   for  sn = 0   to   5 
206  ttt1 = now ()
207     for  i = 1   to    700 
208     rs( " 名称 " ) = " 阿余" 
209      rs.update
210     rs.movefirst
211   next 
212  ttt2 = now ()
213  tou = ttt2 - ttt1
214  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>" 
215   next 
216  
217   for  sn = 0   to   5 
218  ttt1 = now ()
219     for  i = 1   to    700 
220       SQL = " UPDATE user set 名称='阿余'  where 名称='阿余'" 
221        conn. execute  sql, 0 , - 1 
222   next 
223  ttt2 = now ()
224  tou = ttt2 - ttt1
225  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>" 
226   next 
227  
228  % > 
229  
230  
231  新加一万条记录谁快？第一种方法用31秒，后者直到超时仍未完成。不得已，少掉一个0，1000条是，后者慢一半。
232   < ! -- #include file = " filetou.asp " --> 
233   < %
234     sql  = " SELECT 名称  from user where id=0" 
235       Set  rs = Server. CreateObject ( " ADODB.RecordSet " )                        
236     rs.Open sql,conn, 1 , 3 
237   dim  tttt1,ttt2 
238  
239  ttt1 = now ()
240     for  i = 1   to    10000 
241     rs.addnew
242     rs( " 名称 " ) = " 阿余A" 
243      rs.update
244   next 
245  ttt2 = now ()
246  tou = ttt2 - ttt1
247  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>"
248  
249   
250   ttt1 = now ()
251     for  i = 1   to    10000 
252       sql = "  INSERT INTO  user (名称) VALUES('阿余B')" 
253        conn. execute  sql, 0 , - 1 
254   next 
255  ttt2 = now ()
256  tou = ttt2 - ttt1
257  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>"
258  
259   
260   % > 
261  
262  下面的程序结果说明RS新增记录较快，而删除较慢，用CONN新增慢，但删除很快。
263  运行的结果为：
264  、 3.00000007264316 :
265  、 7.99999998416752 :
266  、 1.99999983888119 :
267  、 0 :
268  后来用RS新增记录5000条，并用CONN删除这5000条， 结果为：
269  、 17.000000202097 :
270  、 1.00000023376197 :
271  程序为：
272   < ! -- #include file = " filetou.asp " --> 
273   < %
274   dim  tttt1,ttt2 
275  ttt1 = now ()
276  sql  = " SELECT 名称  from user where id=0" 
277       Set  rs = Server. CreateObject ( " ADODB.RecordSet " )                        
278     rs.Open sql,conn, 1 , 3 
279     for  i = 1   to    1000 
280     rs.addnew
281     rs( " 名称 " ) = " 阿余A" 
282      rs.update
283   next 
284  ttt2 = now ()
285  tou = ttt2 - ttt1
286  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>"
287  
288   
289   ttt1 = now ()
290     for  i = 1   to    1000 
291       sql = "  INSERT INTO  user (名称) VALUES('阿余B')" 
292        conn. execute  sql, 0 , - 1 
293   next 
294  ttt2 = now ()
295  tou = ttt2 - ttt1
296  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>"
297  
298  
299  
300   
301   ttt1 = now ()
302     sql  = " SELECT  名称 from user where 名称='阿余A'" 
303       Set  rs = Server. CreateObject ( " ADODB.RecordSet " )                        
304     rs.Open sql,conn, 1 , 3 
305   do   while   not  rs.eof
306     rs.delete
307     rs.update
308     rs.move  0 , 1 
309     loop 
310  ttt2 = now ()
311  tou = ttt2 - ttt1
312  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>"
313  
314   
315   ttt1 = now ()
316     sql  = " delete from user  where 名称='阿余B'" 
317       conn. execute  sql, 0 , - 1 
318  ttt2 = now ()
319  tou = ttt2 - ttt1
320  Response.Write sn & " 、 " & tou * 24 * 60 * 60 & " : " & session( " s " & i - 1 ) & " <br>" 
321   % >