比如
<%
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 "(北联网教程,专业提供视频软件下载)
……