仓酷云

标题: ASP编程:经由过程数组给您的文件排序 [打印本页]

作者: 不帅    时间: 2015-1-16 23:18
标题: ASP编程:经由过程数组给您的文件排序
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)排序|数组当您利用FILESYSTEMOBJECT工具取得某个目次下的文件列表的时分,你有无发明没法把持它们的排序体例,好比依照名字排序,依照扩大名排序,依照文件巨细排序等等,让我们试着用数组给它们排排序儿。
假如您想经由过程名字排序,那将长短常复杂的,可是假设你想经由过程文件巨细大概文件创建工夫等等来排序的时分,那末将有点贫苦。我们将经由过程二维数组做到这一点。
上面的代码演示了怎样经由过程选择排序体例到达的我们目标,单击排序,点两次就反着排了。

<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>

<BODY>

<%
设定一个演示目次,:)

CONSTDIRECTORY="/"

用常数界说排序体例
CONSTFILE_NAME=0依照名字排序……顺次类推
CONSTFILE_EXT=1
CONSTFILE_TYPE=2
CONSTFILE_SIZE=3
CONSTFILE_CREATED=4
CONSTFILE_MODIFIED=5
CONSTFILE_ACCESSED=6

取得排序命令,默许为依照名字排序

req=Request("sortBy")
IfLen(req)<1ThensortBy=0ElsesortBy=CInt(req)
req=Request("priorSort")
IfLen(req)<1ThenpriorSort=-1ElsepriorSort=CInt(req)

设置倒序
IfsortBy=priorSortThen
reverse=true
priorSort=-1
Else
reverse=false
priorSort=sortBy
EndIf

接上去入手下手我们真实的代码了。。。

path=Server.MapPath(DIRECTORY)

Setfso=CreateObject("Scripting.FileSystemObject")
SettheCurrentFolder=fso.GetFolder(path)
SetcurFiles=theCurrentFolder.Files

给这些文件做一个轮回

DimtheFiles()
ReDimtheFiles(500)我任意定的一个巨细
currentSlot=-1startbeforefirstslot

我们将文件的一切相干信息放到数组内里

ForEachfileItemincurFiles
fname=fileItem.Name
fext=InStrRev(fname,".")
Iffext<1Thenfext=""Elsefext=Mid(fname,fext+1)
ftype=fileItem.Type
fsize=fileItem.Size
fcreate=fileItem.DateCreated
fmod=fileItem.DateLastModified
faccess=fileItem.DateLastAccessed
currentSlot=currentSlot+1
IfcurrentSlot>UBound(theFiles)Then
ReDimPreservetheFiles(currentSlot+99)
EndIf
放到数组里
theFiles(currentSlot)=Array(fname,fext,ftype,fsize,fcreate,fmod,faccess)
Next

如今都在数组里了,入手下手下一步


fileCount=currentSlot文件数目
ReDimPreservetheFiles(currentSlot)

排序
(8暗示string)

IfVarType(theFiles(0)(sortBy))=8Then
IfreverseThenkind=1Elsekind=2给字符排序
Else
IfreverseThenkind=3Elsekind=4数字、工夫。。。
EndIf

Fori=fileCountTO0Step-1
minmax=theFiles(0)(sortBy)
minmaxSlot=0
Forj=1Toi
SelectCasekind
Case1
mark=(strComp(theFiles(j)(sortBy),minmax,vbTextCompare)<0)
Case2
mark=(strComp(theFiles(j)(sortBy),minmax,vbTextCompare)>0)
Case3
mark=(theFiles(j)(sortBy)<minmax)
Case4
mark=(theFiles(j)(sortBy)>minmax)
EndSelect
IfmarkThen
minmax=theFiles(j)(sortBy)
minmaxSlot=j
EndIf
Next

IfminmaxSlotiThen

temp=theFiles(minmaxSlot)
</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。
作者: 飘飘悠悠    时间: 2015-1-20 09:29
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
作者: 冷月葬花魂    时间: 2015-1-24 16:22
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
作者: 飘灵儿    时间: 2015-1-27 12:32
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
作者: 爱飞    时间: 2015-2-5 05:26
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
作者: 蒙在股里    时间: 2015-2-11 05:55
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
作者: 仓酷云    时间: 2015-3-1 22:48
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
作者: 变相怪杰    时间: 2015-3-11 00:15
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
作者: 兰色精灵    时间: 2015-3-17 16:42
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
作者: 再现理想    时间: 2015-3-24 12:31
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2