 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% function bianli(path) \\\'initiate path = server.mappath(path) set fso=server.CreateObject("scripting.filesystemobject") set objFolder=fso.GetFolder(path) set objfiles = objfolder.files \\\'把文件名及文件路经存入theFiles数组 int slot = 0 Dim theFiles() redim theFiles(50) for each objFile in objFiles filename = objFile.name filePath = split(objFile.path,"docs") thepath1 = "./docs/" thepath = thepath1 & filepath(1) theFiles(slot) = filename&"**"&thepath slot = slot + 1 if slot > UBound(theFiles) then ReDim Preserve theFiles(Slot+20) end if next ReDim Preserve theFiles(slot) \\\'冒泡排序 for i = 0 to UBound(theFiles)-2 for j = i+1 to UBound(theFiles)-1 if strComp(theFiles(i),theFiles(j)) = 1 then tmp = theFiles(i) theFiles(i) = theFiles(j) theFiles(j) = tmp end if next next \\\'输出 for i = 0 to UBound(theFiles)-1 para = theFiles(i) filename = split(para,"**",-1,1)(0) filepath = split(para,"**",-1,1)(1) %> <p align = "left"> ---<img src=\\\'../../images/arrow_orange.gif\\\' width=\\\'14\\\' height=\\\'11\\\'> <a href=\\\'<%=filepath%>\\\'><span class="activelink_yellow"><%=filename%></span></a> </p> <% next end function %> 返回类别: 教程 上一教程: 经典实用的基础ASP代码整理 下一教程: 菜鸟学ADO实例教程之ADO 显示数据 您可以阅读与"文件遍历排序函数"相关的教程: · ASP数组冒泡排序函数 · 遍历目录以及目录下文件的函数 · 中文的无组件文件上传ASP函数 · 用ASP随机生成文件名的函数 · ASP中常用的文件处理函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
