Sideway
output.to from Sideway
`-=[]โŸจโŸฉ\;',./~!@#$%^&*()_+{}|:"<>? ๐‘Ž๐‘๐‘๐‘‘๐‘’๐‘“๐‘”โ„Ž๐‘–๐‘—๐‘˜๐‘™๐‘š๐‘›๐‘œ๐‘๐‘ž๐‘Ÿ๐‘ ๐‘ก๐‘ข๐‘ฃ๐‘ค๐‘ฅ๐‘ฆ๐‘ง ร…โ€‰โˆ’โ€‚ร—โ€ƒโ‹…โˆ“ยฑโˆ˜๊žŠ๏นฆโˆ—โˆ™ โ„ฏ ๐”ธ๐”นโ„‚๐”ป๐”ผ๐”ฝ๐”พโ„๐•€๐•๐•‚๐•ƒ๐•„โ„•๐•†โ„™โ„šโ„๐•Š๐•‹๐•Œ๐•๐•Ž๐•๐•โ„ค๐ด๐ต๐ถ๐ท๐ธ๐น๐บ๐ป๐ผ๐ฝ๐พ๐ฟ๐‘€๐‘๐‘‚๐‘ƒ๐‘„๐‘…๐‘†๐‘‡๐‘ˆ๐‘‰๐‘Š๐‘‹๐‘Œ๐‘ โˆผโˆฝโˆพโ‰โ‰‚โ‰ƒโ‰„โ‰…โ‰†โ‰‡โ‰ˆโ‰‰โ‰Œโ‰โ‰ โ‰ก โ‰คโ‰ฅโ‰ฆโ‰งโ‰จโ‰ฉโ‰ชโ‰ซ โˆˆโˆ‰โˆŠโˆ‹โˆŒโˆ โŠ‚โŠƒโŠ„โŠ…โŠ†โŠ‡ ๐›ผ๐›ฝ๐›พ๐›ฟ๐œ€๐œ๐œ‚๐œƒ๐œ„๐œ…๐œ†๐œ‡๐œˆ๐œ‰๐œŠ๐œ‹๐œŒ๐œŽ๐œ๐œ๐œ‘๐œ’๐œ“๐œ” โˆ€โˆ‚โˆƒโˆ…โฆฐโˆ†โˆ‡โˆŽโˆžโˆโˆดโˆต โˆโˆโˆ‘โ‹€โ‹โ‹‚โ‹ƒ โˆงโˆจโˆฉโˆช โˆซโˆฌโˆญโˆฎโˆฏโˆฐโˆฑโˆฒโˆณ โˆฅโ‹ฎโ‹ฏโ‹ฐโ‹ฑ โ€– โ€ฒ โ€ณ โ€ด โ„ โ— สน สบ โ€ต โ€ถ โ€ท ๏น ๏น‚ ๏นƒ ๏น„ ๏ธน ๏ธบ ๏ธป ๏ธผ ๏ธ— ๏ธ˜ ๏ธฟ ๏น€ ๏ธฝ ๏ธพ ๏น‡ ๏นˆ ๏ธท ๏ธธ โœ   โ   โŽด  โŽต  โž   โŸ   โ    โก โ†โ†‘โ†’โ†“โ†คโ†ฆโ†ฅโ†งโ†”โ†•โ†–โ†—โ†˜โ†™โ–ฒโ–ผโ—€โ–ถโ†บโ†ปโŸฒโŸณ โ†ผโ†ฝโ†พโ†ฟโ‡€โ‡โ‡‚โ‡ƒโ‡„โ‡…โ‡†โ‡‡ โ‡โ‡‘โ‡’โ‡“โ‡”โ‡Œโ‡โ‡โ‡•โ‡–โ‡—โ‡˜โ‡™โ‡™โ‡ณโฅขโฅฃโฅคโฅฅโฅฆโฅงโฅจโฅฉโฅชโฅซโฅฌโฅญโฅฎโฅฏ
Draft for Information Only

Content

Knowledge Base: Examples of Recursion
โ€ƒRecursively Directory Listing by Using FileSystemObject
โ€ƒโ€ƒExamples:
โ€ƒRecursively Array Listing by Using VBScript
โ€ƒโ€ƒExamples:

Knowledge Base: Examples of Recursion

Recursion: Each item of an expression is generated by repeating a particular definition recursively.

Recursively Directory Listing by Using FileSystemObject

Recursively Directory Listing by Using FileSystemObject.

Examples:

Example of Recursively Directory Listing by Using FileSystemObject.

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">
Dim fso, objtemp, fderpar, cnt0
Set fso = CreateObject("Scripting.FileSystemObject")
Set objtemp = fso.CreateFolder("R:\temp0")
Set objtemp = fso.CreateFolder("R:\temp0\temp1")
Set objtemp = fso.CreateFolder("R:\temp0\temp1\temp2")
Set objtemp = fso.CreateFolder("R:\temp0\temp1\temp2\temp3")
Set objtemp = fso.CreateTextFile("R:\temp0\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\file2.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\file2.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\file2.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\temp3\file0.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\temp3\file1.txt")
Set objtemp = fso.CreateTextFile("R:\temp0\temp1\temp2\temp3\file2.txt")
fderpar="R:\temp0"
cnt0=0
Response.Write fderpar&"<br />"
Response.Write LstFder(fderpar,cnt0)

Function LstFder(fder_par,cnt)
dim fso, objfder, colfder, colfile, subfder, subfile, count
Set fso = CreateObject("Scripting.FileSystemObject")
Set objfder = fso.GetFolder(fder_par)
Set colfder = objfder.SubFolders
Set colfile = objfder.Files
count=cnt+1
For Each subfder In colfder
   Response.Write PrtArrow(count)&subfder&"--"& count&"<br />"
   Call LstFder(subfder,count)
Next
For Each subfile In colfile
   Response.Write PrtArrow(count)&subfile&"<br />"
Next
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
   count=count-1
   Response.Write "-->"
loop
End Function
</script>
    </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>

    </body>
</html>R:\temp0<br />-->R:\temp0\temp1--1<br />-->-->R:\temp0\temp1\temp2--2<br />-->-->-->R:\temp0\temp1\temp2\temp3--3<br />-->-->-->-->R:\temp0\temp1\temp2\temp3\file0.txt<br />-->-->-->-->R:\temp0\temp1\temp2\temp3\file1.txt<br />-->-->-->-->R:\temp0\temp1\temp2\temp3\file2.txt<br />-->-->-->R:\temp0\temp1\temp2\file0.txt<br />-->-->-->R:\temp0\temp1\temp2\file1.txt<br />-->-->-->R:\temp0\temp1\temp2\file2.txt<br />-->-->R:\temp0\temp1\file0.txt<br />-->-->R:\temp0\temp1\file1.txt<br />-->-->R:\temp0\temp1\file2.txt<br />-->R:\temp0\file0.txt<br />-->R:\temp0\file1.txt<br />-->R:\temp0\file2.txt<br />
HTML Web Page Embedded Output:

Recursively Array Listing by Using VBScript

Recursively Array Listing by Using VBScript

Examples:

Example of Recursively Array Listing by Using VBScript.last updated 11Jul2016

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">
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array"
Response.Write LstArry(OriArry,0,0,UBound(OriArry))&"<br /> "
For i = LBound(OriArry) to UBound(OriArry)
   OriArry(i)=array(i,OriArry(i))
Next
Response.Write "First Modified Array"
Response.Write LstArry(OriArry,0,0,UBound(OriArry))&"<br /> "
OriArry(0)="0"
OriArry(3)(1)=array(OriArry(3)(1),"34")
OriArry(6)(1)=array(OriArry(6)(1),"34","65","34","65","34","65","34","65","34","65","34","65")
OriArry(6)(1)(1)=array(OriArry(3)(1),"34")
Response.Write "Second Modified Array"
Response.Write LstArry(OriArry,0,0,UBound(OriArry))&"<br /> "

Function LstArry(Ori_Arry,lvl,cnt,sze)
Dim i, j, k, l
j=lvl
k=cnt
l=sze
Response.Write "<br /> "
call PrtArrow(j)
Response.Write "["
flag=0
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   If k<l and j>0 Then
       flag=1
   End If
   If IsArray(Ori_Arry(i)) Then
       call LstArry(Ori_Arry(i),j+1,i,UBound(Ori_Arry))
   Else
       Response.Write Ori_Arry(i)
       If i<>UBound(Ori_Arry) Then
           Response.Write ", "
       End If
   End If
Next
Response.Write "]"
If flag=1 then
   Response.Write ","
End If
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
   count=count-1
   Response.Write "-->"
loop
End Function
</script>
    </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>

    </body>
</html>Original Array<br /> [s, i, d, e, w, a, y, o, u, t]<br /> First Modified Array<br /> [<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 /> Second Modified Array<br /> [0, <br /> -->[1, i],<br /> -->[2, d],<br /> -->[3, <br /> -->-->[e, 34]],<br /> -->[4, w],<br /> -->[5, a],<br /> -->[6, <br /> -->-->[y, <br /> -->-->-->[<br /> -->-->-->-->[e, 34],34],65, 34, 65, 34, 65, 34, 65, 34, 65, 34, 65]],<br /> -->[7, o],<br /> -->[8, u],<br /> -->[9, t]]<br />
HTML Web Page Embedded Output:
ยฉsideway

ID: 160600017 Last Updated: 6/16/2016 Revision: 0 Ref:

close

References

  1. Active Server Pages, โ€‰, http://msdn.microsoft.com/en-us/library/aa286483.aspx
  2. ASP Overview, โ€‰, http://msdn.microsoft.com/en-us/library/ms524929%28v=vs.90%29.aspx
  3. ASP Best Practices, โ€‰, http://technet.microsoft.com/en-us/library/cc939157.aspx
  4. ASP Built-in Objects, โ€‰, http://msdn.microsoft.com/en-us/library/ie/ms524716(v=vs.90).aspx
  5. Response Object, โ€‰, http://msdn.microsoft.com/en-us/library/ms525405(v=vs.90).aspx
  6. Request Object, โ€‰, http://msdn.microsoft.com/en-us/library/ms524948(v=vs.90).aspx
  7. Server Object (IIS), โ€‰, http://msdn.microsoft.com/en-us/library/ms525541(v=vs.90).aspx
  8. Application Object (IIS), โ€‰, http://msdn.microsoft.com/en-us/library/ms525360(v=vs.90).aspx
  9. Session Object (IIS), โ€‰, http://msdn.microsoft.com/en-us/library/ms524319(8v=vs.90).aspx
  10. ASPError Object, โ€‰, http://msdn.microsoft.com/en-us/library/ms524942(v=vs.90).aspx
  11. ObjectContext Object (IIS), โ€‰, http://msdn.microsoft.com/en-us/library/ms525667(v=vs.90).aspx
  12. Debugging Global.asa Files, โ€‰, http://msdn.microsoft.com/en-us/library/aa291249(v=vs.71).aspx
  13. How to: Debug Global.asa files, โ€‰, http://msdn.microsoft.com/en-us/library/ms241868(v=vs.80).aspx
  14. Calling COM Components from ASP Pages, โ€‰, http://msdn.microsoft.com/en-us/library/ms524620(v=VS.90).aspx
  15. IIS ASP Scripting Reference, โ€‰, http://msdn.microsoft.com/en-us/library/ms524664(v=vs.90).aspx
  16. ASP Keywords, โ€‰, http://msdn.microsoft.com/en-us/library/ms524672(v=vs.90).aspx
  17. Creating Simple ASP Pages, โ€‰, http://msdn.microsoft.com/en-us/library/ms524741(v=vs.90).aspx
  18. Including Files in ASP Applications, โ€‰, http://msdn.microsoft.com/en-us/library/ms524876(v=vs.90).aspx
  19. ASP Overview, โ€‰, http://msdn.microsoft.com/en-us/library/ms524929(v=vs.90).aspx
  20. FileSystemObject Object, โ€‰, http://msdn.microsoft.com/en-us/library/z9ty6h50(v=vs.84).aspx
  21. http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx, โ€‰, ADO Object Model
  22. ADO Fundamentals, โ€‰, http://msdn.microsoft.com/en-us/library/windows/desktop/ms680928(v=vs.85).aspx
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 9

Culture

Chinese 1097

English 339

Travel 38

Reference 79

Hardware 55

Computer

Hardware 259

Software

Application 213

Digitization 37

Latex 52

Manim 205

KB 1

Numeric 19

Programming

Web 290new

Unicode 504

HTML 66new

Common Color 1new

Html Entity (Unicode) 1new

Html 401 Special 1

CSS 65new

Selector 1

SVG 46

ASP.NET 270

OS 447new

MS Windows

Windows10 1new

.NET Framework 1

DeskTop 7

Python 72

Knowledge

Mathematics

Formulas 8

Set 1

Logic 1

Algebra 84

Number Theory 207new

Trigonometry 31

Geometry 34

Coordinate Geometry 2

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

Natural Sciences

Matter 1

Electric 27

Biology 1

Geography 1

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