|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。函数|排序|数组FunctionSort(ary)
DimKeepChecking,I,FirstValue,SecondValue
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
dimID,ArrayID,Myarray,M
ID="55,48,78,10,90"
ArrayID=split(ID,",")
Myarray=Sort(ArrayID)
排序测试
ForM=0ToUbound(Myarray)
Response.WriteMyarray(M)&"<br>"&vbCRLF
Next
固然也能够用上面的,
DimMyarray
Myarray=Array(12,10,25,78,45)
Myarray=Sort(ArrayID)
排序测试
ForM=0ToUbound(Myarray)
Response.WriteMyarray(M)&"<br>"&vbCRLF
Next
排序测试国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 |
|