繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 通过数组给您的文件排序
- ASP
- asp生成三维饼图的函数
- ASP下的简洁的多重查询的方法与函数 真不错
- 发一个ASP的ADODB类代码
- A利用ASP小偷和Google实现在线翻译功能的代码
- ASP类型网站结合动网论坛会员的方法
- Asp下实现多表单域无组件文件上传的实例
- asp制作中常用到的函数库集合
- 易心asp分页类 v1.0
- asp中xmlhttp组件发包
- 检测是否为数字类型的asp代码
- 可以获得文件的文件名的asp函数
- 用asp实现访问远程计算机上MDB access数据库文件的方法
- 用ASP实现写IIS日志的代码
- asp在IE浏览器中下载服务端上的各类文件的实现方法
- asp汉字中文图片验证码的实现代码
- asp WAP获取手机终端信息的一段代码
- asp取得数组中的最大值的方法
- 用asp实现的截取指定格式字符串的代码
- asp jmail发邮件 详细解析
- ASP编程中连接数据库和数据库操作的常用代码
ASP 中的 通过数组给您的文件排序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 120 ::
收藏到网摘: n/a
当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。
| <HTML> <HEAD> <TITLE>文件排序演示</TITLE> </HEAD> <BODY> <% ' 设定一个演示目录，：） CONST DIRECTORY = "/" ' 用常数定义排序方式 CONST FILE_NAME = 0 '按照名字排序……依次类推 CONST FILE_EXT = 1 CONST FILE_TYPE = 2 CONST FILE_SIZE = 3 CONST FILE_CREATED = 4 CONST FILE_MODIFIED = 5 CONST FILE_ACCESSED = 6 '获得 排序命令，默认为按照名字排序 req = Request("sortBy") If Len(req) < 1 Then sortBy = 0 Else sortBy = CInt(req) req = Request("priorSort") If Len(req) < 1 Then priorSort = -1 Else priorSort = CInt(req) '设置倒序 If sortBy = priorSort Then reverse = true priorSort = -1 Else reverse = false priorSort = sortBy End If ' 接下来开始我们真正的代码了。。。 path = Server.MapPath(DIRECTORY) Set fso = CreateObject("Scripting.FileSystemObject") Set theCurrentFolder = fso.GetFolder(path) Set curFiles = theCurrentFolder.Files ' 给这些文件做一个循环 Dim theFiles() ReDim theFiles(500) ' 我随便定的一个大小 currentSlot = -1 ' start before first slot ' 我们将文件的所有相关信息放到数组里面 For Each fileItem in curFiles fname = fileItem.Name fext = InStrRev(fname, ".") If fext < 1 Then fext = "" Else fext = Mid(fname,fext+1) ftype = fileItem.Type fsize = fileItem.Size fcreate = fileItem.DateCreated fmod = fileItem.DateLastModified faccess = fileItem.DateLastAccessed currentSlot = currentSlot + 1 If currentSlot > UBound(theFiles) Then ReDim Preserve theFiles(currentSlot + 99) End If ' 放到数组里 theFiles(currentSlot) = Array(fname,fext,ftype,fsize,fcreate,fmod,faccess) Next ' 现在都在数组里了，开始下一步 fileCount = currentSlot ' 文件数量 ReDim Preserve theFiles(currentSlot) ' 排序 ' (8 表示 string) If VarType(theFiles(0)(sortBy)) = 8 Then If reverse Then kind = 1 Else kind = 2 ' 给字符排序 Else If reverse Then kind = 3 Else kind = 4 '数字、时间。。。 End If For i = fileCount TO 0 Step -1 minmax = theFiles(0)(sortBy) minmaxSlot = 0 For j = 1 To i Select Case kind Case 1 mark = (strComp(theFiles(j)(sortBy), minmax, vbTextCompare) < 0) Case 2 mark = (strComp(theFiles(j)(sortBy), minmax, vbTextCompare) > 0) Case 3 mark = (theFiles(j)(sortBy) < minmax) Case 4 mark = (theFiles(j)(sortBy) > minmax) End Select If mark Then minmax = theFiles(j)(sortBy) minmaxSlot = j End If Next If minmaxSlot <> i Then temp = theFiles(minmaxSlot) theFiles(minmaxSlot) = theFiles(i) theFiles(i) = temp End If Next ' 结束 %> <FORM Name="doSort" Method="Get"> <INPUT Type=Hidden Name=priorSort Value="<% = priorSort %>"> <INPUT Type=Hidden Name=sortBy Value="-1"> </FORM> <SCRIPT Language="JavaScript"> function reSort(which) { document.doSort.sortBy.value = which; document.doSort.submit(); } </SCRIPT> <CENTER> <FONT Size="+2"> 显示<% = (fileCount+1) %> 该目录下的文件<% = path %> </FONT> <P> 单击排序，再点一次反向排序 <P> <TABLE Border=1 CellPadding=3> <TR> <TH><A HREF="javascript:reSort(0);">文件名</A></TH> <TH><A HREF="javascript:reSort(1);">扩展名</A></TH> <TH><A HREF="javascript:reSort(2);">类型</A></TH> <TH><A HREF="javascript:reSort(3);">大小</A></TH> <TH><A HREF="javascript:reSort(4);">建立时间</A></TH> <TH><A HREF="javascript:reSort(5);">上次修改时间</A></TH> <TH><A HREF="javascript:reSort(6);">上次存取时间</A></TH> </TR> <% For i = 0 To fileCount Response.Write "<TR>" & vbNewLine For j = 0 To UBound(theFiles(i)) Response.Write " <TD>" & theFiles(i)(j) & "</TD>" & vbNewLine Next Response.Write "</TR>" & vbNewLine Next %> </TABLE> </BODY> </HTML> |
评论 (0) All
