|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件<%
aaa="images/"------------文件夹路径
pagesize=3--------------每页显现的文件数!
totalpage=1
page=trim(request.querystring("page"))
ifpage""andisnumeric(page)then
page=fix(page)
else
page=1
endif
Setfs=CreateObject("Scripting.FileSystemObject")
sPathFile=""&aaa&""
Setf=fs.GetFolder(Server.MapPath(sPathFile))
iff.files.countmodpagesize=0then
totalpage=f.files.countpagesize
else
totalpage=f.files.countpagesize+1
endif
ifpage<1then
page=1
endif
ifpage>totalpagethen
page=totalpage
endif
i=1
startnum=(page-1)*pagesize%>
<%ForEachs_folderinf.subfolders%>----文件夹轮回入手下手
<%=s_folder.name%>
<%next%>
<%ForEachf1inf.Files
ifi>startnumthen%>----文件轮回入手下手
<%=f1.name%><%=f1.size%><%=f1.type%><%=f1.datelastmodified%>
<%
endif
ifi>startnum+pagesizethen
exitfor
endif
i=i+1
next
%>
<%ifpage>1then%>---分页入手下手
<ahref="/?page=1">首页</a>
<%endif%>
<%ifpage>1then%>
<ahref="?page=<%=page-1%>">上一页</a>
<%endif%>
<%Iff.files.count=0Then%>
此目次下没有文件!
<%Else%>
共<%=f.files.count%>个文件 第<%=page%>/<%=totalpage%>页
<%EndIf%>
<%ifpage<totalpagethen%>
<ahref="?page=<%=page+1%>">下一页</a>
<%endif%>
<%ifpagetotalpagethen%>
<ahref="?page=<%=totalpage%>">尾页</a>
<%endif%>----分页停止
<%setfs=nothing%>
<%------------------------删除文件!
Ifrequest("action")="del_upfilename"Then
del_upfilename=request("del_upfilename")
setfileobj=server.createobject("scripting.filesystemobject")
iffileobj.FileExists(server.mappath(del_upfilename))then
fileobj.DeleteFile(server.mappath(del_upfilename))
endif
setfileobj=nothing
response.write"<scriptlanguage=javascript>alert(删除乐成!);location.href(?page="&page&");</script>"
endif
%>
</p>asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。 |
|