比如
<%
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
%>
s=Join(Array("1","2","3",.....,"9999"))
<%
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
%>
s=Join(Array("1","2","3",.....,"9999"))
ASP中应用事务处理 (2007-9-8 19:11:19)
ASP数据库操作通用类 (2007-9-6 12:32:36)
ACCESS返回指定行开始的数据 (2007-9-6 12:12:42)
分享一段代码show.asp?id=26变成show/?26的形式 (2007-9-6 12:9:5)
如何写出优秀的ASP应用[理论性比较强] (2007-9-6 11:30:59)
ASP代码的一些优化技巧 (2007-9-6 11:25:25)
利用Session限制表单重复提交及其他重复操作的简单方法 (2007-9-6 11:16:49)
ASP页面内VBScript和JScript的交互与传值 (2007-9-6 11:6:31)
5个技巧提高ASP执行速度 (2007-9-6 10:52:41)
ASP函数计算中英文字符串的总长度 (2007-9-6 0:38:49)
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。