|
|
主题: 向各位高手请教如何能上传不止一个文件？
|
万木春
职务：普通成员
等级：1
金币：0.0
发贴：165
|
#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
|
#22003/7/11 15:07:39
从文件名上做文章，让文件名不可能一样就行了
|
万木春
职务：普通成员
等级：1
金币：0.0
发贴：165
|
#32003/7/14 8:55:46
这段代码如何写？
|
浮尘
职务：普通成员
等级：3
金币：7.0
发贴：1258
|
#42003/7/14 9:21:22
去找化境的无组件上传看看。
|
{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
|
#52003/7/14 14:32:13
<%upl.SaveAs(Server.MapPath("upload/[color=red]abc.zip[/color]"))%>红色的部分是上传的文件名。 改一下那个就可以。 另外，可以把整个程序贴一下吗？ 我挺感兴趣的～～
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#62003/7/14 15:12:16
你可以去随机数加上时间来避免文件名重复
|
万木春
职务：普通成员
等级：1
金币：0.0
发贴：165
|
#72003/7/15 8:50:13
行者我知道是abc.zip，可是不知道如何改，我把全部代码贴出来：
upload.htm
请上载文件
up.asp
<%@LANGUAGE="VBSCRIPT"%>
上载文件
您的文件已经上传成功!.
<%Set upl=Server.CreateObject("SoftArtisans.FileUp")%>
<%upl.SaveAs(Server.MapPath("upload/abc.zip"))%>
文件长度:<%=upl.TotalBytes%>
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#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
|
#92003/7/16 12:34:54
allinhands把您的代码全部复制到UP.ASP出现以下错误:
无法显示网页
您要访问的网页有问题，无法显示。
HTTP 500 - 内部服务器错误
Internet Explorer
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#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%>
|
