文件排序演示

最新推荐文章于 2024-07-20 10:36:53 发布

void_1987

最新推荐文章于 2024-07-20 10:36:53 发布

阅读量212

点赞数

分类专栏： asp 文章标签： javascript path function file domain input

asp 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

<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>

void_1987

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
文件排序演示

文件排序演示 <% 'const_domain_name为域名最后不要加斜杠const const_domain_name="http://www.penavico-ccl.net:8080"function p2v_path(p_path)'p_path为硬盘上的物理路径dim hosthost=lcase(server.MapPath("/"))p_path=lcase
复制链接

扫一扫