字符串连接性能测试

<%
Dim StartTime,EndTime,i
Dim Temp,Arr(4999)

Const a1="aaaaaa"
Const a2="bbbbbb"
Const a3="cccccc"

StartTime = Timer()
'逐个打开测试
'Response.Write(Test1())
'Response.Write(Test2())
'Response.Write(Test3())
EndTime = Timer()
Response.Write("使用时间:" & FormatNumber((EndTime-StartTime),3) & "毫秒")

Function Test1()
	For i=0 to 4999
		Temp = Temp & a1 & a2 & a3
	Next
	Test1 = Temp
End Function

Function Test2()
	For i=0 to 4999
		Temp = Temp & (a1 & a2 & a3)
	Next
	Test2 = Temp
End Function

Function Test3()
	For i=0 to 4999
		Arr(i) = a1 & a2 & a3
	Next
	Test3 = Join(Arr,"")
End Function
%>