원래이 XML 문서는 FTP 검색을 개발하기 위해 생성되었지만 나중에 XML 문서를 검색하는 방법에 대한 정보가 없었기 때문에 포기했습니다. 가장 중요한 것은 재귀 알고리즘이었습니다. 파일 목록을 생성하는 속도는 매우 빠릅니다. 이 프로그램은 재생 목록 및 기타 사항을 생성하는 데 사용될 수 있습니다. IIS의 FSO 구성 요소의 지원이 필요합니다. 다음과 유사한 XML 문서를 생성하십시오
<? xml 버전 = 1.0 인코딩 = gb2312?>
<ftp ip = 10.1.228.228>
<dir path = game>
<dir path = 검과 요정의 전설 2 (저장)>
<file size = 346294> complete_camel.rar </file>
<file size = 1886286> complete_funlove.rar </file>
</dir>
</dir>
</ftp>
make_file_list.asp
<%@language = vbscript codepage = 936%>
<%
'#################################################'
'## 저작권 (C) 2003 Zuiyu Wutong All Rights Reserved. ## '
'## 취한 비에 의해 구동 ##'
'## http://btyz.51web.cn/ ##'
'## [email protected] ##'
'#################################################'
Dim objfo, objf, objaf, objfxml
objfo = createobject (scripting.filesystemobject) '객체를 설정합니다
set objfxml = objfo.opentextFile (g :/my documents/http/personal Works/ftp_search/ftp.xml, 2) '파일 열기
objfxml.writeline (<? xml 버전 = 1.0 인코딩 = gb2312?>)
objfxml.writeLine (<ftp ip = 10.1.228.228>)
xml_list (f :/) '시작 목록을 호출하십시오
objfxml.writeline (</ftp>)
response.write (목록은 괜찮아요!) '목록이 성공합니다
함수 XML_LIST (Dirname)
set objfs = objfo.getfolder (dirname)
objasd = objfs.subfolders를 설정하십시오
objasd의 각 Onedir에 대해
strfdname = trim (onedir.name)
'아래 나열된 폴더는 목록에 생성되지 않습니다 (시스템 파일 또는 숨겨진 파일)
strfdname <> config.msi eqv strfdname <> Recycled eqv strfdname <> Recycler eqv strfdname <> 시스템 볼륨 정보라면
onedirname = xml_format (onedir.name) 'Escape &
objfxml.writeline (<dir path = & onedirname &>) '생성 <dir path = 폴더> </dir>
sdirname = dirname &/& onedir.name '다음 재귀 주소
xml_list (sdirname) '호출 재귀를 호출하십시오
objfxml.writeline (</dir>)
'종료 판단
다음
objsf = objfs.files를 설정하십시오
OBJSF의 각 OneFile에 대해 파일을 나열하십시오
objfxml.writeline (<file size = & onefile.size &> & onefile.name & </file>) '생성 <file> filename </file>을 생성합니다
다음
엔드 기능
'XML에서 허용되지 않는 문자를 제거하십시오
함수 xml_format (strdirname)
strdirname = replace (strdirname, &, &) ''의 절반을 & &
xml_format = strdirname
엔드 기능