订阅专栏
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 % >
ASP程序运行速度测试
原创
©著作权归作者所有：来自51CTO博客作者DickyNet的原创作品，请联系作者获取转载授权，否则将追究法律责任
上一篇：显示一个Form中的所有内容
下一篇：教你学包粽（全程图解）
提问和评论都可以，用心的回复会被更多人看到
评论
发布评论
相关文章
-
【算法】C程序的运行速度测试
C语言程序的运行速度测试more上提到了一点，即我们应该学会估计一个时间复杂度较高的算法，在机器上的运行速度。图简单大部分O1s。所以我们测试的目标也将放在1s上。
算法 c语言 开发语言 #include 时间戳 -
如何提高MATLAB程序运行速度？
十分钟教你学会提高MATLAB程序运行速度
MATLAB 数组 f5 -
内网安装docker吗
一、任务需求与方案1.1 需求 最近项目有个任务是实现 通过公网ip + 端口号 来访问内网的平台系统（在8080端口）。 其中，具有公网ip的服务器是阿里云服务器（Linux CentOS 8 的版
内网安装docker吗 tcp/ip p2p 网络协议 服务器
