比如
<%
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"要快很多
详细测试数据可以看:
////////////////////////////////////////////////////
//{测试用的客户端模版}
////////////////////////////////////////////////////