六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

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

發表時間：2023-08-16 來源：明輝站整理相關軟件相關文章人氣：

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

詳細測試數據可以看：

////////////////////////////////////////////////////
//{測試用的客戶端模版}
////////////////////////////////////////////////////
<!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)+"\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
//每得到一個數據，立刻輸出到數據流中
//--------------------------------------------------
<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
//這個程序通過建立零時文件，并將所有內容輸入到文件中，最后統一輸出
//建立零時文件所用的組件是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+"\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
//這個程序使用數組收集所有的字符竄，最后通過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 directly output
{VBScript每得到一個測試數據便立即輸出}
{速度是ASP測試中，速度僅比VBScript的零時字符連接快，和JavaScript的同種方法得出的結果差不多，略慢}
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建立零時緩沖文件}
{速度很快，但比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建立零時緩沖文件}
{速度很快，和JavaScript的同種方法結果相近}
.390625 .6015625
.59375 .765625
.4921875 .6484375
.3828125 .546875
.3359375 .5546875
.328125 .546875
.390625 .5
.3359375 .4921875
.390625 .5
.3359375 .5
////////////////////////////////////////////////////
//總結
////////////////////////////////////////////////////
{
測試結果很明顯，數組連接及用ADODB.Stream建立緩沖文件在速度上占了上風
服務器端使用JavaScript會使客戶端的反應加快？！！？？
性能上VBScript在數組連接上性能很好
其他的不如JavaScript
但數組連接及用ADODB.Stream建立緩沖文件這兩者各有缺陷
I 對于數組連接，用法比較復雜
1.數組連接在實際運用中，必須設置一個指針變量
2.使用上，由于數組的大小是在變化的
a.對于JavaScript，
必須用"var arrTemp=new Array();"來聲明，這樣可以不斷擴大數組的尺寸
b.對于VBScript
必須用Dim arrTemp()來聲明，并在程序用使用ReDim Preserve arrTemp(p+size)來擴大數組的尺寸，Preserve是用來保留數組中原有的內容
II對于ADODB.Stream建立緩沖文件的方法
我們必須設置一個零時文件，但每調用一次頁面都要寫這個文件，如果使用同一個零時文件，這就容易出現沖突
可以使用當前的時間來做零時文件名，以減少沖突，或者給文件作一個標示，如果文件沒有過期，便直接讀取，過期了，便打開寫入新的內容
后者比較合適，前者容易造成零時文件的泛濫，垃圾成堆
但是后者實現也很復雜

此外，我沒測試內存使用情況，不知道數組連接對內存使用會造成多大影響

}
////////////////////////////////////////////////////
//附1
////////////////////////////////////////////////////
{下面是用于對照的php腳本}
////////////////////////////////////////////////////
//--------------------------------------------------
//test.php
//使用字符連接
//對應于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
//直接輸出
//對應于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
//使用數組連接
//對應于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
//使用零時文件
//對應于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
{前面得很快便輸出了，但到倒數幾個（從9939開始)等待了很長時間}
{不知道是不是我的機子的問題，也許和apache服務器的程序設計有關}
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
////////////////////////////////////////////////////
//總結
////////////////////////////////////////////////////
{
php的速度還是....
根本不用為速度而擔憂，可以使用任何一種方式
asp我也沒話好說的，總算數組連接方式還可以和php一拼，不過很奇怪，ASP with JavaScript 為什么在客戶端的測試結果那么好？！
不清楚....
}
////////////////////////////////////////////////////
//附2:數組不斷擴展的測試
////////////////////////////////////////////////////
//--------------------------------------------------
//test-js6.asp
//使用數組收集所有的字符竄，最后通過join函數連接起來
//--------------------------------------------------
<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
//使用數組收集所有的字符竄，最后通過join函數連接起來
//--------------------------------------------------
<%
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使用數組收集每一個測試數據，最后用join連接并輸出，但初始化時不直接給其指定大小}
{速度還是很快}
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使用數組收集每一個測試數據，最后用join連接并輸出，但初始化時不直接給其指定大小，程序中通過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
////////////////////////////////////////////////////
//總結
////////////////////////////////////////////////////
{
不斷擴展數組，在JavaScript中對性能的影響并不是很大
在VBScript中確實有很大影響，但不影響它的成績
所以，不必為不斷擴展數組擔心
}


 
主站蜘蛛池模板： 日韩免费a级在线观看 | 一二三四影视大全免费观看电视剧 | 亚洲a视频在线 | 欧美专区日韩 | 色欧美综合 | 欧美在线高清brazzers在线 | 日本vs欧美一区二区三区 | 中文字幕在线精品不卡 | 青青草原国产在线视频 | 亚洲精品国产综合久久一线 | 日一日射一射 | 欧美特黄一级视频 | 日本激情视频在线观看 | 综合色久七七综合七七蜜芽 | 亚洲视频免费看 | 天天插伊人 | 日韩永久免费视频 | 亚洲a视频在线 | 色综合天天综一个色天天综合网 | 亚洲欧美自拍视频 | 青娱乐国产精品视频 | 日本大片在线播放在线 | 亚洲精品中文字幕无乱码 | 亚洲网站视频在线观看 | 啪啪精品 | 亚洲天堂视频在线观看免费 | 日韩视频在线观看 | 欧美一级淫片a免费播放口aaa | 亚洲区第一页 | 综合网 色天使 | 色婷婷激婷婷深爱五月小说 | 夜夜爽一区二区三区精品 | 亚洲国产青草 | 亚洲成a人片在线v观看 | 青青伊人影院 | 日本三级视频在线观看 | 日韩精品魔镜号系列在线观看 | 婷婷在线成人免费观看搜索 | 日韩视频二区 | 倩女还魂在线观看完整版免费 | 四虎影院在线观看网站 |