国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

[p]當(dāng)您使用filesystemobject對象獲得某個目錄下的文件列表的時候，你有沒有發(fā)現(xiàn)無法控制它們的排序方式，比如按照名字排序，按照擴展名排序，按照文件大小排序等等，讓我們試著用數(shù)組給它們排排序兒。[br]如果您想通過名字排序，那將是非常簡單的，但是假如你想通過文件大小或者文件創(chuàng)立時間等等來排序的時候，那么將有點麻煩。我們將通過二維數(shù)組做到這一點。[br]下面的代碼演示了如何通過選擇排序方式達到的我們目的，單擊排序，點兩次就反著排了。[/p]
[p][br][br][br][/p]
[p][/p]
[p]<%[br]' 設(shè)定一個演示目錄，：）[/p]
[p]const directory = "/" [/p]
[p]' 用常數(shù)定義排序方式[br]const file_name = 0 '按照名字排序……依次類推[br]const file_ext = 1[br]const file_type = 2[br]const file_size = 3[br]const file_created = 4[br]const file_modified = 5[br]const file_accessed = 6[/p]
[p]'獲得 排序命令，默認為按照名字排序[/p]
[p]req = request("sortby")[br]if len(req) < 1 then sortby = 0 else sortby = cint(req)[br]req = request("priorsort")[br]if len(req) < 1 then priorsort = -1 else priorsort = cint(req)[/p]
[p]'設(shè)置倒序[br]if sortby = priorsort then[br]reverse = true[br]priorsort = -1[br]else[br]reverse = false[br]priorsort = sortby[br]end if[/p]
[p]' 接下來開始我們真正的代碼了。。。[/p]
[p]path = server.mappath( directory )[/p]
[p]set fso = createobject("scripting.filesystemobject")[br]set thecurrentfolder = fso.getfolder( path ) [br]set curfiles = thecurrentfolder.files [/p]
[p]' 給這些文件做一個循環(huán)[/p]
[p]dim thefiles( )[br]redim thefiles( 500 ) ' 我隨便定的一個大小[br]currentslot = -1 ' start before first slot[/p]
[p]' 我們將文件的所有相關(guān)信息放到數(shù)組里面[/p]
[p]for each fileitem in curfiles[br]fname = fileitem.name[br]fext = instrrev( fname, "." )[br]if fext < 1 then fext = "" else fext = mid(fname,fext+1)[br]ftype = fileitem.type[br]fsize = fileitem.size[br]fcreate = fileitem.datecreated[br]fmod = fileitem.datelastmodified[br]faccess = fileitem.datelastaccessed[br]currentslot = currentslot + 1[br]if currentslot > ubound( thefiles ) then[br]redim preserve thefiles( currentslot + 99 )[br]end if[br]' 放到數(shù)組里[br]thefiles(currentslot) = array(fname,fext,ftype,fsize,fcreate,fmod,faccess)[br]next[/p]
[p]' 現(xiàn)在都在數(shù)組里了，開始下一步[/p]
[p][br]filecount = currentslot ' 文件數(shù)量[br]redim preserve thefiles( currentslot ) [/p]
[p]' 排序[br]' (8 表示 string)[/p]
[p]if vartype( thefiles( 0 )( sortby ) ) = 8 then [br]if reverse then kind = 1 else kind = 2 ' 給字符排序[br]else[br]if reverse then kind = 3 else kind = 4 '數(shù)字、時間。。。[br]end if[/p]
[p]for i = filecount to 0 step -1[br]minmax = thefiles( 0 )( sortby )[br]minmaxslot = 0[br]for j = 1 to i[br]select case kind [br]case 1 [br]mark = (strcomp( thefiles(j)(sortby), minmax, vbtextcompare ) < 0)[br]case 2 [br]mark = (strcomp( thefiles(j)(sortby), minmax, vbtextcompare ) > 0)[br]case 3 [br]mark = (thefiles( j )( sortby ) < minmax)[br]case 4 [br]mark = (thefiles( j )( sortby ) > minmax)[br]end select[br]if mark then [br]minmax = thefiles( j )( sortby )[br]minmaxslot = j[br]end if[br]next[/p]
[p]if minmaxslot <> i then [/p]
[p]temp = thefiles( minmaxslot )[br]thefiles( minmaxslot ) = thefiles( i )[br]thefiles( i ) = temp[br]end if[br]next[br]' 結(jié)束[/p]
[p]%>[br]

[br][br][br]

[/p]
[p][/p]
[p][br][br]顯示<% = (filecount+1) %> 該目錄下的文件<% = path %>[br][br]

[br]單擊排序，再點一次反向排序[br]

[br][br][br][br][br][br][br][br][br][br][br]<%[/p]
[p]for i = 0 to filecount[br]response.write "" & vbnewline[br]for j = 0 to ubound( thefiles(i) )[br]response.write " " & vbnewline[br]next[br]response.write "" & vbnewline[br]next[br]%>[br]

文件名	擴展名	類型	大小	建立時間	上次修改時間	上次存取時間
" & thefiles(i)(j) & "

[/p]
[p][br] [/p]

該文章在 2010/7/8 1:05:55 編輯過