Discuz教程网

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › asp数字或者字符排序函数代码
返回列表 发新帖

asp数字或者字符排序函数代码

[复制链接]
authicon dly 发表于 2011-9-10 21:42:19 | 显示全部楼层 |阅读模式
  1. '排序
  2. Function Sort1(ary)
  3. Dim KeepChecking,I,FirstValue,SecondValue
  4. KeepChecking = TRUE
  5. Do Until KeepChecking = FALSE
  6. KeepChecking = FALSE
  7. For I = 0 to UBound(ary)
  8. If I = UBound(ary) Then Exit For
  9. If ary(I) > ary(I+1) Then
  10. FirstValue = ary(I)
  11. SecondValue = ary(I+1)
  12. ary(I) = SecondValue
  13. ary(I+1) = FirstValue
  14. KeepChecking = TRUE
  15. End If
  16. Next
  17. Loop
  18. Sort1 = ary
  19. End Function

  21. Dim arr
  22. arr = Array("a","c","b")
  23. arr = Sort1(arr)
  24. For i=0 to ubound(arr)
  25. Response.Write(arr(i)&"<br />")
  26. Next
复制代码



上一篇：asp中通过addnew添加内容后取得当前文章的自递增ID的方法
下一篇：ASP常见错误详解及解决方案小结
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-5-2 11:23

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表