主题:  向各位高手请教如何能上传不止一个文件？

万木春
职务：普通成员
等级：1
金币：0.0
发贴：165
注册：2002/6/17 21:30:27
#12003/7/11 14:31:51
看以下代码，只能上传一个文件，如果上传第2个文件会覆盖前一个文件，各位有什么办法不让覆盖？
<%@LANGUAGE="VBSCRIPT"%>


上载文件


<%Set upl=Server.CreateObject("SoftArtisans.FileUp")%>
<%upl.SaveAs(Server.MapPath("upload/abc.zip"))%>
文件长度:<%=upl.TotalBytes%>

HPGY176
职务：普通成员
等级：1
金币：0.0
发贴：16
注册：2003/7/10 14:47:47
#22003/7/11 15:07:39
从文件名上做文章，让文件名不可能一样就行了



万木春
职务：普通成员
等级：1
金币：0.0
发贴：165
注册：2002/6/17 21:30:27
#32003/7/14 8:55:46
这段代码如何写？



浮尘
职务：普通成员
等级：3
金币：7.0
发贴：1258
注册：2001/11/19 12:41:09
#42003/7/14 9:21:22
去找化境的无组件上传看看。



{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
注册：2002/7/25 21:24:11
#52003/7/14 14:32:13
<%upl.SaveAs(Server.MapPath("upload/[color=red]abc.zip[/color]"))%>


红色的部分是上传的文件名。

改一下那个就可以。

另外，可以把整个程序贴一下吗？

我挺感兴趣的～～

缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
#62003/7/14 15:12:16
你可以去随机数加上时间来避免文件名重复



万木春
职务：普通成员
等级：1
金币：0.0
发贴：165
注册：2002/6/17 21:30:27
#72003/7/15 8:50:13
行者我知道是abc.zip，可是不知道如何改，我把全部代码贴出来：
upload.htm

请上载文件

method="post" action="up.asp">
输入上载文件的名称:






up.asp
<%@LANGUAGE="VBSCRIPT"%>


上载文件


您的文件已经上传成功!.

<%Set upl=Server.CreateObject("SoftArtisans.FileUp")%>
<%upl.SaveAs(Server.MapPath("upload/abc.zip"))%>
文件长度:<%=upl.TotalBytes%>

缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
#82003/7/15 13:50:57
<%@LANGUAGE="VBSCRIPT"%>


上载文件


您的文件已经上传成功!.

<%Set upl=Server.CreateObject("SoftArtisans.FileUp")%>
<%upl.SaveAs(Server.MapPath("upload/"&Time()&".zip"))%>
文件长度:<%=upl.TotalBytes%>

万木春
职务：普通成员
等级：1
金币：0.0
发贴：165
注册：2002/6/17 21:30:27
#92003/7/16 12:34:54
allinhands把您的代码全部复制到UP.ASP出现以下错误:

无法显示网页
您要访问的网页有问题，无法显示。
HTTP 500 - 内部服务器错误
Internet Explorer



缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
#102003/7/16 13:55:45
<%@LANGUAGE="VBSCRIPT"%>


上载文件


<%
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = fname&Int((right(fname,4) - 0 + 1) * Rnd + 0)
%>
您的文件已经上传成功!.

<%Set upl=Server.CreateObject("SoftArtisans.FileUp")%>
<%upl.SaveAs(Server.MapPath("upload/"&fname&".zip"))%>
文件长度:<%=upl.TotalBytes%>