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"
随机推荐
- .net框架(framework)版本不匹配的解决方法
- C# 生成高质量缩略图程序—终极算法
- 基于openstack安装部署私有云详细图文教程
- javascript中Date对象的getDay方法使用指南
- javascript中的绑定与解绑函数应用示例
- asp.net 下拉列表无级数据绑定实现代码
- PHP中Http协议post请求参数
- WINDOWS下php5.2.4+mysql6.0+apache2.2.4+ZendOptimizer-3.3.0配置
- 基于Python3 逗号代码 和 字符图网格(详谈)
- Vue.JS入门教程之自定义指令
- Spring使用支付宝扫码支付
- md9.exe scvhost.exe 只木马下载者查杀方法
- 修改Linux主机名的方法
- 解析预加载显示图片艺术
- 对象不支持indexOf属性或方法的解决方法(必看)
- js获取电脑分辨率的思路及操作
- Javascript实现的Map集合工具类完整实例
- 浅析C#中文件路径的操作
- C++输入输出注意事项总结
- Android adb logcat 命令查看日志详细介绍