asp教程：asp插入排序法

<%
function insertSort(byval b)
  '插入排序法
  for i=1 to ubound(b)
	  j=i
	  key=b(i)			
	  while(j>0)
		  if key < b(j-1) then			    
			  t=b(j-1)
			  b(j-1)=key
			  b(j)=t				
			  key=b(j-1)			
		  end if
		  j=j-1
	  wend		
  next
  insertSort = b
end function

a=array(49,38,65,97,76,13,27)  
response.write "初始顺序： "
for i=0 to ubound(a)
  response.write a(i)&" "
next
response.write "<hr>" 

a = insertSort(a)

response.write "最终排序结果："
for i=0 to ubound(a)
  response.write a(i)&" "
next 
%>

这里面的insertSort(byval b)函数就是插入排序法的具体写法。

原创文章，转载请注明来源:asp编程网(www.aspbc.com)，谢谢。