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

%>