Asp中的几种常见算法

<%
Dim B()
count1=10
ReDim B(count1)
For count=0 To count1
    Randomize   '初始化随机数生成器。
    B(count)= Int((1000 * Rnd) + 1)   ' 产生 1 到 6 之间的随机数。
   
 Next

'输出数组中的元素
Function ShowArray(Arr)
For Each i In Arr
response.write i&"<br>"
Next 
End Function
'=========================================
'冒泡排序
'Arr------等待排序的数组
'=========================================
Function BubbleSort(Arr)

    Dim PreVlue,NextValue,TempValue,SortFlag,Pass
    Dim StartTime,EndTime
    Pass=1
    SortFlag=False

    Do While Not SortFlag

    SortFlag=true
        For i=0 To UBound(Arr)-Pass

            If  Arr(i)<Arr(i+1) Then
                    
                TempValue=Arr(i)
                Arr(i)=Arr(i+1)
                Arr(i+1)=TempValue
                SortFlag=False
            End If 
        Next 
        Pass=Pass+1
    Loop
    EndTime=timer

'BubbleSort=Arr
End Function

'=========================================
'快速排序
'=========================================
Function QuickSort(vData, Low, Hi)
    
' ---------------------------------------------------------
' Test to see if an array was passed
' ---------------------------------------------------------
If Not IsArray(vData) Then Exit Function

' ---------------------------------------------------------
' Define local variables
'  ---------------------------------------------------------
  Dim lTmpLow 
  Dim lTmpHi 
  Dim lTmpMid 
  Dim vTempVal 
  Dim vTmpHold 
  
' ---------------------------------------------------------
' Initialize local variables
' ---------------------------------------------------------
  lTmpLow = Low
  lTmpHi = Hi

' ---------------------------------------------------------
' Leave if there is nothing to sort
' ---------------------------------------------------------
If Hi <= Low Then Exit Function

' ---------------------------------------------------------
' Find the middle to start comparing values
' ---------------------------------------------------------
  lTmpMid = (Low + Hi)  2
      
' ---------------------------------------------------------
' Move the item in the middle of the array to the
' temporary holding area as a point of reference while
' sorting.  This will change each time we make a recursive
' call to this routine.
' ---------------------------------------------------------
  vTempVal = vData(lTmpMid)
      
' ---------------------------------------------------------
' Loop until we eventually meet in the middle
' ---------------------------------------------------------
Do While (lTmpLow <= lTmpHi)

     Do While (vData(lTmpLow) < vTempVal And lTmpLow < Hi)
          lTmpLow = lTmpLow + 1
     Loop
     Do While (vTempVal < vData(lTmpHi) And lTmpHi > Low)
           lTmpHi = lTmpHi - 1
     Loop
            
     ' if the temp low end is less than or equal
     ' to the temp high end, then swap places
   If (lTmpLow <= lTmpHi) Then
         vTmpHold = vData(lTmpLow)      ' Move the Low value to Temp Hold
         vData(lTmpLow) = vData(lTmpHi)  ' Move the high value to the low
         vData(lTmpHi) = vTmpHold        ' move the Temp Hod to the High
         lTmpLow = lTmpLow + 1         ' Increment the temp low counter
         lTmpHi = lTmpHi - 1           ' Dcrement the temp high counter
     End If
  Loop
' ---------------------------------------------------------
' If the minimum number of elements in the array is
' less than the temp high end, then make a recursive
' call to this routine.  I always sort the low end
' of the array first.
' ---------------------------------------------------------


  If (Low < lTmpHi) Then
      QuickSort vData, Low, lTmpHi
  End If
' ---------------------------------------------------------
' If the temp low end is less than the maximum number
' of elements in the array, then make a recursive call
' to this routine.  The high end is always sorted last.
' ---------------------------------------------------------

  If (lTmpLow < Hi) Then
       QuickSort vData,lTmpLow, Hi
End If


End Function
'=========================================
'直接插入式排序
'Arr------等待排序的数组
'=========================================
Function InsertSort(Arr)
    Dim i,j,x,TempValue    
    For i=1 To UBound(Arr)
     TempValue=Arr(i)
     j=i-1
     X=Arr(i)
     Do While X<Arr(j)
        Arr(j+1)=Arr(j)
        j=j-1
        If j<0 Then Exit Do  
     Loop 
     Arr(j+1)=TempValue
    Next    
End Function

'=========================================
'简单选择排序
'Arr------等待排序的数组
'=========================================
Function SelectSort(Arr)
    Dim i,j,K,TempValue    
    For i=0 To UBound(Arr)-1
    K=i
        For j=i+1 To UBound(Arr)
            If Arr(j)<Arr(K) Then 
                K=j
            End If 
        Next 
    If K<>i Then 
        TempValue=Arr(K)
        Arr(k)=Arr(i)
        Arr(i)=TempValue
    End If 
    Next    
End Function
  
slow=lbound(B)
shigh=ubound(B)

  '开始快速排序
  StartTime1=timer
'c=quicksort(B,slow,shigh)
c=BubbleSort (B)
'c=InsertSort (B)
'c=SelectSort(B)
     EndTime1=timer
    Response.write Endtime1&"<br>"&starttime1&"<br>排序耗时:<font color=red>"&FormatNumber((endtime1-starttime1)*1000,3)&"</font>毫秒!<br>" 



ShowArray(B)


%>