asp下实现 重新排序数字数组的代码

<%
'******************************
'函数：NewOrder(ArrStr)
'参数：Rstr,以逗号做分隔的数字数组
'作者：阿里西西
'日期：2007/7/13
'描述：重排序数字数组
'示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>
'******************************
Function NewOrder(ArrStr)
For i = 0 To Ubound(Split(ArrStr,","))
 If n > 0 Then
  ArrStr = Replace(ArrStr,n,0)
 End If
 sp = split(ArrStr,",")
 n = 0
 For j = 0 To ubound(sp)
  If int(sp(j)) > int(n) Then
   n = sp(j)
  End If
 Next
 NewOrder = NewOrder & replace(n,0,"") & " "
Next
NewOrder = NewOrder
End Function 
%>
对数组进行重新排序


代码如下:

<%
'******************************
'函数：NewOrder(sz)
'参数：Rstr,以逗号做分隔的数字数组
'作者：阿里西西
'日期：2007/7/13
'描述：对数组进行重新排序
'示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>
'******************************
Function NewOrder(sz)
Dim ali,icount,i,ii,j,itemp
ali=split(sz,",")
icount=UBound(ali)
For i=0 To icount
 For j=icount - 1 To i Step -1
  If j+1 <= UBound(ali) Then
   If int(ali(j))<int(ali(j+1)) Then
    itemp=ali(j)
    ali(j)=ali(j+1)
    ali(j+1)=itemp
   End If
  End If
 Next
Next
For ii=0 to Ubound(ali)
 If ii = Ubound(ali) Then
  NewOrder = NewOrder & ali(ii)
 Else
  NewOrder = NewOrder & ali(ii) & ","
 End If
Next
End Function
%>

赞 (0)

相关推荐

  • asp下实现 重新排序数字数组的代码

    <% '****************************** '函数:NewOrder(ArrStr) '参数:Rstr,以逗号做分隔的数字数组 '作者:阿里西西 '日期:2007/7/13 '描述:重排序数字数组 '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(ArrStr) For i = 0 To Ubou

  • asp下用replace非正则实现代码运行功能的代码

    今天更新了一下博客的代码运行功能,因为原来的写得不够完善,如果想在博客里插入多个可运行的代码,那就会--呃屁.关于replace函数,js中只是替换从起始位置的第一个指定字串,而vbs则是替换所有的指定字串,因此如果想要用vbs一个一个替换,那就得绕个弯子了,写个函数就行了,顺便,把写完的这个函数上传了,这下可以在一个日志里放多个代码运行演示了! 感冒了,写完函数就乖乖去睡觉,今天过得真是辛苦,有种快要死掉的感觉...鼻子里塞着纸团,因为鼻涕止不住地流,呜 替换函数的代码如下: function

  • ASP下检测图片木马的函数代码

    木马原理:入侵者使用诸如ASP图片木马生成器之类的工具将一张正常的图片与一个ASP木马文件合并成一个图片文件(即将对网站有害的 ASP代码插在图片编码之后,虽然图片仍然可以正常显示,但是文件内容和尺寸已被改变),然后通过网站提供的文件上传功能上传这一张"合 '法的"图片,进而实现了上传ASP木马的目的. ' 防范方法:因为这种木马是图片与木马的二合一,所以需要在上传图片前检查文件内容,若文件内容不合法(即包含有恶意代码在里面), '则禁止上传,从而堵住了木马攻击的源头,这是木马攻击的第

  • asp 下产生任意位数随机密码的代码

    <% '****************************** '函数:MakePassword(byval maxlen) '参数:maxlen,要生成的密码位数长度 '作者:阿里西西 '日期:2007/7/12 '描述:产生任意位数随机密码 '示例:<%=MakePassword(8)%>  '****************************** function MakePassword(byval maxlen)  dim strnewpass  dim whats

  • asp下根据标题生成关键字的代码

    'Function CreateKeyWords(KeyWords) '关键字生成系统 Dim i,L,TempStr KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| | |,|.|.|!|?|:|"|"|［|］|-|-|(|)|-", "") L=Len(KeyWords_Temp) For i=1 To L-1 TempStr=TempStr & "," &am

  • asp下替换非数字为空的正则

    function replacestr(str) dim re set re=new regexp re.ignorecase=true re.global=true re.pattern="\D" str=re.replace(str,"") replacestr=str set re=nothing end function

  • asp下实现UrlEncoding转换编码的代码

    '================================================== '函数名:UrlEncoding '作  用:转换编码 '================================================== Function UrlEncoding(DataStr)     Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8     StrReturn = ""     For Si = 

  • asp下使用数组存放数据的代码

    asp用客户端数组存放数据,这种应用我已经见过很多.但最近在研究几套流量交换联盟系统时,这种技术才引起了我的注意. 下面我讲讲如何运用,先给出个没有结合ASP,就单纯适用javascript的例子. 1.js 复制代码 代码如下: var a = new Array();  var temp = "<table>";  a[0] = new Array(1,"阿会楠","男");   a[1] = new Array(2,"

  • ASP 数字分页效果代码

    ASP 数字分页效果代码

    最近网站改版正好发现原来的分页不带数字的,只有首页 上页 下页 末页 然后是select的跳转,都是以前比较流行的,而现在比较流行的是数字分页在中间,正好研究并分享下,需要的朋友可以参考下 效果: 国外的核心代码: 复制代码 代码如下: <% 'digg style pagination script in asp.. written by Moazam... http://www.moazam.com/2007/03/30/asp-digg-style-pagination-script/ f

  • asp.net(c#) 使用Rex正则来生成字符串数组的代码

    看这儿.如果你熟悉正则表达式 ,让我们进入正题.这个TOOL的名称叫Regular Expression Exploration. 你可以从这儿下载 .目前的版本是1.0 release. Rex是一个命令行工具, 具体用法可以在CMD下执行便可以看到用法,这个是.net的程序.我们可以引用它,然后用下面的Code来生成我们想要的字符串数组. 复制代码 代码如下: /// <summary> /// Generates the test. /// </summary> /// &l

随机推荐