asp数字或者字符排序函数代码
'排序
Function Sort1(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
Sort1 = ary
End Function
Dim arr
arr = Array("a","c","b")
arr = Sort1(arr)
For i=0 to ubound(arr)
Response.Write(arr(i)&"<br />")
Next
相关推荐
-
asp数字或者字符排序函数代码
复制代码 代码如下: '排序 Function Sort1(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
-
asp下过滤非法的SQL字符的函数代码
复制代码 代码如下: '************************************************** '函数名:R '作 用:过滤非法的SQL字符 '参 数:strChar-----要过滤的字符 '返回值:过滤后的字符 '************************************************** Public Function R(strChar) If strChar = "" Or IsNull(strChar) Then R =
-
asp 通用修改和增加函数代码
接下来我利用一点空余时间发一个函数里面包含和添加和删除功能.实验的架构可以使用IIS.5WEB服务器ACCESS数据库.这个我其实不用说的很详细了,因为大家都应该知道的.我就直接把函数贴出来.大家只要稍微修改即可使用. 复制代码 代码如下: <% sub AdminEdit() dim Action,rsCheckAdd,rs,sql Action=request.QueryString("Action") if Action="SaveEdit" then
-
PHP UTF8中文字符截断函数代码
php中英文混合字符截断不乱码函数(utf8) 复制代码 代码如下: //utf8格式下的中文字符截断//$sourcestr 是要处理的字符串//$cutlength 为截取的长度(即字数)//$addstr 超过长度时在尾处加上的字符function cut_str($sourcestr, $cutlength, $addstr='...'){ $returnstr=''; $i=0; $n=0; $str_length=strlen($sourcestr);//字符串的字节数 while
-
asp代理采集的核心函数代码
Function ProxyPage(url) Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP.5.0") With Retrieval .SetProxy 2 , "255.0.0.0:80" '代理ip:代理端口 .Open "Get", url, False, "", "" .setRequestHeader "Referer"
-
asp.ne去除html的函数代码
复制代码 代码如下: /// <summary> /// 过滤字符串中的html代码 /// </summary> /// <param name="Str"></param> /// <returns>返回过滤之后的字符串</returns> public static string LostHTML(string Str) { string Re_Str = ""; if (Str != n
-
asp下实现IP限制函数代码
IP限制函数 大家如果还有好的建议算法,就联系我!!:) "****************************** "Function CheckIp(cInput_Ip,cBound_Ip) "Created by qqdao, qqdao@263.net 2001/11/28 "说明:首先需要根据;号循环,然后判断是否含有"-",如果有则进行拆分处理,最后判断是否在范围内 "参数: cInput_Ip,代检查的ip "
-
ASP实现GB2312字符与区位码的相互转换的代码
研究编码,得知GB2312编码与区位码的关系,尝试之后,得此程序. 搜索,似乎没人写,故发此地. 原创首发: http://bbs.blueidea.com http://mytju.com/classcode/ 任意转载,任意使用. 1.简述 (1)GB2312标准的定义,其实就是区位码. 共94行,94列,行就是区号,列就是位号. 如"啊"字区号为16,位号为01,它的区位码就是1601. (2)每个字符由区号+位号组成,共占两个字节. 每个字节都是01-94,与通信控制符0-31
-
php中数字、字符与对象判断函数用法实例
本文实例讲述了php中数字.字符与对象判断函数用法.分享给大家供大家参考.具体分析如下: 在php判断数字,字符,对象,数组等包括有参见 is_bool().is_int().is_integer().is_float().is_real().is_object() 和 is_array()这些函数了,不知道你知道多少呢. 1. 双精度数判断:is_double is_double -- is_float() 的别名 描述:此函数是 is_float() 的别名函数,代码如下: 复制代码 代码如
-
js对数组中的数字从小到大排序实现代码
例子 1 In this example we will create an array and sort it alphabetically: var arr = new Array(6) arr[0] = "Jani" arr[1] = "Hege" arr[2] = "Stale" arr[3] = "Kai Jim" arr[4] = "Borge" arr[5] = "Tove"
随机推荐
- 详解如何在NodeJS项目中优雅的使用ES6
- oracle,mysql,SqlServer三种数据库的分页查询的实例
- Oracle EBS工具选项:关闭其他表单修改方法
- 详解Python 序列化Serialize 和 反序列化Deserialize
- JS拉起或下载app的实现代码
- php生成缩略图填充白边(等比缩略图方案)
- 基于PHP代码实现中奖概率算法可用于刮刮卡、大转盘等抽奖算法
- 简单谈谈php延迟静态绑定
- C++高级程序员成长之路
- 深入理解jQuery()方法的构建原理
- ES6数组的扩展详解
- 多中语言实现判断客户访问用得是那个域名 然后转到对应的目录
- asp与js的类型转换函数介绍
- JDBCTM 指南:入门
- VBS获取重定向的URL的代码
- php生成缩略图示例代码分享(使用gd库实现)
- CentOS下PHP安装Oracle扩展
- js通过地址栏给action传值(中文乱码全是问号)
- 基于Unit PNG Fix.js有时候在ie6下不正常的解决办法
- 颜色变换 像字符逐字输入的欢迎词