文件,目录列表(ASP版本)

原创 2004年06月22日 21:16:00

<!---将此文件存为folder_list.asp看看效果就知道了加上权限就可以方便自己了,--->
<%
'const_domain_name为域名最后不要加斜杠
const const_domain_name="http://localhost"
%>
<style>
b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}
span{font-size:12pt;}
</style>

<%
'------------------------------------------------显示当前目录下的子目录和文件
sub list
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("."))
set fs=f.SubFolders
Set fc =f.Files

For Each fss in fs
dim folder_name
folder_name=fss.name
%>
<a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>
<%
Next

%>
<%
For Each f1 in fc
dim filename
filename=f1.name

%>
<a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>
<%
Next

set fso=nothing
end sub
%>


<%
'------------------------------------------------显示指定路径下的目录和文件
sub list_cur
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(request("cur_path"))
set fs=f.SubFolders
Set fc =f.Files

For Each fss in fs
dim folder_name
folder_name=fss.name
%>
<a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>
<%
Next

%>


<%
For Each f1 in fc
dim filename
filename=f1.name

%>
<a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>
<%
Next
set fso=nothing
end sub
%>

 

<%
'------------------------------------------------显示上级目录的子目录和子文件
sub list_parent
on error resume next
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(display_cur_path)
set fs=f.SubFolders
Set fc =f.Files

For Each fss in fs
dim folder_name
folder_name=fss.name

%>
<a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>
<%

Next

%>

<%
For Each f1 in fc
dim filename
filename=f1.name
%>
<a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>
<%
Next
set fso=nothing
on error goto 0
end sub

'---------------------------------------------得到上级目录的路径
function get_parent_folder()
on error resume next
str=display_cur_path
str_find="/"
str_int=InStrRev (str,str_find)-1 '得到上一级目录的路径
get_parent_folder=mid(str,1,str_int)
err.clear
end function


'-----------------------------------------------将文件路径转为www发布的路径这样就可以下载了
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

'-----------------------------------------------显示当前所在的路径
function display_cur_path()
cur_path=request("cur_path")
if cur_path="" then
display_cur_path=server.MapPath(".")
else
display_cur_path=cur_path
end if
set fso=nothing
end function

sub main
%>
<a href="folder_list.asp?act=list_parent&cur_path=<%=get_parent_folder%>">向上</a> <b><a href="javascript:void(null)"><%=display_cur_path%></a></B><p>
<%

select case request("act")
case "list_parent"
list_parent
case "list_cur"
list_cur
case else
list
end select
end sub


main
%>

asp列出文件夹目录及文件目录

.filelist{ clear:both;}.filelist ul li{list-style:none;float:left; width:200px;}
  • ahnuwaq5913649
  • ahnuwaq5913649
  • 2010年08月17日 12:26
  • 3353

apache 2.4.1 配置网页目录与文件列表目录

既想要登录网站时显示文件目录,又想要能够链接到网页文件,而 apache 的 DocumentRoot 指定为显示文件列表所在的目录时,默认也需要把网页放在该目录下才能显示。 存放网页目录:/usr...
  • fengchao_2009
  • fengchao_2009
  • 2012年04月12日 14:10
  • 3754

用ASP 取得目录下的文件名

 ================================================================函数名称:FileList函数功能:列出目录下所有文件主要参数说明:1...
  • lincnl
  • lincnl
  • 2007年05月24日 22:14
  • 556

ASP,FSO遍历目录及目录下文件

ASP,FSO遍历目录及目录下文件  我写的一个遍历目录以及目录下文件的函数,%>  function bianli(path)    set fso=server.CreateObject("scr...
  • feng_sundy
  • feng_sundy
  • 2004年10月27日 13:51
  • 1543

html文件可以打开,asp文件打不开的原因

问:安装了IIS,怎么ASP文件打不开方法一:打开IIS,主目录,配置,选项,勾选上“启用父路径”方法二:IIS,“默认网站”,在“文档”里添加以下文件:index.asp、default.asp、i...
  • hong401
  • hong401
  • 2008年05月27日 23:43
  • 12200

[ASP技巧] 巧给FSO文件夹列表内容排序

自己写排序算法十分繁琐,而且不够灵活,百度搜索“ASP 文件夹排序”搜到的结果可以100%视为垃圾。本文推荐一种最小代价的做法。 '定义获取排序文件列表的函数 Function getSor...
  • cuixiping
  • cuixiping
  • 2012年09月07日 00:29
  • 2905

四、ASP文件的基本格式及新建方法

1、 :ASP文件和HTML文件很相似,都包含有HTML标签,不同的是ASP文件中还包含有服务器端脚本代码。ASP用“”来表示服务器端脚本的结束。 2、ASP中的注释 ASP中注释写法与V...
  • u011924274
  • u011924274
  • 2016年09月08日 07:43
  • 1677

C# 系统应用之TreeView控件 (一).显示树状磁盘文件目录及加载图标

文章主要讲述使用C# winForm实现类似于资源管理器的界面,通过TreeView控件显示"我的电脑"所有磁盘文件树状目录,包括"我的文档",所有盘符下子目录.同时通过ImageList加载不同类型...
  • Eastmount
  • Eastmount
  • 2014年02月19日 15:30
  • 23678

二级联动菜单——ASP+数据库版

var j; j=0; goaler = new Array();
  • haibo0668
  • haibo0668
  • 2016年06月02日 12:47
  • 396

开启Nginx的目录文件列表功能

nginx默认是不允许列出整个目录的。如何开启Nginx的目录文件列表功能?打开nginx.conf文件,在location server 或 http段中加入 autoindex on;另外两个参数...
  • testcs_dn
  • testcs_dn
  • 2014年09月28日 17:19
  • 18416
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:文件,目录列表(ASP版本)
举报原因:
原因补充:

(最多只允许输入30个字)