|
导读老人家说的好,小孩子做事要有始有终。既然已经翻译了AspLib中的GenObj组件,那么我们就不应该半途而废。今天,我们谈谈其中的另一个组件-AspSortie。顾名思义,这个组件是用于排序的,它能... 老人家说的好,小孩子做事要有始有终。既然已经翻译了AspLib中的GenObj组件,那么我们就不应该半途而废。今天,我们谈谈其中的另一个组件-AspSortie。顾名思义,这个组件是用于排序的,它能对整数、浮点数、字符串、日期/时间等数组进行增序或降序排序,使用非常简单,而且,我发现,这个组件能在Visual Basic中使用,不过在我的机器上产生一个错误,而且这个错误类型是Delphi式的,是不是可以推测这个组件是Delphi写的呢(其实这样的组件,我想很多人都写的出来,不过,既然能用现成的,那就不要再客气了)? 当然,第一步我们要谈谈安装,同其他大部分ServerObjects出品的组件一样,你必须把这个aspSort.Dll拷贝到一个子目录下,如果你使用Windows NT操作系统,那么推荐你把该aspSort.dll拷贝到Winnt\System32子目录,使用Windows 9X的,则应该拷贝到Windows\System子目录。然后,使用我们的RegSvr32注册该组件。如 Regsvr32 aspsort.dll,如果aspsort.dll不在当前目录,你需要键入aspsort.dll的完整路径。 可能你拥有aspsort.dll的早期版本,如果你想把它升级到现在这个新版本,你可能要麻烦一些: ⒈ 停止IIS有关的全部服务,如ftp,w3srvc等。 ⒉ 改变目录到AspSort.dll的安装目录,用regsvr32 /u aspsort.dll取消注册。 ⒊ 其他步骤同上。当然最后你会重新启动iis有关的全部服务。 接下来我们谈谈正经的。 如何创建AspSortie对象? 在Asp中你可用如下方法创建AspSortie对象 dim sort Set sort=Server.CreateObject("Aspsortie.Pro") aspSortie对象具有那些属性? aspsortie对象具有三个属性,但只有一个属性对我们有用 ⒈ Error 返回在调用sort方法期间产生的任何错误。 ⒉ Expires 如果你使用的是评估版,这个属性显示该组件使用到期的日期 ⒊ RegisteredTo 如果你登记了该组件,则返回你登记的名字,否则,就返回“Evaluation”。 Aspsortie对象具有哪些方法? 很庆幸,只有一个方法。 方法:Sort 语法:aspsortie.Sort(intDirection, intFlags, array) 参数:intDirection-排序方向,0是增序,1是降序。intFlags-文档中没有说明,所以我也不知道,取默认值0。Array-要排序的数组。 一个完整的例子 本人天资愚钝,写这段代码整整用了三天三夜,可能还有不少错误,敬请指正! Dim Sort Set Sort=Server.CreateObject("AspSortie.Pro") Dim varArray(1 to 5) varArray(1)="Microsoft Visual Basic" varArray(2)="IBM VisualAge for Java" varArray(3)="Borland Delphi" varArray(4)="Borland Jbuilder" vararray(5)="My Software" response.write "未排序" & "<br>" for I=1 to 5 Respnse.Write varArray(I) & "<br>" next response.write "排序-增序" & "<br>" call sort.sort(0,0,varArray) for I=1 to 5 Respnse.Write varArray(I) & "<br>" next response.write "排序-降序" & "<br>" call sort.sort(1,0,varArray) for I=1 to 5 Respnse.Write varArray(I) & "<br>" next Set Sort=nothing |
温馨提示:喜欢本站的话,请收藏一下本站!