|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!数组数据排序的程序例子
<%
***buildexamplearraytoshowthatthisthingcansort
***alpha-numericarrays
DimMyArray
MyArray=Array(1,5,"shawn","says","hello"2m骺hC123,12,98)
MyArray=Sort(MyArray)
ForI=0toUbound(MyArray)
Response.WriteMyArray(I)&"<br>"&vbCRLF
Next
Response.End
***SorterFunctionthattakesanarrayandsortsit
FunctionSort(ary)
KeepChecking=TRUE
DoUntilKeepChecking=FALSE
KeepChecking=FALSE
ForI=0toUBound(ary)
IfI=UBound(ary)ThenExitFor
Ifary(I)>ary(I+1)Then
FirstValue=ary(I)
SecondValue=ary(I+1)
ary(I)=SecondValue
ary(I+1)=FirstValue
KeepChecking=TRUE
EndIf
Next
Loop
Sort=ary
EndFunction
%>
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|