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

服務(wù)器之家:專注于服務(wù)器技術(shù)及軟件下載分享
分類導(dǎo)航

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

服務(wù)器之家 - 編程語言 - ASP教程 - asp下實現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼

asp下實現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼

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

asp下實現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼

  1. <%  
  2. '******************************  
  3. '函數(shù):NewOrder(ArrStr)  
  4. '參數(shù):Rstr,以逗號做分隔的數(shù)字?jǐn)?shù)組  
  5. '作者:阿里西西  
  6. '日期:2007/7/13  
  7. '描述:重排序數(shù)字?jǐn)?shù)組  
  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. %> 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: 日本公与妇中文在线 | 欧美国产日本精品一区二区三区 | 色偷偷91久久综合噜噜噜 | 欧美日韩中文字幕一区二区高清 | 动漫美女人物被黄漫小说 | 亚洲国产精品热久久 | 91制片厂制作传媒破解版免费 | 草草草视频在线观看 | 99热在线获取最新地址 | 国产精品一区二区三区免费 | 久久九九有精品国产23百花影院 | 亚洲男人天堂2023 | 亚洲精品日韩专区在线观看 | 免费特黄一级欧美大片在线看 | 色综七七久久成人影 | 污污在线免费观看 | 天天爽天天 | 日韩欧美推理片免费在线播放 | 国产图片一区 | 精品一区二区三区五区六区七区 | 国产一久久香蕉国产线看观看 | 波多野结衣一区免费作品 | 国产免费不卡视频 | 国产精品亚洲一区二区久久 | 午夜精品久久久内射近拍高清 | 国产精品视频第一页 | 美国女网址www呦女 美国复古性经典xxxxx | 欧美艳星kagneyiynn高清 | 嗯啊视频在线 | 风间由美一区二区播放合集 | 亚洲国产精久久久久久久 | 亚洲色图15p| 成人嗯啊视频在线观看 | 亚洲第一区二区快射影院 | 亚洲国产精品自在现线让你爽 | 四虎永久免费地址ww417 | 网友自拍咪咪爱 | 日本久久影视 | 12-14娇小videos| 国产精品一区二区三区久久 | 欧美肥b |