网上搜到的代码,千篇一律是这个
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
Sort = ary
End Function
存在错误。。。。。。
测试一下就知道
s="11,3,1"
s=sort(split(s,","))
for i=0 to ubound(s)
response.write s(i) & "<br>"
next
打印结果是
1
11
3
正确的function是:
function sort(ary)
ck=true
do Until ck = false
ck=false
For f = 0 to UBound(ary) -1
if clng(ary(f))>clng(ary(f+1)) then
v1=clng(ary(f))
v2=clng(ary(f+1))
ary(f)=v2
ary(f+1)=v1
ck=true
end if
next
loop
sort=ary
end function
就差在一个clng()
但好笑的是,有些数组,用那个错误的sort函数是可以排正确的。
修改正确的asp冒泡排序
2019-09-29 11:12asp教程网 ASP教程
修改正确的asp冒泡排序
延伸 · 阅读
- 2019-09-29asp 的中文分词
- 2019-09-29asp下用实现模板加载的几种方法总结
- 2019-09-29asp下利用fso实现文件夹或文件移动改名等操作函
- 2019-09-29asp cint clng的范围与防止cint和clng的溢出解决方法
- 2019-09-29asp防范跨站点脚本攻击的方法
- 2019-09-29asp下实现字符串的补充fill()
精彩推荐
- ASP教程
隐藏ASP木马后门的两种方法
下面的两种方法可以将你的asp木马隐藏,大家可以测试下 ...
- ASP教程
ASP 使用Filter函数来检索数组的实现代码
在VBScript中有Filter这个函数可以用来对数组进行过滤,并返回原数组的一个子集数组。...
- ASP教程
ASP使用MySQL数据库的方法
本文主要介绍的是ASP使用MySQL数据库的攻略,希望对你有帮助,一起来看。...
- ASP教程
ASP,vbs正则轮翻在文章段落后加上网址等内容
ASP,vbs正则轮翻在文章段落后加上网址,网站名称,网站介绍等内容 ...
- ASP教程
asp中的rs.open与conn.execute的区别说明
不管是rs.open sql,conn还是conn.execute(sql) [这里的SQL是delete,update,insert]执行以后都会返回一个关闭的记录集...
- ASP教程
JavaScript实现带自动提示的文本框效果代码
JavaScript 制作带自动提示的文本框,需要的朋友可以参考下。...
- ASP教程
asp HTTP 500错误 常见问题分析
这个问题一般错误不是很大,大家可以参考下面的步骤解决。...
- ASP教程
ASP程序中使用断开的数据记录集的代码
我们在使用ASP 内置的ADO组件进行数据库编程时,通常是在脚本的开头打开一个连接,并在脚本的最后关闭它,但是就较大脚本而言,在多数情况下连接打开的时间要比它需要打开的时间长得多。...