<%
'*******************************
'기능 : Neworder (Arrstr)
'인수 : rstr, 쉼표로 구분 된 숫자 배열
'저자 : Alixi
'날짜 : 2007/7/13
'설명 : 숫자 배열을 재정렬합니다
'예 : <%= neworder ( "34,53,13,22,38,86,111,23,65")%>
'*******************************
functionNeworder (arrstr)
fori = 0toubound (split (arrstr, ","))
ifn> 0then
arrstr = replace (arrstr, n, 0)
endif
sp = split (arrstr ",")
n = 0
forj = 0toubound (sp)
ifint (sp (j))> int (n) 그런 다음
n = sp (J)
endif
다음
neworder = neworder & Replace (n, 0, "") & ""
다음
neworder = neworder
최종 기능 장애
%>
배열을 재정렬하십시오
코드 사본은 다음과 같습니다.
<%
'*******************************
'기능 : Neworder (SZ)
'인수 : rstr, 쉼표로 구분 된 숫자 배열
'저자 : Alixi
'날짜 : 2007/7/13
'설명 : 배열을 재정렬하십시오
'예 : <%= neworder ( "34,53,13,22,38,86,111,23,65")%>
'*******************************
FunctionNeworder (SZ)
Dimali, Icount, I, II, J, Itemp
ali = split (sz, ",")
아이콘 = ubound (ali)
fori = 0toicode
forj = iquant-1toistep-1
ifj+1 <= ubound (ali)
ifint (ali (j)) <int (ali (j+1))
itemp = ali (j)
ali (j) = ali (j+1)
알리 (j+1) = itemp
endif
endif
다음
다음
forii = 0toubound (ali)
ifi = ubound (ali)
Neworder = Neworder & Ali (II)
또 다른
Neworder = Neworder & Ali (II) & ","
endif
다음
최종 기능 장애
%>