日期:2009-10-12 浏览次数:20213次

    老人家说的好,小孩子做事要有始有终。既然已经翻译了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