Asp数组冒泡排序函数

函数|排序|数组

FunctionSort(ary)
DimKeepChecking,I,FirstValue,SecondValue
 KeepChecking=TRUE
DoUntilKeepChecking=FALSE
 KeepChecking=FALSE
 ForI=0toUBound(ary)
 IfI=UBound(ary)ThenExitFor
  Ifary(I)>ary(I+1)Then
   FirstValue=ary(I)
   SecondValue=ary(I+1)
   ary(I)=SecondValue
   ary(I+1)=FirstValue
   KeepChecking=TRUE
  EndIf
 Next
Loop
 Sort=ary
EndFunction
 
dimID,ArrayID,Myarray,M
ID="55,48,78,10,90"
ArrayID=split(ID,",")
Myarray=Sort(ArrayID)
'排序测试
ForM=0ToUbound(Myarray)
     Response.WriteMyarray(M)&"<br>"&vbCRLF
Next
 
'当然也可以用下面的，
DimMyarray
Myarray=Array(12,10,25,78,45)
Myarray=Sort(ArrayID)
'排序测试
ForM=0ToUbound(Myarray)
     Response.WriteMyarray(M)&"<br>"&vbCRLF
Next
'排序测试

时间： 2024-04-19 13:06:38

Asp数组冒泡排序函数的相关文章

ASP中的ArrayList类[数组常用函数]

ASP中的ArrayList类[数组常用函数] 使用方法如下:  程序代码 <% dim arr : set arr=new ArrayList arr.add "a" : arr.add "b" : arr.add "c" Response.Write arr.count & "<br>" for i=0 to arr.count-1     Response.Write arr.item(i) &

ASP中Split 函数的一例

函数 本例是一个数据库查询的例子,通过Split函数对查询字段进行了切割.用于想灵活控制查询或开发更深层应用的一个例子. <%     Dim Conn     Dim Rs     Dim j     Dim i     Set Conn = Server.CreateObject("adodb.connection")     Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & S

asp之字符串函数示例

函数|示例|字符串 asp之字符串函数示例用字符串函数对字符串进行截头去尾.大小写替换等操作. 函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目,或是存储一变量所需的字节数. Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开

asp之数学函数

函数 asp之数学函数常用的数学函数: 函数 语法 功能 Abs Abs(num) 返回一个数的绝对值 Sqr Squ(num) 返回一个数的平方根 Sin Sin(num) 返回角度的正弦值 Cos Cos(num) 返回角度的余弦值 Tan Tan(num) 返回角度的正切值 Atn Atn(num) 返回角度的反正切值 Log Log(num) 返回一个数的对数值 Int Int(num) 取整函数,返回小于等于number的第一个整数 FormatNumber FormatNumber(

Asp.NET常用函数 (VB.net)

asp.net|函数 Asp.NET常用函数 (新手必读!)Ucase(string) 将字符串转换为大写. Val(string) 将代表数字的字符串转换为数值型态,若字符串中含有非数字的内容则会将其去除后,合并为一数字. Weekday(date) 取的参数中的日期是一个星期的第几天,星期天为1.星期一为2.星期二为3 依此类推. WeekDayName(number) 依接收的参数取得星期的名称,可接收的参数为1 到7,星期天为1.星期一为2.星期二为3 依此类推. Split(expre

ASP 中Split 函数的实例

  大家有碰到过要想取一字符串里的某些值而无从下手?有没有觉得看书或教材对split的写法糊里糊涂--如果有此疑问的话,请看下面我对例子的解释,相信您会对这个有一定的了解. 我先介绍一下Split函数的用法: 返回值数组 = Split("字符串","分割符") 假设变量strURL保存着URL值,如strURL = "ftp://username:password@server";>ftp://username:password@serv

asp之字符串函数示例_应用技巧

asp之字符串函数示例用字符串函数对字符串进行截头去尾.大小写替换等操作. 函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目,或是存储一变量所需的字节数. Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开始取得length长

asp数组的使用介绍_应用技巧

定义简单数组 有两种方法在asp中定义和初始化数组,让我们看看每种的例子: 方法一: MyArray = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct", "Nov","Dec") 数组

ASP 中 Split 函数的实例分析_ASP基础

asp下使用split实现数组操作的方法ASP 中 Split 函数的实例 大家有碰到过要想取一字符串里的某些值而无从下手?有没有觉得看书或教材对split的写法糊里糊涂--如果有此疑问的话,请看下面我对例子的解释,相信您会对这个有一定的了解.  我先介绍一下Split函数的用法: 返回值数组 = Split("字符串","分割符") 假设变量strURL保存着URL值,如strURL = "ftp://username:password@server&q