修改正确的asp冒泡排序
网上搜到的代码,千篇一律是这个
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冒泡排序
网上搜到的代码,千篇一律是这个 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
-
更正确的asp冒泡排序
网上搜到的代码,千篇一律是这个 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
-
修改服务器配置 让asp.net文件后缀名随心所欲
有的网站出于各种各样的原因,在IIS中修改了动态页面的默认后缀,asp时代就有人在服务器上修改配置,把html后缀的文件当作asp文件来解析:也就是说,asp程序(后缀为.asp)可以保存为一个.htm后缀的文件放到服务器上WEB目录下,而服务器照样将之当作asp程序来解释处理,生成结果.这样对访问者来说,还以为网站全是html页面,而且经常更新呢(感觉没什么必要是吗?错了,最起码的一个好处:搜索引擎可是优先收录html页面哦,这样的话站点将很容易被人在搜索引擎中搜索到) 服务器上修改解析asp
-
旁注-网站小助手旭方修改免杀asp版
<%@LANGUAGE="VBScript" CODEPAGE="936"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>旁注 - 网站小助手旭方修改免杀版</title> <style type="te
-
ASP得到文件的大小类型最后修改时间
要得到生成的HTML文件的最后修改时间,写了一个函数,有简单的判断. 实例: 2005-11-10 19:33:44 ASP 文件 6.83 KB 把下面文件另存为mofei.asp文件,运行即可,要FSO支持. <%Function fsofiledatemofei(sfile)'通过FSO得到文件的时间,类型,大小;sfile是文件名'制作:默飞'QQ:33224360'HOME: http://www.8vb.cnsfilere=""Set fso = Server.Cre
-
ASP.NET与ASP互通COOKIES的一点经验
在微软推出.NET并进行了大规模的推广普及之后,ASP.NET逐渐进入了信息化系统开发的主流.但与此同时,而用ASP开发的旧系统面则临被整合,这时,面临一个问题:ASP与ASP.NET互相整合时,其中文COOKIES信息无法被互通共享,当使用ASP.NET写入中文COOKIES信息后,使用ASP进行读取,读出来的却是乱码,而非中文. 后来通过查找资料,不停地实践,终于找到了问题的根源,中文COOKIES信息在ASP中无法被正确读取得原因为其中文编码格式不同. 开发项目Web.config配置文件
-
ASP与ASP.NET互通COOKIES的一点经验
在微软推出.NET并进行了大规模的推广普及之后,ASP.NET逐渐进入了信息化系统开发的主流.但与此同时,而用ASP开发的旧系统面则临被整合,这时,面临一个问题:ASP与ASP.NET互相整合时,其中文COOKIES信息无法被互通共享,当使用ASP.NET写入中文COOKIES信息后,使用ASP进行读取,读出来的却是乱码,而非中文. 后来通过查找资料,不停地实践,终于找到了问题的根源,中文COOKIES信息在ASP中无法被正确读取得原因为其中文编码格式不同. 开发项目Web.conf
-
在ASP.NET 2.0中操作数据之三十二:数据控件的嵌套
导言 除了静态HTML和数据绑定语法,template也可以包含Web控件和用户控件.这些控件的属性可以通过声明语法,数据绑定语法或在服务器端通过事件处理编程来设置. 通过将控件嵌入到template里,可以自定义界面,提升用户体验.例如,在在GridView控件中使用TemplateField 里,我们学习了如何通过在GridView的TemplateField里加一个Calendar控件来表示员工的雇佣日期.在给编辑和新增界面增加验证控件 和定制数据修改界面 里,我们学习了如何通过添加验证控
-
pjblog修改技巧汇总
一.日志回复框中的表情一行显示的个数,怎么修改? 标准的是8个,我想修改成每行5个,因为我上传的表情尺寸有点大,造成页面扩大,有点混乱 方法:用记事本打开common目录中的UBBconfig.asp文件/--查找下面的代码: 程序代码 if SmilieCount=8 then SmilieHtml=SmilieHtml+"</tr>":SmilieCount=0 看到8了吧?修改成5就可以了-- 二.为什么后台添加了友情连接,可是不在首页显示? 进入后台--[友情连接
-
ASP脚本的执行顺序详细说明
首先我们先来了解一下ASP页面执行的流程 1.IIS找到ASP文件,提交给ASP引擎(一般是ASP.DLL)处理. 2.引擎打开这个ASP文件,找出<%和%>之间的内容,当然还有<script runAt="server">和对应的</script>之间的内容,这些内容称为脚本块.只有脚本块里的内容被引擎解析,其他内容不管,作为没有意义的字符插在脚本块之间.有必要说明一下的是,其实被解析的内容还不止这些,<!--#include ***--&g
随机推荐
- IIS7.5 Error Code 0x8007007e HTTP 错误 500.19的解决方法
- SSH框架网上商城项目第14战之商城首页UI的设计
- java实现图片上加文字水印(SpringMVC + Jsp)
- perl比较两个文件字符串的实例代码
- 分享一下Python 开发者节省时间的10个方法
- php去除html标记的原生函数详解
- 深入学习Python中的装饰器使用
- Python functools模块学习总结
- bootstrap网格系统使用方法解析
- php查找指定目录下指定大小文件的方法
- 获取对象
- Javascript中判断变量是数组还是对象(array还是object)
- 组网不求人!搭建简易Linux局网服务器
- js原生实现FastClick事件的实例
- Nodejs中crypto模块的安全知识讲解
- webpack构建的详细流程探底
- 记一次python 内存泄漏问题及解决过程
- Java简单实现session保存到redis的方法示例
- 如何使用python把ppt转换成pdf
- a标签调用js的方法总结