logo|长春|吉林|制作|建设|开发|网站|网页|数据库|采集|修复|ASP|PHP|MUI|.NET|DW|OA|IIS|SEO|HTML|jQuery|API|JLASP

哈达波斯王|网站建设|网页制作|网页设计【官方网站】

ASP

ASP参数Ascii转换函数

ASP  2020年03月14日 09:22:22  哈达波斯王  

倒叙循环。拿取第0个。遍历1后面的进行匹配,最大的放在数组最后。用交换位置的形式

第一个循环获取第0个值和0的这个位置和后面进行循环匹配

进行对比从1开始到最大数组总数

判断第1个数组 是否大于第0个数组 真的情况重新定义第0个数组。也就是让0数组是这组数据中最大的ascii

第一组匹配完毕。得到了arry这组数据中最大的 ks 也就是 minx 也就是说这组数据中 最大的ascii的位置

然后判断 现在这个数据是不是在最后。如果不在。把他放置最后。

最大的临时存放下,把当前最后一位的替换到最大的位置也就是交换下位置也就是 arry的最后一组数据。改变成上面循环的最大一组数据

位置替换下。用临时变量粗存下就行 交换完毕。之后进行第二次循环

也就是 取 第0个 和后面进行匹配。最大往后放。依此类推。

Function toAsciiStr(arry)
	dim zongshu,temp
	zongshu=ubound(arry)
	For k=zongshu to 0 step-1
			min=arry(0)
			minx=0
		for ks=1 to k
			if arry(ks)>min then 
				min=arry(ks)
				minx=ks
			end if
		next
		if minx <> k then
			temp=arry(minx)
			arry(minx)=arry(k)'
			arry(k)=temp
		end if
	next
	toAsciiStr=arry
End Function
'调用方式
sing=array("b=2","c=3","a=1","d=4","aa=2")
a=toAsciiStr()
response.Write(join(a,"&"))


网站首页 | 最新公告 | 漏洞修补 | 网站模板 | 知识文档 | 联系我们
Copyright © 2015 jlasp.com All Rights Reserved.
哈达波斯王|网站建设|网页制作|网页设计【官方网站】 版权所有
地址:吉林省吉林市昌邑区 联系QQ:383612004 联系人:董先生
未经本站授权,禁止复制或建立镜像
 ICP备案号:吉ICP备15000891号-1