类似于IIS浏览的功能-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

类似于IIS浏览的功能

<%
\\\'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%>">0<%=folder_name%></a> 
<%
Next

%>
<%
For Each f1 in fc
dim filename
filename=f1.name
%>
<a href="<%=p2v_path(f1)%>">/<%=filename%></a> 
<%
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%>">0<%=folder_name%></a> 
<%
Next

%>

<%
For Each f1 in fc
dim filename
filename=f1.name
%>
<a href="<%=p2v_path(f1)%>">/<%=filename%></a> 
<%
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%>">0<%=folder_name%></a> 
<%

Next

%>

<%
For Each f1 in fc
dim filename
filename=f1.name
%>
<a href="<%=p2v_path(f1)%>">/<%=filename%></a> 
<%
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> <a href="javascript:void(null)"><%=display_cur_path%></a>
<%

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

main
%>

返回类别: 教程
上一教程: 如何获知页面上的图象的实际尺寸
下一教程: 网上“店铺”DIY(1)

您可以阅读与"类似于IIS浏览的功能"相关的教程:
· 使用ISAPI过滤器增强IIS的功能
· ASP提供在线文章翻译的功能
· 虹雨的功能较全的计数程序
· 用ＡＳＰ实现静静话的功能
· 用ASP实现汉字转拼音的功能


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接