ASP 使用FSO读取文件 可以按照文件名和修改日期排序
下面为mss.asp的代码
<body><%'FSO读取文件Function filelist(path1)Dim oFSO, oCurrentFolder, oFolders, oFolder, oFiles, oFile ,path,pfSet oFSO = Server.CreateObject( "Scripting.FileSystemObject" )path =path1Set oCurrentFolder = oFSO.GetFolder(path)Set oFolders = oCurrentFolder.SubFoldersSet oFiles = oCurrentFolder.Filesfor each oFolders in oFolders'列印文件夹 response.write "<a href=""mss.asp?path1="&server.urlencode(path1)&""&server.urlencode("/")&""&server.urlencode(oFolders.name)&""" target=_self>"&oFolders.name&"</a><br>"next response.write "<hr>"'处理文件Dim tmpDateStr,tmpNameStr,tmpDates,tmpNames,td,tnDim i,j,k,f,filtmpDateStr = ""tmpNameStr = ""For Each oFile in oFiles'读取文件修改日期,并格式化(yyyy/MM/dd HH:mm:ss) fil =oFile.DateLastModified f =year(fil) &"/"&right("0"&month(fil),2)&"/"&right("0"&day(fil),2)&" "&right("0"&hour(fil),2)&":"&right("0"&minute(fil),2)&":"&right("0"&second(fil),2) '读取文件到数组tmpDateStr = tmpDateStr & f & "|"tmpNameStr = tmpNameStr & oFile.name & "|"NexttmpDates = Split(tmpDateStr,"|")tmpNames = Split(tmpNameStr,"|")k = UBound(tmpDates)dim tmptotal()if k<0 then k=0end ifredim tmptotal(k,2)for t=0 to k-1 if isempty(request("id")) then tmptotal(t,0)=tmpDates(t) tmptotal(t,1)=tmpNames(t) else if request("id")=0 then tmptotal(t,0)=tmpDates(t) tmptotal(t,1)=tmpNames(t) else tmptotal(t,0)=tmpNames(t) tmptotal(t,1)=tmpDates(t) end if end ifnext'排序For i=0 To kFor j=0 To k If j=k Then Exit For If tmptotal(j,1)<tmptotal(j+1,1) Then td = tmptotal(j,1) tn = tmptotal(j,0) tmptotal(j,1) = tmptotal(j+1,1) tmptotal(j,0) = tmptotal(j+1,0) tmptotal(j+1,1) = td tmptotal(j+1,0) = tn End IfNextNext filelist=tmptotal end FunctionDim fo'根据返回值决定文件路径if IsEmpty(Request("path1"))then fo ="C:/Inet/sign"else fo =Request("path1")end if '列印文件路径 response.write("<font size=6>--"&right(fo,len(fo)-7-instr(fo,"sign"))&"</font><br><hr>") '排除文件路径最后'/' dim st,g,fo1 fo1="" st=split(fo,"/") g=ubound(st)-1 for s=0 to g fo1=fo1 & st(s)&"/" next if right(fo1,1)="/" then fo1 =left(fo1,len(fo1)-1) end if '允许访问到的文件夹最高层次 if fo1<>"C:/Inet" then response.write "<a href=""mss.asp?path1="&fo1&""" target=_self>[To Parent Directory]</a>" end if%> <script language="javaScript" type="text/JavaScript"> <!-- //排序方式选择事件 function Showdiv(fo1) 
{
if (di[0].checked)
{
di[0].checked=true window.location.href='mss.asp?id=0&path1='+fo1
} else { di[1].checked=true window.location.href='mss.asp?id=1&path1='+fo1 }
} //--> 'server.urlencode用于处理有可能出现特殊符号 </script> <p align="left">Desc: <INPUT id="name1" name="di" type="radio" value="0" <%if isempty(request("id")) then response.write "checked=""checked""" else if request("id")=0 then response.write"checked=""checked""" end if end if %> onclick="return Showdiv('<%=server.urlencode(fo)%>')" >By Name<INPUT id="date1" name="di" type="radio" value="1" <%if isempty(request("id")) then response.write"" else if request("id")=1 then response.write"checked=""checked""" end if end if %> onclick="return Showdiv('<%=server.urlencode(fo)%>')">By Date </p><%'列印文件filearr =filelist(""&fo&"")For i=0 To ubound(filearr)-1 if isempty(request("id")) then Response.Write(filearr(i,0) & " -- <a href=""download.asp?filename="&server.urlencode(fo)&""&server.urlencode("/")&""&server.urlencode(filearr(i,1))&""">"&filearr(i,1)&"</a><br>") else if request("id")=0 then Response.Write(filearr(i,0) & " -- <a href=""download.asp?filename="&server.urlencode(fo)&""&server.urlencode("/")&""&server.urlencode(filearr(i,1))&""">"&filearr(i,1)&"</a><br>") else Response.Write(filearr(i,1) & " -- <a href=""download.asp?filename="&server.urlencode(fo)&""&server.urlencode("/")&""&server.urlencode(filearr(i,0))&""">"&filearr(i,0)&"</a><br>") end if end if Next%></body>