<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim strPathInfo,strPhysicalPath
'获取这个asp文件的文件名
strPathInfo = Request.ServerVariables("SCRIPT_NAME")
'得到这个asp文件在服务器上的绝对路径
strphysicalpath = server.MapPath(strpathinfo)
dim objFso,objFile,objFileItem,objFolder,objFolderContents
'建立一个FileSystemObject对象
set objFso = createobject("scripting.filesystemobject")
'返回这个asp文件的文件对象
set objfile = objFso.GetFile(strphysicalpath)
'返回这个asp文件所在的目录名
set objfolder = objfile.parentfolder
'返回这个asp文件所在目录中的所有文件的File对象的Files集合
set objfoldercontents = objfolder.files
dim count
count = 0
'下面这个for内就是遍历当前目录下所有文件的全过程
for each objfileitem in objfoldercontents
'因为我们只需要"*.jpg"的文件
'所以每遇到扩展名后4个字节为".jpg"的文件
'便使count计数器加1，并把这个文件输出到列表中
if lcase(right(objfileitem.name,4))=".jpg" then
count = count+1
%>
<p><a href="http://www.xxxx.com/picture/<%Response.Write(objfileitem.name)%>"><%Response.Write(objfileitem.name)%></a></p>
<%
end if
next
'显示共遍历到多少个"*.jpg"文件
Response.Write "total=" &
count
%>
<P>&nbsp;</P>
</BODY>
</HTML>
