请人写一段ASP代码

来源：百度知道 编辑：UC知道 时间：2024/05/27 06:36:13
可以列表出当前目录下的所有文件，不包括子目录

返回格式要求如下：

a.swf
b.swf
a.exe
cec.rar

这样的一行一个。打开ASP文件后自动输出。
一行一个，或者用 “|” 分割什么的也可以，这样做的目的是让我的程序能读取用户上传的文件！

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>站内文件管理</title>
<link href="site_css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
FsFolder="\pic"
ServerFsFolder=Server.MapPath(""&FsFolder&"")
%>
<%
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(ServerFsFolder)
Set fc = f.Files

%>
<table width="95%" border="0" cellspacing="1" cellpadding="0">
<tr bgcolor="#CCCCCC">
<td he