Set fso = Server.CreateObject("Scripting.FileSystemObject")set fileobject = fso.GetFolder(server.mappath(path))
set foldercollection = fileobject.SubFoldersFor Each folder in foldercollection
Response.Write "<tr onMouseOut=""this.style.backgroundColor=''"" onMouseOver=""this.style.backgroundColor='#f0f0f0'"">" &vbCrLf
Response.Write "<td><img src=images/closedfolder.gif ></td>" & vbCrLf
Response.Write "<td><a href=""?act=getList&path=" & (path) &"" &folder.name & """>" & folder.name & "</a></td>" & vbCrLf
Response.Write "<td><a href=""?act=deletefolder&folder=" & path &"" &folder.name & """ onClick=""return deletefolder();""><img border=0 src=images/delete.gif border=0></a></td>" &vbCrLf
Response.Write "</tr>" &vbCrLf
Next
set foldercollection = fileobject.SubFoldersFor Each folder in foldercollection
Response.Write "<tr onMouseOut=""this.style.backgroundColor=''"" onMouseOver=""this.style.backgroundColor='#f0f0f0'"">" &vbCrLf
Response.Write "<td><img src=images/closedfolder.gif ></td>" & vbCrLf
Response.Write "<td><a href=""?act=getList&path=" & (path) &"" &folder.name & """>" & folder.name & "</a></td>" & vbCrLf
Response.Write "<td><a href=""?act=deletefolder&folder=" & path &"" &folder.name & """ onClick=""return deletefolder();""><img border=0 src=images/delete.gif border=0></a></td>" &vbCrLf
Response.Write "</tr>" &vbCrLf
Next
解决方案 »
- 如何将用户上传过来的图片该成统一大小?
- 网络安全协议
- 各位大侠,如何使phpnow外网能访问啊,在线等ing!
- phpcms2008 添加字段类型问题
- 移植php到arm linux的问题,请教各位大虾
- 外国空间,怎样才不乱吗呢?
- 谁帮我写一下这道题的思路…………
- Highcharts uncaught exception: Highcharts error #16: www.highcharts.com/errors/1
- 价格是这样的,定长12位,最小值是1分,例如5.1元转换过来就是000000000510
- 请教视频中加入互动元素这样的效果应该怎样实现?
- http错误:406拒绝访问
- 请教一个织梦CMS问题,关于两种类别的频道怎样建立
<?php
$dir = "/etc/php5/";// Open a known directory, and proceed to read its contents
if (is_dir($dir)) {
if ($dh = opendir($dir)) {
while (($file = readdir($dh)) !== false) {
echo "filename: $file : filetype: " . filetype($dir . $file) . "\n";
}
closedir($dh);
}
}
?>
仅思路..看到asp头都疼..
$dir = XOOPS_ROOT_PATH."/newsletter/"; //文件夹路径
$handle = opendir($dir);$xoopsTpl->assign("dir_prefix", $dir_prefix);while (false !== ($Folder = readdir($handle))){
if ($Folder != "." && $Folder != ".." && is_dir($dir . $Folder)){
echo $Folder;//把你的输出的东西写在这
}
}
closedir($handle);