ASP网站制作之经常使用的几种asp排序办法先容
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；排序<%DimaData
aData=Array(3,2,4,1,6,0)
CallResponseArray(aData,"本来按次")
CallResponseArray(SelectSort(aData),"选择排序")
CallResponseArray(QuickSort(aData),"疾速排序")
CallResponseArray(InsertSort(aData),"拔出排序")
CallResponseArray(BubbleSort(aData),"冒泡排序")
选择排序
FunctionSelectSort(a_Data)
Dimi,j,k
Dimbound,t
bound=UBound(a_Data)
Fori=0Tobound-1
k=i
Forj=i+1Tobound
Ifa_Data(k)>a_Data(j)Then
k=j
EndIf
Next
t=a_Data(i)
a_Data(i)=a_Data(k)
a_Data(k)=t
Next
SelectSort=a_Data
EndFunction
疾速排序
FunctionQuickSort(a_Data)
Dimi,j
Dimbound,t
bound=UBound(a_Data)
Fori=0Tobound-1
Forj=i+1Tobound
Ifa_Data(i)>a_Data(j)Then
t=a_Data(i)
a_Data(i)=a_Data(j)
a_Data(j)=t
EndIf
Next
Next
QuickSort=a_Data
EndFunction
冒泡排序
FunctionBubbleSort(a_Data)
Dimbound
bound=UBound(a_Data)
DimbSorted,i,t
bSorted=False
DoWhilebound>0AndbSorted=False
bSorted=True
Fori=0Tobound-1
Ifa_Data(i)>a_Data(i+1)Then
t=a_Data(i)
a_Data(i)=a_Data(i+1)
a_Data(i+1)=t
bSorted=False
EndIf
Next
bound=bound-1
Loop
BubbleSort=a_Data
EndFunction
拔出排序
FunctionInsertSort(a_Data)
Dimbound
bound=UBound(a_Data)
Dimi,j,t
Fori=1Tobound
t=a_Data(i)
j=i
DoWhilet<a_Data(j-1)Andj>0
a_Data(j)=a_Data(j-1)
j=j-1
Loop
a_Data(j)=t
Next
InsertSort=a_Data
EndFunction
输入数组
SubResponseArray(a_Data,str)
Dims
s=""
Response.Write"<b>"&str&"：</b>"
Fori=0ToUBound(a_Data)
s=s&a_Data(i)&","
Next
s=Left(s,Len(s)-1)
Response.Writes
Response.Write"<hr>"
EndSub
%>
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。
页:
[1]