Draft for Information Only

Content

Knowledge Base: Examples of Sorting
 Sorting An Array by Bubble Sort Algorithm
  Examples:

Knowledge Base: Examples of Sorting

Sorting: Sorting algorithm referencehttps://en.wikipedia.org/wiki/Sorting_algorithm

Sorting An Array by Bubble Sort Algorithm

Sorting An Array by Bubble Sort Algorithm. Bubble sort is a simple exchanging algorithm but is also a highly inefficient sort.

Bubble sort reference: https://en.wikipedia.org/wiki/Bubble_sort

Examples:

Example of Sorting An Array by Bubble Sort Algorithm.

ASP VbScript Command:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
<SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
Function SrtArry(Ori_Arry)
Dim i, j, temp, tempind
Response.Write "Array Sorting<br /> "
For i = LBound(Ori_Arry) to UBound(Ori_Arry)-1
   For j= UBound(Ori_Arry)-1 to i step -1
       if UCase(Ori_Arry(j))>UCase(Ori_Arry(j+1)) then
           temp=Ori_Arry(j)
           Ori_Arry(j)=Ori_Arry(j+1)
           Ori_Arry(j+1)=temp
       End If
       Response.Write i&" "&j&": "
       Response.Write LstArry(Ori_Arry)&"<br />"
   Next
Next
SrtArry=Ori_Arry
End Function

Function LstArry(Ori_Arry)
Dim i
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   Response.Write Ori_Arry(i)&" "
Next
End Function
</SCRIPT>
<%
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array<br />"
Response.Write LstArry(OriArry)&"<br /> "
NewArry=SrtArry(OriArry)
Response.Write "Sorted Array<br /> "
Response.Write LstArry(NewArry)
%>
    </body>
</html>

HTTP Response Output:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
Original Array<br />s i d e w a y o u t <br /> Array Sorting<br /> 0 8: s i d e w a y o t u <br />0 7: s i d e w a y o t u <br />0 6: s i d e w a o y t u <br />0 5: s i d e w a o y t u <br />0 4: s i d e a w o y t u <br />0 3: s i d a e w o y t u <br />0 2: s i a d e w o y t u <br />0 1: s a i d e w o y t u <br />0 0: a s i d e w o y t u <br />1 8: a s i d e w o y t u <br />1 7: a s i d e w o t y u <br />1 6: a s i d e w o t y u <br />1 5: a s i d e o w t y u <br />1 4: a s i d e o w t y u <br />1 3: a s i d e o w t y u <br />1 2: a s d i e o w t y u <br />1 1: a d s i e o w t y u <br />2 8: a d s i e o w t u y <br />2 7: a d s i e o w t u y <br />2 6: a d s i e o t w u y <br />2 5: a d s i e o t w u y <br />2 4: a d s i e o t w u y <br />2 3: a d s e i o t w u y <br />2 2: a d e s i o t w u y <br />3 8: a d e s i o t w u y <br />3 7: a d e s i o t u w y <br />3 6: a d e s i o t u w y <br />3 5: a d e s i o t u w y <br />3 4: a d e s i o t u w y <br />3 3: a d e i s o t u w y <br />4 8: a d e i s o t u w y <br />4 7: a d e i s o t u w y <br />4 6: a d e i s o t u w y <br />4 5: a d e i s o t u w y <br />4 4: a d e i o s t u w y <br />5 8: a d e i o s t u w y <br />5 7: a d e i o s t u w y <br />5 6: a d e i o s t u w y <br />5 5: a d e i o s t u w y <br />6 8: a d e i o s t u w y <br />6 7: a d e i o s t u w y <br />6 6: a d e i o s t u w y <br />7 8: a d e i o s t u w y <br />7 7: a d e i o s t u w y <br />8 8: a d e i o s t u w y <br />Sorted Array<br /> a d e i o s t u w y 
    </body>
</html>

HTML Web Page Embedded Output:

Example of Sorting of An Array with Index by Bubble Sort Algorithm.

ASP VbScript Command:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
<SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
Function SrtArry(Ori_Arry)
Dim i, j, temp
For i = LBound(Ori_Arry) to UBound(Ori_Arry)-1
   For j= UBound(Ori_Arry)-1 to i step -1
       if UCase(Ori_Arry(j)(1))>UCase(Ori_Arry(j+1)(1)) then
           temp=Ori_Arry(j)
           Ori_Arry(j)=Ori_Arry(j+1)
           Ori_Arry(j+1)=temp
       End If
   Next
Next
SrtArry=Ori_Arry
End Function

Function LstArry(Ori_Arry)
Dim i
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   If IsArray(Ori_Arry(0)) Then
       call LstArry(Ori_Arry(i))
   Else
      If i=0 Then
          Response.Write "<br />"
      End If
      Response.Write Ori_Arry(i)&" "
   End If
Next
End Function
</SCRIPT>
<%
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
For i = LBound(OriArry) to UBound(OriArry)
   OriArry(i)=array(i,OriArry(i))
Next
Response.Write "Original Array"
Response.Write LstArry(OriArry)&"<br />"
NewArry=SrtArry(OriArry)
Response.Write "Sorted Array"
Response.Write LstArry(NewArry)
%>
    </body>
</html>

HTTP Response Output:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
Original Array<br />0 s <br />1 i <br />2 d <br />3 e <br />4 w <br />5 a <br />6 y <br />7 o <br />8 u <br />9 t <br />Sorted Array<br />5 a <br />2 d <br />3 e <br />1 i <br />7 o <br />0 s <br />9 t <br />8 u <br />4 w <br />6 y 
    </body>
</html>

HTML Web Page Embedded Output:

©sideway

ID: 170100015 Last Updated: 1/15/2017 Revision: 0 Ref:

References

Active Server Pages, , http://msdn.microsoft.com/en-us/library/aa286483.aspx
ASP Overview, , http://msdn.microsoft.com/en-us/library/ms524929%28v=vs.90%29.aspx
ASP Best Practices, , http://technet.microsoft.com/en-us/library/cc939157.aspx
ASP Built-in Objects, , http://msdn.microsoft.com/en-us/library/ie/ms524716(v=vs.90).aspx
Response Object, , http://msdn.microsoft.com/en-us/library/ms525405(v=vs.90).aspx
Request Object, , http://msdn.microsoft.com/en-us/library/ms524948(v=vs.90).aspx
Server Object (IIS), , http://msdn.microsoft.com/en-us/library/ms525541(v=vs.90).aspx
Application Object (IIS), , http://msdn.microsoft.com/en-us/library/ms525360(v=vs.90).aspx
Session Object (IIS), , http://msdn.microsoft.com/en-us/library/ms524319(8v=vs.90).aspx
ASPError Object, , http://msdn.microsoft.com/en-us/library/ms524942(v=vs.90).aspx
ObjectContext Object (IIS), , http://msdn.microsoft.com/en-us/library/ms525667(v=vs.90).aspx
Debugging Global.asa Files, , http://msdn.microsoft.com/en-us/library/aa291249(v=vs.71).aspx
How to: Debug Global.asa files, , http://msdn.microsoft.com/en-us/library/ms241868(v=vs.80).aspx
Calling COM Components from ASP Pages, , http://msdn.microsoft.com/en-us/library/ms524620(v=VS.90).aspx
IIS ASP Scripting Reference, , http://msdn.microsoft.com/en-us/library/ms524664(v=vs.90).aspx
ASP Keywords, , http://msdn.microsoft.com/en-us/library/ms524672(v=vs.90).aspx
Creating Simple ASP Pages, , http://msdn.microsoft.com/en-us/library/ms524741(v=vs.90).aspx
Including Files in ASP Applications, , http://msdn.microsoft.com/en-us/library/ms524876(v=vs.90).aspx
ASP Overview, , http://msdn.microsoft.com/en-us/library/ms524929(v=vs.90).aspx
FileSystemObject Object, , http://msdn.microsoft.com/en-us/library/z9ty6h50(v=vs.84).aspx
http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx, , ADO Object Model
ADO Fundamentals, , http://msdn.microsoft.com/en-us/library/windows/desktop/ms680928(v=vs.85).aspx