以下为引用的内容：
php：

$dir = "/etc/php5/";

if (is_dir($dir))
{
if ($dh = opendir($dir))
{
       while (($file = readdir($dh)) !== false)
       {
         echo "filename: $file : filetype: " . filetype($dir . $file) . "\n";
       }
       closedir($dh);
}
}

ASP：

<%@LANGUAGE="VBscript" CODEPAGE="65001"%>
<%
Dim thisPath,FSO,fileItem,allFolder
thisPath = Server.MapPath(Request.ServerVariables("script_NAME")) '得到ASP文件的路径
Set FSO = createobject("scripting.filesystemobject")'创建FSO对像
Set allFolder = FSO.GetFile(thisPath).parentfolder.files '得到ASP所在目录的父级对像，它就包括了这个ASP和这个文件夹下的其它文件。thisPath当然可以自定义。

'下面是生成xml文件：

Response.write("")'开始输出XML
Response.ContentType = "text/XML"
Response.Write("")
For Each fileItem In allFolder '遍历整个对像中的元素
   If lcase(right(fileItem.name,4))=".jpg" Then '如果后缀是JPG,这是可以判断后缀。
   Response.Write(""+fileItem.name+"")'就把它的文件名输出为XML的一个新节点
   End If
Next
Response.Write("")
Response.End()
%> '这是从blueidea－flash里学来的。呵呵。记录一下，防备忘记。