ASP程序运行速度测试

1程序运行速度试验结果：
21。作相同的分支条件判断：IF 比 SELECT慢。
3用以下程序测试：
4<%
5dim tttt1,ttt2
6session("ii")=0
7for sn=0 to 5
8ttt1=now()
9for 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
23next
24ttt2=now()
25tou=ttt2-ttt1
26Response.Write sn&"、"&tou*24*60*60&"<br>"
27next
28
29for sn=0 to 5
30ttt1=now()
31for 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
42next
43ttt2=now()
44tou=ttt2-ttt1
45Response.Write sn&"、"&tou*24*60*60&"<br>"
46next
47
48%>
492, 如果把上例中的SESSION对象改为用普通的变量存。速度会快差不多8倍
503,进行字符串连接时往中间加入相同多的字符串，基数越大，越慢。
51通过下面的程序测试：
52<%
53dim tttt1,ttt2
54session("ii")=0
55for sn=0 to 5
56ttt1=now()
57' txt=""
58 for i=0 to 10000
59 txt="a"&txt
60 next
61ttt2=now()
62tou=ttt2-ttt1
63Response.Write sn&"、"&tou*24*60*60&"<br>"
64next
65%>
66进行同样长字节的字符连接时，汉字比英文快4倍，通过下面的程序测试
67<%
68
69dim tttt1,ttt2
70for sn=0 to 5
71ttt1=now()
72 txt=""
73 for i=0 to 20000
74 txt="人"&txt
75 next
76ttt2=now()
77tou=ttt2-ttt1
78Response.Write sn&"、"&tou*24*60*60&"<br>"
79next
80
81txt=""
82for sn=0 to 5
83ttt1=now()
84 txt=""
85 for i=0 to 20000
86 txt="aa"&txt
87 next
88ttt2=now()
89tou=ttt2-ttt1
90Response.Write sn&"、"&tou*24*60*60&"<br>"
91next
92
93%>
94用FOR 循环比DO WHILE循环要快得多，用下面的程序测试，虽然FOR循环中要多一个变量，
95<%
96dim tttt1,ttt2
97
98for sn=0 to 5
99ttt1=now()
100 i=0
101 do while i<=100000
102 i=i+1
103 loop
104ttt2=now()
105tou=ttt2-ttt1
106Response.Write sn&"、"&tou*24*60*60&"<br>"
107next
108
109for sn=0 to 5
110ttt1=now()
111 ii=0
112 for i=0 to 100000
113 ii=ii+1
114 next
115ttt2=now()
116tou=ttt2-ttt1
117Response.Write sn&"、"&tou*24*60*60&"<br>"
118next
119%>
120定义5000个一个字符的SESSION并不比定义5000个有5000个字符串长的SESSION少花很多时间，两者时间差仅为近一倍，用一秒多钟。倒是生成这个5000个字符长的变量花了不少的时间，<%
121dim tttt1,ttt2
122c="a"
123for sn=0 to 5
124
125session.abandon
126ttt1=now()
127 for i=0 to 5000
128 session("s"&i)=c
129 next
130ttt2=now()
131tou=ttt2-ttt1
132Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
133next
134
135for i=0 to 5000
136 c="a"&c
137next
138
139for sn=0 to 5
140session.abandon
141ttt1=now()
142 for i=0 to 5000
143 session("s"&i)=c
144 next
145ttt2=now()
146tou=ttt2-ttt1
147Response.Write sn&"、"&tou*24*60*60&":" &session("s"&i-1)&"<br>"
148next
149
150
151%>
152
153
154这段程序从SN＝3起就很慢,而前面非常快
155<!--#include file="filetou.asp"-->
156<%
157dim tttt1,ttt2
158for sn=0 to 5
159ttt1=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
167next
168ttt2=now()
169tou=ttt2-ttt1
170Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
171next
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
183dim tttt1,ttt2
184for sn=0 to 5
185ttt1=now()
186 for i=1 to 700
187 rs("名称")="阿余"
188 rs.update
189 rs.movefirst
190next
191ttt2=now()
192tou=ttt2-ttt1
193Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
194next
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
203dim tttt1,ttt2
204
205for sn=0 to 5
206ttt1=now()
207 for i=1 to 700
208 rs("名称")="阿余"
209 rs.update
210 rs.movefirst
211next
212ttt2=now()
213tou=ttt2-ttt1
214Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
215next
216
217for sn=0 to 5
218ttt1=now()
219 for i=1 to 700
220 SQL="UPDATE user set 名称='阿余' where 名称='阿余'"
221 conn.execute sql,0,-1
222next
223ttt2=now()
224tou=ttt2-ttt1
225Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
226next
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
237dim tttt1,ttt2
238
239ttt1=now()
240 for i=1 to 10000
241 rs.addnew
242 rs("名称")="阿余A"
243 rs.update
244next
245ttt2=now()
246tou=ttt2-ttt1
247Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
248
249
250ttt1=now()
251 for i=1 to 10000
252 sql=" INSERT INTO user (名称) VALUES('阿余B')"
253 conn.execute sql,0,-1
254next
255ttt2=now()
256tou=ttt2-ttt1
257Response.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<%
274dim tttt1,ttt2
275ttt1=now()
276sql ="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
283next
284ttt2=now()
285tou=ttt2-ttt1
286Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
287
288
289ttt1=now()
290 for i=1 to 1000
291 sql=" INSERT INTO user (名称) VALUES('阿余B')"
292 conn.execute sql,0,-1
293next
294ttt2=now()
295tou=ttt2-ttt1
296Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
297
298
299
300
301ttt1=now()
302 sql ="SELECT 名称 from user where 名称='阿余A'"
303 Set rs=Server.CreateObject("ADODB.RecordSet")
304 rs.Open sql,conn,1,3
305do while not rs.eof
306 rs.delete
307 rs.update
308 rs.move 0,1
309 loop
310ttt2=now()
311tou=ttt2-ttt1
312Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
313
314
315ttt1=now()
316 sql ="delete from user where 名称='阿余B'"
317 conn.execute sql,0,-1
318ttt2=now()
319tou=ttt2-ttt1
320Response.Write sn&"、"&tou*24*60*60&":"&session("s"&i-1)&"<br>"
321%>