下载目录问题

[meteor6530]

问题1
一般提供下载的东东都是放在网站根目录下的
但是如果提供下载的东东很多,有几百G怎么办,分区不可能太大的
不知各位仁兄有会么高招,我菜菜

问题2
提供下载的东东已经存在服务器中
怎么样把他们的路径提交的数据库
我的意思是说不用一个个敲的
可以用"浏览"选择的

小弟的命就看大家的了

[robake]

老兄难道不知道使用虚拟目录？服务器上多加几块硬盘！这不就搞定了？

[zhangjun]

第一个问题就是让你老板多买个块硬盘，不就是多掏钱吗
第二个问题，你先把文件全部列表出来到一个ＴＡＢＬＥ中来
如：
<form name="frm" method="post" action="">
<table border="1">
<tr>
<td>选择</td>
<td>文件名</td>
<td>文件大小</td>
<td>文件类型</td>
<td>修改时间</td>
<td>路径</td>
</tr>

<%
dim fso,theFolder,FileName,FileType,FileSize,FileDate,FilePath
dim Path rem//文件所在文件夹
Path="c:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFolder = fso.GetFolder(server.MapPath(Path))
rem 开始循环，分页自己去写
For Each objFile in theFolder.Files
FileName = objFile.Name '文件名
FileSize = objFile.size'文件大小
FileType = objFile.type '文件类型
FileDate = objFile.datelastmodified'最后修改时间
FilePath = server.MapPath(Path)&"\"&FileName'文件全路径
%>
<tr>
<td><input type="checkbox" name="Files" value="<%=FilePath%>" ></td>
<td><%=FileName%></td>
<td><%=FileSize%></td>
<td><%=FileType%></td>
<td><%=FileDate%></td>
<td><%=FilePath%></td>
</tr>
<%
Next
set fso=nothing
set theFolder = nothing
set objFile = nothing
%>
<input type="checkbox" name="checkall" value="全选" >
</table>
</form>
选复选框，让管理员自己选提交表单不就OK了

[meteor6530]

多谢楼上几位仁兄,看来第一个问题不是问题了,汗一个
TO 风中风:
这样是个实现的办法,但是在访问子目录的时候不是很方便
连同子目录一起列出来操作起来有点别扭
大家还有没有点子

[zhangjun]

你先把子目录读出来，在点子目录的时候把文件读出来
用前面带复选框的树来实现最好了．
具体请找找小天的树,skytree
或梅老大的树

[meteor6530]

不太好搞,skytree下了也不能用,是不是要检查我的钱包

[meteor6530]

另外他们是不是客户端的文件

[zhangjun]

skytree好用的很．关键是你没看明白
多看看他的帮助信息吧
做成资源浏览器的样子

[meteor6530]

我下下来后搞个虚拟目录,看他的例子都不行,你手头有没有,给一个??[e-mail]

[meteor6530]

不会吧,怎么没人,欺负新来的啊,我顶

[zhangjun]

1)．这个问题只能让你老板多掏钱了，放到数据库中去也一样．
２）如下：
dim fso,theFolder,FileName,FileType,FileSize,FileDate,FilePath
dim Path rem//文件所在文件夹
Path="c:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFolder = fso.GetFolder(server.MapPath(Path))
rem 开始循环
For Each objFile in theFolder.Files
FileName = objFile.Name '文件名
FileSize = objFile.size'文件大小
FileType = objFile.type '文件类型
FileDate = objFile.datelastmodified'最后修改时间
FilePath = server.MapPath(Path)&"\"&FileName'文件全路径
rem //***************把得到的路径放到对应的数据库中去
sql="insert into b(filepath) values('"&FilePath&"')"
.........
Next
set fso=nothing
set theFolder = nothing
set objFile = nothing

[meteor6530]

第一个问题麻烦说得明白点
第二个问题

这样的话会把目录下的文件都写入数据库
而我想要的效果是由用户(管理员权限)选择来写入数据库

[flyingsnowy]

托管服务器啊.

[jspadmin]

很多数据库支持超大分区和跨分区的，但是我个人认为不合适放到数据库中，如果有几百g的话。
最好是弄个ftp服务器，然后asp提供ftp下载地址。