明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)！

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

發(fā)表時(shí)間：2023-08-16 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]比如<%Dim a(10000),i,tt=TimerFor i=0 to 10000 a(i)=CStr(i)NextResponse.Write Join(a,vbCrLf)Resp...

比如
<%
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"要快很多

詳細(xì)測試數(shù)據(jù)可以看：

////////////////////////////////////////////////////
//{測試用的客戶端模版}
////////////////////////////////////////////////////
<!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>
<!--這兒放服務(wù)器測試腳本-->
<Script language="VBScript">
document.write " " & (timer-t) '輸出客戶端完全接受到所有數(shù)據(jù)所用的時(shí)間
</script>
</BODY>
</HTML>
////////////////////////////////////////////////////
//{測試的各個(gè)腳本的代碼}
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js.asp
//使用數(shù)組收集所有的字符竄，最后通過join函數(shù)連接起來
//--------------------------------------------------
<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)+"\n";
a[i]=String(i);
}
s=a.join("\n");
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)+"\n";
}
Response.Write(s);
Response.Write((new Date()).getTime()-t);
a=null;
s=null;
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js3.asp
//每得到一個(gè)數(shù)據(jù)，立刻輸出到數(shù)據(jù)流中
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t;
t=(new Date()).getTime();
for(i=0;i<10000;i++){
Response.Write(i+"\n");

}
Response.Write("<br>");
Response.Write((new Date()).getTime()-t);
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js3.asp
//這個(gè)程序通過建立零時(shí)文件，并將所有內(nèi)容輸入到文件中，最后統(tǒng)一輸出
//建立零時(shí)文件所用的組件是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對象創(chuàng)建一個(gè)零時(shí)文件
for(i=0;i<10000;i++){
f.WriteLine(i);
}
f.Close();
f=fso.OpenTextFile(Server.MapPath("temp.txt"),1);
Response.Write(f.ReadAll());//讀出零時(shí)文件的內(nèi)容
f.Close();
f=null;
fso=null;
Response.Write("<br>");
Response.Write((new Date()).getTime()-t);
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js5.asp
//這個(gè)程序通過建立零時(shí)文件，并將所有內(nèi)容輸入到文件中，最后統(tǒng)一輸出
//建立零時(shí)文件所用的組件是Adodb.Stream
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t;
t=(new Date()).getTime();
var ado=Server.CreateObject("ADODB.Stream");
ado.Mode=3;//設(shè)置為可讀可寫
ado.Type=2;//設(shè)置內(nèi)容為文本
ado.Open();
for(i=0;i<10000;i++){
ado.WriteText(i+"\n");
}
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
//這個(gè)程序使用數(shù)組收集所有的字符竄，最后通過join函數(shù)連接起來
//對應(yīng)于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
//使用一個(gè)零時(shí)的字符竄變量收集內(nèi)容，最后輸出
//對應(yīng)于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
//每得到一個(gè)數(shù)據(jù)，立刻輸出到數(shù)據(jù)流中
//--------------------------------------------------
<%
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
//這個(gè)程序通過建立零時(shí)文件，并將所有內(nèi)容輸入到文件中，最后統(tǒng)一輸出
//建立零時(shí)文件所用的組件是FSO
//對應(yīng)于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
//這個(gè)程序通過建立零時(shí)文件，并將所有內(nèi)容輸入到文件中，最后統(tǒng)一輸出
//建立零時(shí)文件所用的組件是Adodb.Stream
//對應(yīng)于test-js5.asp
//--------------------------------------------------
<%
dim i,t,ado
t=timer
Set ado=Server.CreateObject("ADODB.Stream")
ado.Mode=3'設(shè)置為可讀可寫
ado.Type=2'設(shè)置內(nèi)容為文本
ado.Open
for i=0 to 9999
ado.WriteText CStr(i)&vbCrLf
next
ado.SaveToFile Server.MapPath("temp.txt"),2 '保存一下，才可以讀取
Response.Write ado.ReadText()'讀出全部內(nèi)容，寫入傳送流
ado.Close
Set ado=Nothing
response.write "<BR>"&(timer-t)
%>

{測試數(shù)據(jù)統(tǒng)一使用0到9999的一萬個(gè)數(shù)據(jù)，每個(gè)數(shù)據(jù)后追加一個(gè)回車，通過各種途徑輸出到客戶端屏幕，得出所需時(shí)間}
{以下是測試結(jié)果}
{測試結(jié)果的格式：服務(wù)器段測試結(jié)果 客戶端測試結(jié)果}

<Celeron 466MHz 256MB SDRAM>
[Windows98SE PWS 4.0]
[InternetExplorer 6.0 Service Park 1]
//test-js.asp(單位：毫秒 秒)
//ASP using JavaScript and Array Join
{JavaScript使用數(shù)組收集每一個(gè)測試數(shù)據(jù)，最后用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使用零時(shí)字符串收集每一個(gè)測試數(shù)據(jù)，最后并輸出}
{速度比較慢，頁面出現(xiàn)前，都有短暫的等待，但是和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每得到一個(gè)測試數(shù)據(jù)便立即輸出}
{速度比JS用零時(shí)字符串速度要慢，但比VBScript直接輸出快一點(diǎn)}
{但十分奇怪的是，客戶端的運(yùn)行時(shí)間幾乎一直是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建立零時(shí)緩沖文件}
{速度很快，但比數(shù)組連接慢}
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建立零時(shí)緩沖文件}
{速度很快，比JavaScript的其他方法都快，但比VBScript的數(shù)組連接要慢}
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使用數(shù)組收集每一個(gè)測試數(shù)據(jù)，最后用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使用零時(shí)字符串收集每一個(gè)測試數(shù)據(jù)，最后輸出}
{速度是ASP測試中，速度最慢的，JavaScript中同樣的方法也只有這個(gè)的一半都不到}
{其原因也許在于字符串連接和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 directly output
{VBScript每得到一個(gè)測試數(shù)據(jù)便立即輸出}
{速度是ASP測試中，速度僅比VBScript的零時(shí)字符連接快，和JavaScript的同種方法得出的結(jié)果差不多，略慢}
7.46875 7.421875
7.296875 7.296875
7.03125 7.03125
7.359375 7.359375
7.3125 7.3125
7.359375 7.359375
7.1875 7.1875
7.25 7.25
7.304688 7.304688
7.1875 7.1875
7.640625 7.640625
////////////////////////////////////////////////////
//test-vbs4.asp(單位：秒 秒)
//ASP using VBScript and temperoy file with FSO
{VBScript使用FSO建立零時(shí)緩沖文件}
{速度很快，但比JavaScript的同種方法略慢}
.828125 1.046875
.765625 .9296875
.828125 1.039063
.71875 .828125
.7109375 .875
.71875 .828125
.71875 .8828125
.71875 .828125
.7734375 .8671875
.7734375 .8203125
////////////////////////////////////////////////////
//test-vbs5.asp(單位：秒 秒)
//ASP using VBScript and temperoy file with ADODB.Stream
{VBScript使用FSO建立零時(shí)緩沖文件}
{速度很快，和JavaScript的同種方法結(jié)果相近}
.390625 .6015625
.59375 .765625
.4921875 .6484375
.3828125 .546875
.3359375 .5546875
.328125 .546875
.390625 .5
.3359375 .4921875
.390625 .5
.3359375 .5
////////////////////////////////////////////////////
//總結(jié)
////////////////////////////////////////////////////
{
測試結(jié)果很明顯，數(shù)組連接及用ADODB.Stream建立緩沖文件在速度上占了上風(fēng)
服務(wù)器端使用JavaScript會(huì)使客戶端的反應(yīng)加快？！�。�？
性能上VBScript在數(shù)組連接上性能很好
其他的不如JavaScript
但數(shù)組連接及用ADODB.Stream建立緩沖文件這兩者各有缺陷
I 對于數(shù)組連接，用法比較復(fù)雜
1.數(shù)組連接在實(shí)際運(yùn)用中，必須設(shè)置一個(gè)指針變量
2.使用上，由于數(shù)組的大小是在變化的
a.對于JavaScript，
必須用"var arrTemp=new Array();"來聲明，這樣可以不斷擴(kuò)大數(shù)組的尺寸
b.對于VBScript
必須用Dim arrTemp()來聲明，并在程序用使用ReDim Preserve arrTemp(p+size)來擴(kuò)大數(shù)組的尺寸，Preserve是用來保留數(shù)組中原有的內(nèi)容
II對于ADODB.Stream建立緩沖文件的方法
我們必須設(shè)置一個(gè)零時(shí)文件，但每調(diào)用一次頁面都要寫這個(gè)文件，如果使用同一個(gè)零時(shí)文件，這就容易出現(xiàn)沖突
可以使用當(dāng)前的時(shí)間來做零時(shí)文件名，以減少?zèng)_突，或者給文件作一個(gè)標(biāo)示，如果文件沒有過期，便直接讀取，過期了，便打開寫入新的內(nèi)容
后者比較合適，前者容易造成零時(shí)文件的泛濫，垃圾成堆
但是后者實(shí)現(xiàn)也很復(fù)雜

此外，我沒測試內(nèi)存使用情況，不知道數(shù)組連接對內(nèi)存使用會(huì)造成多大影響

}
////////////////////////////////////////////////////
//附1
////////////////////////////////////////////////////
{下面是用于對照的php腳本}
////////////////////////////////////////////////////
//--------------------------------------------------
//test.php
//使用字符連接
//對應(yīng)于test-js2.asp和test-vbs2.asp
//--------------------------------------------------
<?
$t=gettimeofday();
for($i=0;$i<10000;$i++){
$s.=$i."\n";
}
echo($s."\n");
$now=gettimeofday();
echo(($now["sec"]-$t["sec"])*1000000+$now["usec"]-$t["usec"]);
?>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test2.php
//直接輸出
//對應(yīng)于test-js3.asp和test-vbs3.asp
//--------------------------------------------------
<?
$t=gettimeofday();
for($i=0;$i<10000;$i++){
echo($i."\n");
}
$now=gettimeofday();
echo(($now["sec"]-$t["sec"])*1000000+$now["usec"]-$t["usec"]);
?>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test3.php
//使用數(shù)組連接
//對應(yīng)于test-js.asp和test-vbs.asp
//--------------------------------------------------
<?
$t=gettimeofday();
for($i=0;$i<10000;$i++){
$s[$i]=$i;
}
echo(implode("\n",$s));
$now=gettimeofday();
echo("<br>".(($now["sec"]-$t["sec"])*1000000+$now["usec"]-$t["usec"]));
?>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test4.php
//使用零時(shí)文件
//對應(yīng)于test-js4.asp,test-js5.asp,test-vbs4.asp和test-vbs5.asp
//--------------------------------------------------
<?
$t=gettimeofday();
$fp=fopen("temp.txt","w");
for($i=0;$i<10000;$i++){
fwrite($fp,$i."\n");
}
fclose($fp);
//readfile("temp.txt");
include("temp.txt");
$now=gettimeofday();
echo("<br>".(($now["sec"]-$t["sec"])*1000000+$now["usec"]-$t["usec"]));
?>
//--------------------------------------------------
////////////////////////////////////////////////////
<Celeron 466MHz 256MB SDRAM>
[Windows98SE Apache]
[InternetExplorer 6.0 Service Park 1]
//test.php(單位：微秒 秒)
//PHP Temperory String Join
{快}
188517 .109375
204281 .21875
174301 .171875
179169 .171875
185047 .1679688
198225 .1679688
200802 .1601563
217518 .2226563
199039 .171875
178899 .109375
////////////////////////////////////////////////////
//test2.php(單位：微秒 秒)
//PHP directly output
{也很快}
197242 .2226563
241610 .2695313
227355 .2734375
214959 .2226563
210478 .21875
230015 .2226563
222359 .1601563
215845 .21875
226364 .21875
210501 .21875
////////////////////////////////////////////////////
//test2.php(單位：微秒 秒)
//PHP using Array Join
{前面得很快便輸出了，但到倒數(shù)幾個(gè)（從9939開始)等待了很長時(shí)間}
{不知道是不是我的機(jī)子的問題，也許和apache服務(wù)器的程序設(shè)計(jì)有關(guān)}
358020 23.01172
340309 22.1875
397571 22.46875
365696 21.64063
495641 23.57031
464867 34.71094
530083 27.41406
493962 26.03125
351829 26.40625
430496 26.08594
////////////////////////////////////////////////////
//test4.php(單位：微秒 秒)
//PHP using Temperory file
{依然很快}
215117 .171875
220059 .171875
231748 .1640625
211022 .109375
232915 .1640625
196025 .1640625
210776 .21875
217552 .1640625
216197 .171875
259508 .171875
////////////////////////////////////////////////////
//總結(jié)
////////////////////////////////////////////////////
{
php的速度還是....
根本不用為速度而擔(dān)憂，可以使用任何一種方式
asp我也沒話好說的，總算數(shù)組連接方式還可以和php一拼，不過很奇怪，ASP with JavaScript 為什么在客戶端的測試結(jié)果那么好？！
不清楚....
}
////////////////////////////////////////////////////
//附2:數(shù)組不斷擴(kuò)展的測試
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js6.asp
//使用數(shù)組收集所有的字符竄，最后通過join函數(shù)連接起來
//--------------------------------------------------
<script language="JavaScript" RunAt="Server">
var i,t,s;
var a=new Array();
t=(new Date()).getTime();
for(i=0;i<10000;i++){
a[i]=String(i);
}
s=a.join("\n");
Response.Write(s);
Response.Write("<br>"+String((new Date()).getTime()-t));
a=null;
s=null;
</Script>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
//test-vbs6.asp
//使用數(shù)組收集所有的字符竄，最后通過join函數(shù)連接起來
//--------------------------------------------------
<%
dim i,a(),t
t=timer
For i=0 to 9999
ReDim Preserve a(i) '重定義大小
a(i)=CStr(i)
Next
Response.Write Join(a,vbCrLf)
Erase a
Response.Write "<Br>" & CSTR(timer-t)
%>
//--------------------------------------------------
////////////////////////////////////////////////////
//--------------------------------------------------
<Celeron 466MHz 256MB SDRAM>
[Windows98SE PWS 4.0]
[InternetExplorer 6.0 Service Park 1]
//test-js6.asp(單位：毫秒 秒)
//ASP using JavaScript and Array Join
{JavaScript使用數(shù)組收集每一個(gè)測試數(shù)據(jù)，最后用join連接并輸出，但初始化時(shí)不直接給其指定大小}
{速度還是很快}
650 0
440 .046875
440 .0625
440 0
440 .0546875
440 .109375
490 0
440 .0546875
440 0
////////////////////////////////////////////////////
//test-vbs6.asp(單位：毫秒 秒)
//ASP using VBScript and Array Join
{VBScript使用數(shù)組收集每一個(gè)測試數(shù)據(jù)，最后用join連接并輸出，但初始化時(shí)不直接給其指定大小，程序中通過Redim Preserve重新定義}
{速度還是很快}
.328125 .28125
.328125 .5
.328125 .5
.3828125 .3828125
.328125 .4375
.328125 .390625
.328125 .4375
.3359375 .390625
.3359375 .4453125
.390625 .390625
.3359375 .4921875
.390625 .3828125
////////////////////////////////////////////////////
//總結(jié)
////////////////////////////////////////////////////
{
不斷擴(kuò)展數(shù)組，在JavaScript中對性能的影響并不是很大
在VBScript中確實(shí)有很大影響，但不影響它的成績
所以，不必為不斷擴(kuò)展數(shù)組擔(dān)心
}