一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

服務器之家:專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - ASP教程 - asp下實現 重新排序數字數組的代碼

asp下實現 重新排序數字數組的代碼

2019-10-12 10:48阿里西西 ASP教程

asp下實現 重新排序數字數組的代碼

  1. <%  
  2. '******************************  
  3. '函數:NewOrder(ArrStr)  
  4. '參數:Rstr,以逗號做分隔的數字數組  
  5. '作者:阿里西西  
  6. '日期:2007/7/13  
  7. '描述:重排序數字數組  
  8. '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%>  
  9. '******************************  
  10. Function NewOrder(ArrStr)  
  11. For i = 0 To Ubound(Split(ArrStr,","))  
  12.  If n > 0 Then  
  13.   ArrStr = Replace(ArrStr,n,0)  
  14.  End If  
  15.  sp = split(ArrStr,",")  
  16.  n = 0  
  17.  For j = 0 To ubound(sp)  
  18.   If int(sp(j)) > int(n) Then  
  19.    n = sp(j)  
  20.   End If  
  21.  Next  
  22.  NewOrder = NewOrder & replace(n,0,"") & " "  
  23. Next  
  24. NewOrder = NewOrder  
  25. End Function   
  26. %> 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: 亚洲成色www久久网站 | 国产三级跑 | 国产日韩一区二区三区 | 亚洲第一综合天堂另类专 | 好大好猛好爽好深视频免费 | 小早川怜子视频在线观看 | 国内精品自产拍在线观看91 | 菠萝视频污 | 6080窝窝理论 | 国产亚洲精品美女2020久久 | 亚洲欧美日韩中文字幕网址 | 精品久久免费观看 | 国产午夜精品一区二区三区 | 农夫69小说恋老妇小说 | 欧美日韩综合网在线观看 | 亚洲欧美国产精品久久久 | 美女被爆操 | 亚洲 欧美 国产 综合首页 | 国产绳艺在线播放 | 无人在线观看免费高清视频播放 | 亚洲精品成人AV在线观看爽翻 | 脱女学小内内摸出水网站免费 | 国产日韩一区二区 | 拔插拔插8x8x海外华人免费视频 | 好大好爽好硬我要喷水了 | 国产高清在线精品一区 | 99热在线只有精品 | 青青青国产手机在线播放 | 国产一级真人毛爱做毛片 | 扒开斗罗美女了的胸罩和内裤漫画 | 男女激情视频1000辣妞范 | 手机看片国产免费现在观看 | 久久免费看少妇级毛片蜜臀 | 欧美一卡2卡3卡四卡海外精品 | 欧美日日操 | 亚洲性爱区 | 亚洲精品高清中文字幕完整版 | 我的男友是消防员在线观看 | 亚洲乱码一区二区三区国产精品 | 国产福利片在线 易阳 | 国产欧美日韩综合二区三区 |