后台文章筛选默第一个是默认id，想改成添加时间降序 第五个是添加时间降序，如何修改，谢谢

Dim OrderArray:OrderArray=array("默认id↓|id|1","文档id↑|id|0","点击数↓|hits|1","点击数↑|hits|0","更新时间↓|adddate|1","更新时间↑|adddate|0","手工排序号↓|orderid|1","手工排序号↑|orderid|0")
    dim t:t=ubound(OrderArray)
    If ChannelID=5 Then
     redim preserve OrderArray(t+6)
     OrderArray(t+1)="库存量↓|TotalNum|1" : OrderArray(t+2)="库存量↑|TotalNum|0"
     OrderArray(t+3)="市场价↓|Price|1": OrderArray(t+4)="市场价↑|Price|0"
     OrderArray(t+5)="会员价↓|Price_Member|1" :OrderArray(t+6)="会员价↑|Price_Member|0"
   ElseIf Cint(KS.C_S(ChannelID,6))=3 Then
     redim preserve OrderArray(t+6)
     OrderArray(t+1)="日下载↓|HitsByDay|1" : OrderArray(t+2)="日下载↑|HitsByDay|0"
     OrderArray(t+3)="周下载↓|HitsByWeek|1" : OrderArray(t+4)="周下载↑|HitsByWeek|0"
     OrderArray(t+5)="月下载↓|HitsByMonth|1" : OrderArray(t+6)="月下载↑|HitsByMonth|0"
   End If
   
   .echo " <selectlocation.href=this.value""><option value='KS.ItemInfo.asp?" & KS.QueryParam("o") & "&o=0'>-排序-</option>"
    for i=0 to ubound(OrderArray)
      dim orderarr:orderarr=split(OrderArray(i),"|")
    if O=i then
   .echo "<option selected value='KS.ItemInfo.asp?" & KS.QueryParam("o") & "&o=" & i &"'>" & orderarr(0) & "</option>"
    else
   .echo "<option value='KS.ItemInfo.asp?" & KS.QueryParam("o") & "&o=" & i &"'>" & orderarr(0) & "</option>"
    end if
    next
   .echo "</select>"

默认id降序改为更新时间降序  怎么改  谢谢

位置对换一下即可，把时间放在数组第一位

   Dim OrderArray:OrderArray=array("更新时间↓|adddate|1","默认id↓|id|1","文档id↑|id|0","点击数↓|hits|1","点击数↑|hits|0","更新时间↑|adddate|0","手工排序号↓|orderid|1","手工排序号↑|orderid|0")

好的 谢谢