<%@ Language=VBScript %>
<%
'================================================================
'函数名称:FileList
'函数功能:列出目录下所有文件
'主要参数说明:
'1——FolderUrl 虚拟路径 不可为空
'2----FileExName 文件扩展名
'函数返回值:收文记录
'================================================================
Function FileList(FolderUrl,FileExName)
Set fso=Server.CreateObject(&#
<%
'================================================================
'函数名称:FileList
'函数功能:列出目录下所有文件
'主要参数说明:
'1——FolderUrl 虚拟路径 不可为空
'2----FileExName 文件扩展名
'函数返回值:收文记录
'================================================================
Function FileList(FolderUrl,FileExName)
Set fso=Server.CreateObject(&#