Home > Developer > ASP

ASP implements structured enumeration and view all files under a path

Source: Internet
Author: User
Tags count
Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

<! Web page ASP code, you can implement a structured enumeration and look at a path to all the files, can be used to dynamically generate site maps, specific cases please see my homepage map: http://freehost08.websamba.com/hzhzhz/sitemap.htm>
<! Author: Tongji Huangzhengfeng http://websamba.com/hzhzhz/Application Please specify the source >
<style This style sheet must be retained >
<!--
U.{background-color:fedc76;cursor:hand;}
a{background-color:97ef53;}
font{padding-bottom:0;padding-top:0;margin-bottom:0;margin-top:0;}
-->
</style>
<title> Site Map </title>
<body>
<span id=shhi style= "text-align:right;width:20%;p osition:absolute;bottom:0" >
<a href=# onclick= ' jscript:if (rightf.style.display== "") rightf.style.display= "none"; else rightf.style.display= " "; return false ' Style=background-color:red>hide/show =></a>
</span>
<div ID=RIGHTF style= "height:100%;width:80%;p osition:absolute;right:0;top:0" >
<iframe align=right name= "right" Scrolling=auto style= "height:100%;width:100%" src= "About:blank" > </iframe >
</div>
<base target= "Right" >


<script language=vbscript>
<!--

Sub Window_onscroll ()
Rightf.style.pixeltop=document.body.scrolltop
Shhi.style.top=document.body.clientheight+document.body.scrolltop-30
End Sub

Sub Dofold (index) ' shows and hides a node's process
Dim itm
Set Itm=eval ("Divfold" & Index)
If itm.style.display= "None" then
Itm.style.display= ""
Else
Itm.style.display= "None"
End If
Set itm = document.all (itm.sourceindex-2)
If itm.innertext= "0" Then
itm.innertext= "1"
Else
itm.innertext= "0"
End If
Set Itm=document.all ("ITMJJ" & Index)
If not itm are nothing Then
If itm.innertext= "+" then
itm.innertext= "-"
Else
itm.innertext= "+"
End If
End If
End Sub

-->
</Script>


<%
'------ASP Program segment--------------------------------------
Set Fso=server.createobject ("Scripting.FileSystemObject") ' Server must support FSO

Dim Path,mappath
If Request ("path") = "" Then
Path= "" ' must first set the name of the folder you want to view, that is, the path= path name, such as setting path= "Hzhzhz" when you want to view the http://websamba.com/hzhzhz/
Else
Path=request ("path") can be set as follows: <a href= "Dirpath.asp?path=hzhzhz".
End If
Mappath=server.mappath ("/" & Path)

If Fso.folderexists (MapPath) =false Then
Response.Write "Path: http://" & Request.ServerVariables ("Http_host") & "/" & Path & "does not exist!"
Response.End
End If

Dim Tf
Tf=0
Sub Dirthisfolder (fo,strhead) ' Recursive process, program author: Tongji Huangzhengfeng http://websamba.com/hzhzhz/
If not FSO. FolderExists (Fo) then Exit Sub
Dim Fon,fin,tt
Set Folde = Fso.getfolder (Fo)
Fon=folde.subfolders.count
Fin=folde.files.count

tt= "<u lab=" contains "& FoN &" subfolders, "& FiN &" Sub file "Onclick=dofold (" & TF & ") >"
If FoN then Tt=tt & "<q id=itmjj" & TF & ">+</q>"
Tt=tt & "<font face=wingdings>0</font>" ' icon-like characters
If Len (strhead) Then
If Fin>0 Then
Response.Write Left (Strhead,len (Strhead)-1) & "├" & Tt & Folde.name & "</u><br>"
Else
Response.Write Left (Strhead,len (Strhead)-1) & "├" & Tt & Folde.name & "</u><br>"
End If
Else
Response.Write "" & Tt & Folde.path & "</u><br>"
End If


Response.Write "<span id=divfold" & TF & "style=" "Display:none" ">"
TF=TF +1
If FoN Then
I=0
For each Fol in Folde.subfolders
Islastfol= (i=fon-1)
If FiN > 0 Then



This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

Related Keywords:
extends and implements php implements and extends java extends and implements print all files in folder and subfolders copy all files and folders cmd ftp get all files and folders difference between extends and implements
Related Article
ASP. NET core combined with consul cluster &docker to rea...
ASP. NET Core 2.0 leverages Masstransit integrated RABBITMQ
Integration testing of ASP. NET Core Webapi using Xunit
CKEDITOR + CKFINDER image upload configuration (C #/asp.net/php)

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

What's Trending
Top 10 Tags
datastax versions naming convention zookeeper client class definition md5 microsoft sql server 2005 data structures exception handling error handling
Top 10 Keywords
microsoft download center down wordpress address url site address url wordpress address url windows installer 4 0 download 302 not found web address url definition site address url wordpress db2 integer mac os installation step by step pdf abbreviation for return

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More