Sideway
output.to from Sideway
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:
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:

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


©sideway

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

close

References

  1. Active Server Pages,  
  2. ASP Overview,  
  3. ASP Best Practices,  
  4. ASP Built-in Objects,  
  5. Response Object,  
  6. Request Object,  
  7. Server Object (IIS),  
  8. Application Object (IIS),  
  9. Session Object (IIS),  
  10. ASPError Object,  
  11. ObjectContext Object (IIS),  
  12. Debugging Global.asa Files,  
  13. How to: Debug Global.asa files,  
  14. Calling COM Components from ASP Pages,  
  15. IIS ASP Scripting Reference,  
  16. ASP Keywords,  
  17. Creating Simple ASP Pages,  
  18. Including Files in ASP Applications,  
  19. ASP Overview,  
  20. FileSystemObject Object,  
  21. http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx,  
  22. ADO Fundamentals,  
close

Latest Updated LinksValid XHTML 1.0 Transitional Valid CSS!Nu Html Checker Firefox53 Chromena IExplorerna
IMAGE

Home 5

Business

Management

HBR 3

Information

Recreation

Hobbies 7

Culture

Chinese 1097

English 337

Reference 67

Computer

Hardware 149

Software

Application 187

Digitization 24

Numeric 19

Programming

Web 757

CSS 1

ASP.NET 1

Regular Expression 1

HTML

Knowledge Base

Common Color 1

Html Entity (Unicode) 1

Html 401 Special 1

OS 389

MS Windows

Windows10 1

.NET Framework 1

DeskTop 7

Knowledge

Mathematics

Formulas 8

Algebra 20

Number Theory 206

Trigonometry 18

Geometry 18

Calculus 67

Complex Analysis 21

Engineering

Tables 8

Mechanical

Mechanics 1

Rigid Bodies

Statics 92

Dynamics 37

Fluid 5

Fluid Kinematics 5

Control

Process Control 1

Acoustics 19

FiniteElement 2

Physics

Electric 10

Biology 1

Geography 1


Copyright © 2000-2019 Sideway . All rights reserved Disclaimers last modified on 06 September 2019