马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)遍历|函数|排序<%
functionbianli(path)
initiate
path=server.mappath(path)
setfso=server.CreateObject("scripting.filesystemobject")
setobjFolder=fso.GetFolder(path)
setobjfiles=objfolder.files
把文件名及文件路经存进theFiles数组
intslot=0
DimtheFiles()
redimtheFiles(50)
foreachobjFileinobjFiles
filename=objFile.name
filePath=split(objFile.path,"docs")
thepath1="./docs/"
thepath=thepath1&filepath(1)
theFiles(slot)=filename&"**"&thepath
slot=slot+1
ifslot>UBound(theFiles)then
ReDimPreservetheFiles(Slot+20)
endif
next
ReDimPreservetheFiles(slot)
冒泡排序
fori=0toUBound(theFiles)-2
forj=i+1toUBound(theFiles)-1
ifstrComp(theFiles(i),theFiles(j))=1then
tmp=theFiles(i)
theFiles(i)=theFiles(j)
theFiles(j)=tmp
endif
next
next
输入
fori=0toUBound(theFiles)-1
para=theFiles(i)
filename=split(para,"**",-1,1)(0)
filepath=split(para,"**",-1,1)(1)
%>
<palign="left">
---<imgsrc=http://www.163design.net/images/arrow_orange.gifwidth=14height=11>
<ahref=<%=filepath%>><spanclass="activelink_yellow"><%=filename%></span></a>
</p>
<%
next
endfunction
%>
</p>asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般 |