想做一个和电影网站一样的页面，

不同的是，不通过上传。只是把电影文件放在一个服务器内固定的文件夹（自己的服务器，我直接放文件就可以了，不需要上传），然后，能实现和电影网站一样的功能，就是直接点击就可以播放！

如何实现呢？

<%
Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例
FF = Server.MapPath("video")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(ff) Then
Response.write "文件夹 "&ff&" 里所有的文件：<br>"
Set objFolder = objFSO.GetFolder(ff)
For Each objFile in objFolder.Files
Response.Write "<a href='"&objFile.Name&"'>"&objFile.Name & "</a><br>"
Next
Else
Response.Write "文件夹"&ff&"不存在，无法读取相关信息！"
End If
Set objFolder = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>

文件夹中的文件 ，我是找出来了，就是如何点击就能打开了找开了

晕死，这个问题解决了，不过，又出现一个排版问题，这么多文件 ，怎么排版。如何操作fso ??
看来，还真的要好好研究FSO