ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
关于"&"运算符效率低下的问题,好的解决办法

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

我们知道用“ & ”号比用“+”号快。因为“+”要对字符窜变量做类型判断并转换。 

当时也没想出什么好办法。只是将两次“&”运算拆开,速度提了一倍。还是解决不了问题。 
结果就是:for i 1 to 5000 ,i以字符形式相加。用&运算,要300-500ms 

现在试试下面这个。建了个CStrCat的类。

程序代码:
Class CStrCat '这是类开始。 
    Private i,sa() 
    Public Property Get Value 
        Redim Preserve sa(i) 
        Value=Join(sa,"") 
    End Property 
    Private Sub Class_Initialize() 
        i=clng(0) 
        Redim sa(500) 
    End Sub 
    Private Sub Class_Terminate() 
        Erase sa 
    End Sub 
    Public function Add(ps) 
        If len(ps)=0 Then Exit Function 
    If (i>=ubound(sa)) Then upsize 
        sa(i)=ps 
        i=i+1 
    End function 
    Private Sub UpSize() 
        Dim u 
        u=ubound(sa) 
        Redim Preserve sa(clng(u+u*0.1)) 
    End Sub 
End Class


你可以用这个代码测试一下性能分别:

程序代码:
<% 
PageExeTime1=Timer * 1000 '计时开始 
Set sc=new CStrCat 
For i=0 To 5000 
    sc.add i&"aaaaaa"
next 
response.write sc.value 

'计时结束 
Response.Write ",Processed time:" & fix(abs(CDBL(Timer)*1000 - PageExeTime1))&"ms</font></p>" 

PageExeTime2=Timer * 1000
For i= 0 To 5000
    sc2=sc2&i&"aaaaaa"
Next
response.write sc2
'计时结束 
Response.Write ",Processed time:" & fix(abs(CDBL(Timer)*1000 - PageExeTime2))&"ms</font></p>" %>




相关文章

相关软件