主頁(yè) > 知識(shí)庫(kù) > 類似于iis瀏覽的功能

類似于iis瀏覽的功能

熱門標(biāo)簽:修改地圖標(biāo)注 外呼系統(tǒng)API接口 鳳臺(tái)百度地圖標(biāo)注店 武夷山旅游地圖標(biāo)注 縣域地圖標(biāo)注打印店 金昌電話機(jī)器人價(jià)格 個(gè)人可以辦理400電話么 怎么在地圖標(biāo)注自己 萊西電子地圖標(biāo)注
!---將此文件存為folder_list.asp看看效果就知道了加上權(quán)限就可以方便自己了,--->
%
'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>

%
'------------------------------------------------顯示當(dāng)前目錄下的子目錄和文件
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_curcur_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_curcur_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
%>



%
'------------------------------------------------顯示上級(jí)目錄的子目錄和子文件
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_curcur_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

'---------------------------------------------得到上級(jí)目錄的路徑
function get_parent_folder()
on error resume next
str=display_cur_path
str_find="\&;
str_int=InStrRev (str,str_find)-1 '得到上一級(jí)目錄的路徑
get_parent_folder=mid(str,1,str_int)
err.clear
end function


'-----------------------------------------------將文件路徑轉(zhuǎn)為www發(fā)布的路徑這樣就可以下載了
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

'-----------------------------------------------顯示當(dāng)前所在的路徑
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_parentcur_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
%>

標(biāo)簽:清遠(yuǎn) 楚雄 赤峰 上海 涼山 通遼 南京 邢臺(tái)

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《類似于iis瀏覽的功能》,本文關(guān)鍵詞  類似于,iis,瀏覽,的,功能,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《類似于iis瀏覽的功能》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于類似于iis瀏覽的功能的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章