|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。fso|xml|递回
原本天生这个xml文档是为了开辟一个ftp的搜刮,厥后因为没有材料参考怎样搜刮xml文档,也就保持了.个中最主要的是递回的算法.天生文件列表的速率很快.这个程序能够用于天生播放列表之类的东东.必要IIS的FSO组件撑持.天生相似上面的XML文档
<?xmlversion="1.0"encoding="gb2312"?>
<ftpip="10.1.228.228">
<DIRpath="Game">
<DIRpath="仙剑奇侠传2(save)">
<filesize="346294">complete_camel.rar</file>
<filesize="1886286">complete_funlove.rar</file>
</DIR>
</DIR>
</ftp>
make_file_list.asp
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
######################################
##Copyright(C)2003醉雨梧桐Allrightsreserved.##
##Poweredby醉雨梧桐##
##http://btyz.51web.cn/##
##winterfire@163.com##
######################################
DimobjFo,objF,objAF,objFxml
setobjFo=CreateObject("Scripting.FileSystemObject")工具
setobjFxml=objFo.OpenTextFile("G:MyDocumentshttpPersonalWorksFTP_Searchftp.xml",2)翻开文件
objFxml.WriteLine("<?xmlversion=""1.0""encoding=""gb2312""?>")
objFxml.WriteLine("<ftpip=""10.1.228.228"">")
Callxml_list("F:")入手下手列表
objFxml.WriteLine("</ftp>")
Response.Write("ListisOK!)列表乐成
Functionxml_list(DirName)
setobjFS=objFo.GetFolder(DirName)
setobjASD=objFS.SubFolders
ForEachOneDirinobjASD
strFdName=Trim(OneDir.Name)
上面所列的文件夹不天生在列表中(体系文件大概埋没文件)
IfstrFdName"Config.Msi"EQVstrFdName"RECYCLED"EQVstrFdName"RECYCLER"EQVstrFdName"SystemVolumeInformation"Then
OneDirName=xml_format(OneDir.Name)对&举行本义
objFxml.WriteLine("<DIRpath="""&OneDirName&""">")天生<DIRpath="文件夹"></DIR>
SDirName=DirName&""&OneDir.Name下一个递回的地点
Callxml_list(SDirName)挪用递回
objFxml.WriteLine("</DIR>")
EndIf停止判别
Next
setobjSF=objFS.Files
ForEachOneFileinobjSF列出文件
objFxml.WriteLine("<filesize="""&OneFile.size&""">"&OneFile.Name&"</file>")天生<file>文件名</file>
Next
EndFunction
往失落XML不同意的字符
Functionxml_format(strDirName)
strDirName=Replace(strDirName,"&","&")把半角的&转化为&
xml_format=strDirName
EndFunction
%>
楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|