<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>
<BODY>
<%
'const_domain_name爲域名最後不要加斜槓
const const_domain_name="http://www.penavico-ccl.net:8080"
function p2v_path(p_path)
'p_path爲硬盤上的物理路徑
dim host
host=lcase(server.MapPath("/"))
p_path=lcase(p_path)
p2v_path=replace(p_path,host,const_domain_name)
end function
' 設定一個演示目錄，：）
if request("cur_path")<>"" then
DirectorY=request("cur_path")
else
DirectorY = "./"
end if
'DirectorY=request("cur_path")
' 用常數定義排序方式
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
' 接下來開始我們真正的代碼了。。。
if request("cur_path")<>"" then
path=DIRECTORY
else
path = Server.MapPath( DIRECTORY )
end if
'path = 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">
<INPUT Type=Hidden Name=cur_path Value="<%=path%>">
</FORM>
<SCRIPT Language="javascript">
function reSort( which )
{
document.doSort.sortBy.value = which;
document.doSort.submit( );
}
</SCRIPT>
<CENTER>
<!--<FONT Size="+2">
顯示<% = (fileCount+1) %> 該目錄下的文件<% = path %>
</FONT>-->
<%
function get_parent_folder()
on error resume next
str=path
str_find="\"
str_int=InStrRev (str,str_find)-1 '得到上一級目錄的路徑
get_parent_folder=mid(str,1,str_int)
err.clear
end function
%>
<P>
單擊排序，再點一次反向排序
<a href="folder_list.asp?act=list_cur&cur_path=<%=get_parent_folder%>">返回上級</a>
<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) )
if j=0 then
Response.Write " <TD><a href='"&p2v_path(path&"/")&theFiles(i)(j)&"'>" & theFiles(i)(j) & "</a></TD>" & vbNewLine
else
Response.Write " <TD>" & theFiles(i)(j) & "</TD>" & vbNewLine
end if
Next
Response.Write "</TR>" & vbNewLine
Next
%>
</TABLE>
</BODY>
</HTML>文件排序演示
發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章