打印文章

ASP中用Join和Array，可以加快字符连接速度。

作者：采集员文章来源：来源于网络点击数：更新时间：2005/9/10 12:58:10

比如
<%
Dim a(10000),i,t
t=Timer
For i=0 to 10000
a(i)=CStr(i)
Next
Response.Write Join(a,vbCrLf)
Response.Write timer-t
Erase a
%>

速度可以和php一拼（虽然还是没有他快）
另一种用法是

s=Join(Array("1","2","3",.....,"9999"))
速度依然比"1" & "2" & "3" & .....& "9999"要快很多

详细测试数据可以看：

////////////////////////////////////////////////////
//{测试用的客户端模版}
////////////////////////////////////////////////////
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<Script language="VBScript">
dim t
t=timer
</script>

<Script language="VBScript">
document.write "|" & (timer-t) '输出客户端完全接受到所有数据所用的时间
</script>
</BODY>
</HTML>
////////////////////////////////////////////////////
//{测试的各个脚本的代码}
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js.asp
//使用数组收集所有的字符窜，最后通过join函数连接起来
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t,s;
var a=new Array(10000);
t=(new Date()).getTime();
for(i=0;i<10000;i++){
//s+=String(i)+" ";
a[i]=String(i);
}
s=a.join(" ");
Response.Write(s);
Response.Write("<br>"+String((new Date()).getTime()-t));
a=null;
s=null;
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js2.asp
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t,s="";
t=(new Date()).getTime();
for(i=0;i<10000;i++){
s+=String(i)+" ";
}
Response.Write(s);
Response.Write((new Date()).getTime()-t);
a=null;
s=null;
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js3.asp
//每得到一个数据，立刻输出到数据流中
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t;
t=(new Date()).getTime();
for(i=0;i<10000;i++){
Response.Write(i+" ");

}
Response.Write("<br>");
Response.Write((new Date()).getTime()-t);
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js3.asp
//这个程序通过建立零时文件，并将所有内容输入到文件中，最后统一输出
//建立零时文件所用的组件是FSO
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t;
t=(new Date()).getTime();
var fso=Server.CreateObject("Scripting.FileSystemObject");//建立fso对象
var f=fso.CreateTextFile(Server.MapPath("temp.txt"),true);//通过fso对象创建一个零时文件
for(i=0;i<10000;i++){
f.WriteLine(i);
}
f.Close();
f=fso.OpenTextFile(Server.MapPath("temp.txt"),1);
Response.Write(f.ReadAll());//读出零时文件的内容
f.Close();
f=null;
fso=null;
Response.Write("<br>");
Response.Write((new Date()).getTime()-t);
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js5.asp
//这个程序通过建立零时文件，并将所有内容输入到文件中，最后统一输出
//建立零时文件所用的组件是Adodb.Stream
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t;
t=(new Date()).getTime();
var ado=Server.CreateObject("ADODB.Stream");
ado.Mode=3;//设置为可读可写
ado.Type=2;//设置内容为文本
ado.Open();
for(i=0;i<10000;i++){
ado.WriteText(i+" ");
}
ado.SaveToFile(Server.MapPath("temp.txt"),2);//保存一下，才可以读取
Response.Write(ado.ReadText(-1));
ado.Close();
ado=null;
Response.Write("<br>");
Response.Write((new Date()).getTime()-t);
</Script>
//--------------------------------------------------
//test-vbs.asp
//这个程序使用数组收集所有的字符窜，最后通过join函数连接起来
//对应于test-js.asp
//--------------------------------------------------
<%
dim i,a(9999),t
t=timer
For i=0 to 9999
a(i)=CStr(i)
Next
s=Join(a,vbCrLf)
Response.Write s
Response.Write "<Br>" & CSTR(timer-t)
Erase a
s=""
%>
//--------------------------------------------------
//test-vbs2.asp
//使用一个零时的字符窜变量收集内容，最后输出
//对应于test-js2.asp
//--------------------------------------------------
<%
dim i,j,s,t
t=timer
for i=0 to 9999
s=s & CStr(i) & vbCrLf
next
response.write s
s=""
response.write "<BR>"&(timer-t)
%>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-vbs3.asp
//每得到一个数据，立刻输出到数据流中
//--------------------------------------------------
<%
dim i,j,s,t
t=timer
for i=0 to 9999
response.write CStr(i) & vbCrLf
next
response.write "<BR>"&(timer-t)
%>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-vbs4.asp
//这个程序通过建立零时文件，并将所有内容输入到文件中，最后统一输出
//建立零时文件所用的组件是FSO
//对应于test-js4.asp
//--------------------------------------------------
<%
dim i,t,fso,f
t=timer
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("temp.txt"),true)
for i=0 to 9999
f.WriteLine CStr(i)
next
f.Close
Set f=fso.OpenTextFile(Server.MapPath("temp.txt"),1)
Response.Write f.ReadAll
f.Close
Set f=Nothing
Set fso=Nothing
response.write "<BR>"&(timer-t)
%>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-vbs5.asp
//这个程序通过建立零时文件，并将所有内容输入到文件中，最后统一输出
//建立零时文件所用的组件是Adodb.Stream
//对应于test-js5.asp
//--------------------------------------------------
<%
dim i,t,ado
t=timer
Set ado=Server.CreateObject("ADODB.Stream")
ado.Mode=3'设置为可读可写
ado.Type=2'设置内容为文本
ado.Open
for i=0 to 9999
ado.WriteText CStr(i)&vbCrLf
next
ado.SaveToFile Server.MapPath("temp.txt"),2 '保存一下，才可以读取
Response.Write ado.ReadText()'读出全部内容，写入传送流
ado.Close
Set ado=Nothing
response.write "<BR>"&(timer-t)
%>

{测试数据统一使用0到9999的一万个数据，每个数据后追加一个回车，通过各种途径输出到客户端屏幕，得出所需时间}
{以下是测试结果}
{测试结果的格式：服务器段测试结果|客户端测试结果}

<Celeron 466MHz 256MB SDRAM>
[Windows98SE PWS 4.0]
[InternetExplorer 6.0 Service Park 1]
//test-js.asp(单位：毫秒|秒)
//ASP using JavaScript and Array Join
{JavaScript使用数组收集每一个测试数据，最后用join连接并输出，速度非常快}
390 |.0546875
440 |.0546875
490 |0
380 |0
440 |.046875
430 |.109375
440 |0
440 |.0625
440 |.046875
490 |.109375
440 |.0546875
////////////////////////////////////////////////////
//test-js2.asp(单位：毫秒|秒)
//ASP using JavaScript and Temperory Sting Join
{JavaScript使用零时字符串收集每一个测试数据，最后并输出}
{速度比较慢，页面出现前，都有短暂的等待，但是和VBscript快了很多}
4290 |0
3680 |.046875
4000 |0
3570 |.0625
3960 |.0546875
4070 |0
4290 |.0546875
4010 |.046875
3740 |0
4780 |0
4070 |.046875
4120 |.046875
////////////////////////////////////////////////////
//test-js3.asp(单位：毫秒|秒)
//ASP using JavaScript and directly output
{JavaScript每得到一个测试数据便立即输出}
{速度比JS用零时字符串速度要慢，但比VBScript直接输出快一点}
{但十分奇怪的是，客户端的运行时间几乎一直是0}
6700 |0
6750 |0
6920 |0
6650 |0
6650 |.046875
6650 |0
6920 |0
6970 |.0546875
6920 |0
7090 |0
////////////////////////////////////////////////////
//test-js4.asp(单位：毫秒|秒)
//ASP using JavaScript and temperoy file with FSO
{JavaScript使用FSO建立零时缓冲文件}
{速度很快，但比数组连接慢}
600 |.0625
600 |0
660 |0
660 |.0625
660 |0
660 |.0546875
660 |0
720 |0
660 |0
660 |.0625
////////////////////////////////////////////////////
//test-js5.asp(单位：毫秒|秒)
//ASP using JavaScript and temperoy file with ADODB.Stream
{JavaScript使用ADODB.Stream建立零时缓冲文件}
{速度很快，比JavaScript的其他方法都快，但比VBScript的数组连接要慢}
380 |.0625
330 |0
390 |0
380 |.0625
390 |.0546875
390 |0
390 |.046875
390 |.0546875
380 |.0625
390 |.046875
////////////////////////////////////////////////////
//test-vbs.asp(单位：秒|秒)
//ASP using VBScript and Array Join
{VBScript使用数组收集每一个测试数据，最后用join连接并输出}
{速度是ASP测试中，速度最快的}
.171875 |.3828125
.1640625|.546875
.1640625|.3828125
.2265625|.328125
.21875 |.390625
.21875 |.375
.171875 |.328125
.2265625|.3828125
.21875 |.3828125
.21875 |.3359375
.21875 |.328125
////////////////////////////////////////////////////
//test-vbs2.asp(单位：秒|秒)
//ASP using VBScript and Temperory String Join
{VBScript使用零时字符串收集每一个测试数据，最后输出}
{速度是ASP测试中，速度最慢的，JavaScript中同样的方法也只有这个的一半都不到}
{其原因也许在于字符串连接和s=s&"x"的不合理赋值方式}
10.71094 |10.75781
10.71094 |10.875
9.945313 |10.05469
9.773438 |9.882813
10.16406 |10.32031
10.21875 |10.32813
10.10156 |10.21094
9.671875 |9.78125
9.945313 |10.10938
9.9375 |10.10938
9.945313 |10.05469
////////////////////////////////////////////////////
//test-vbs3.asp(单位：秒|秒)
//ASP using VBScript and dir

[1] [2] 下一页

打印本文

关闭窗口