<%
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
%>