列出指定目录下的所有文件和目录-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

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

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

列出指定目录下的所有文件和目录
<%@ LANGUAGE = VBScript %>
<%Server.ScriptTimeout=5000%>
<html>

<head>
<style TYPE="text/css">
/* Outline Style Sheet */
UL UL {display: none;
margin-left: 20pt}
</style>
<script LANGUAGE="JavaScript">
function checkParent(src, dest) {
// Search for a specific parent of the current element
while (src!=null) {
if (src.tagName == dest) return src;
src = src.parentElement;
}
return null;
}
function outline() {
// Expand or collapse if a list item is clicked.
var open = event.srcElement;
// Make sure clicked inside an LI. This test allows rich HTML inside lists.
var el = checkParent(open, "LI");
if (null!=el) {
var pos = 0;
// Search for a nested list
for (var pos=0; pos<el.children.length; pos++) {
if ("UL"==el.children[pos].tagName) break;
}
if (pos==el.children.length) return;
} else return;
el = el.children[pos];
if ("UL"==el.tagName) {
// Expand or Collapse nested list
if (""==el.style.display) {
el.style.display = "block";
el.style.listStyleImage = "url(images/folder.gif)";
el.parentElement.style.listStyleImage = "url(images/ofolder.gif)";
}
else
{
el.style.display = "";
el.parentElement.style.listStyleImage = "url(images/folder.gif)";
}
}
event.cancelBubble = true;
}
document.onclick = outline;
</script>

<base target="main">
<title>Folders</title>
<link rel="stylesheet" type="text/css" href="ase.css">
</head>

<body topmargin="0" leftmargin="0">

<SCRIPT LANGUAGE=vbscript RUNAT = Server>
Dim fs, folderpara, folderArray
Set fs = CreateObject("Scripting.FileSystemObject")
if not isempty(request("txtRelative")) then
folderpara=server.mappath(request("txtRelative"))
else
folderpara=request("txtAbsolute")
end if
Response.write "<UL>"
Response.write "<LI STYLE=\\\'list-style-image: url(images/folder.gif)\\\'><a href=\\\'files.asp?sPath=" &
folderpara & "\\\'>" & folderpara & "</a></LI>"
Call ShowFolderList(folderpara)
Response.write "</UL>"
set fs = Nothing

Sub ShowFolderList(folderspec)
Dim f, f1, fc, s,fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
Set fs=f.Files
\\\'if (not (fc.count = 0)) then
Response.write "<UL>"
For Each f1 in fc
s = f1.name
If (not ((left (s, 1)) = "_")) then
Response.write "<li>"
Response.write "<a href=\\\'files.asp?sPath=" & f1 & "\\\'>"
Response.write s & "</LI>"
Response.write "</a>"
Call ShowFolderList((folderspec & "/" & s))
end if
Next

For Each f1 in fs
s = f1.name
If (not ((left (s, 1)) = "_")) then
Response.write "<li>"
Response.write "<a href=\\\'files.asp?sPath=" & f1 & "\\\'><font color=666666>"
if instr(s,"product")>0 then
Response.write replace(s,"product","<font color=008800>product</font>")
else
if instr(s,"prod")>0 then
Response.write replace(s,"prod","<font color=008800>prod</font>")
else
Response.write s
end if
end if
Response.write "</font></LI>"
Response.write "</a>"
end if
Next
Response.write "</UL>"
\\\'end if
end sub
</SCRIPT>

</body>
</html>

返回类别: 教程
上一教程: 转变HTML代码子程序
下一教程: 用PRERENDER解决DATAGRID分页最后一页行数不满的排版问题

您可以阅读与"列出指定目录下的所有文件和目录"相关的教程:
· 读取目录下的所有文件(源码)
· 读取目录下的所有文件（源码）
· 自动清空站点目录下所有文件
· 使用递归获取网站下的所有同类型文件
· 检查当前目录下是否存在指定的文件，假如存在就重新命名


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