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"
随机推荐
- jquery中获取id值方法小结
- 支付宝 接口开发帮助(asp,php,asp.net,jsp)
- 正则表达式高级技巧及实例详解 笨活儿
- java清除html转义字符
- PHP5.3以上版本安装ZendOptimizer扩展
- JavaScript的==运算详解
- MongoDB修改、删除文档的域属性实例
- 如何修改yii2.0自带的user表为其它的表
- jQuery关于导航条背景切换效果实现示例
- js jquery获取随机生成id的服务器控件的三种方法
- 微信小程序使用navigateTo数据传递的实例
- Vue.js与 ASP.NET Core 服务端渲染功能整合
- C#图像识别 微信跳一跳机器人
- React-Router如何进行页面权限管理的方法
- go for range坑和闭包坑的分析
- Vue实现自定义下拉菜单功能
- mysql 8.0.15 winx64解压版图文安装教程
- mysql一对多关联查询分页错误问题的解决方法
- Java实现在线语音识别
- python实现点对点聊天程序