主题:  为什么上传出现两个文件名

oooni

职务:普通成员
等级:2
金币:1.0
发贴:263
注册:2002/4/24 13:01:24
#12004/3/12 11:54:02
我是用的ud的asp上传插件结果用此办法重命名 然后在父级页输出到指定的文本框中
结果每次都是这样的:
2004312113017982.rar2004312113017982.rar
我的机子上是一个文件名 如:2004312113017982.rar 可是别的机子上确实是两个
我跳进黄河也洗不清啊
<% if request.querystring ("GP_upload") = true then %>
<%
Dim objFSO,MMFilename,TimeMM,FileType,fname
Dim sRnd
Randomize
sRnd = Int(900 * Rnd) + 100
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,"下午","")
MMFilename = UploadFormRequest("file") '获得上传文件名
FileType = Right(MMFilename,4) '获得上传文件的类型
TimeMM = fname&sRnd&FileType '使用一个时间数值来确定文件名
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("eWebEditor/UploadFile/"&MMFilename)) Then
objFSO.MoveFile Server.MapPath("eWebEditor/UploadFile/"&MMFilename), Server.MapPath("eWebEditor/UploadFile/"&TimeMM) '重命名文件
Else
Response.Write "产生错误,文件重命名失败!"
End If
Set objFSO = Nothing
%>
<% response. write("上传成功,请继续填写表单") %>
<script>parent.form1.d_path.value+='<%=TimeMM%>'</script>
<%
End If
%>



缺缺

职务:管理员
等级:8
金币:41.0
发贴:9620
注册:2004/1/14 19:14:47
#22004/3/13 9:31:18
<script>parent.form1.d_path.value='<%=TimeMM%>'</script>



另外,扩展名不是一定都是三位,比如四位的.html,两位的.ra.rm



oooni

职务:普通成员
等级:2
金币:1.0
发贴:263
注册:2002/4/24 13:01:24
#32004/3/13 10:11:30
多谢提醒 我试一下



oooni

职务:普通成员
等级:2
金币:1.0
发贴:263
注册:2002/4/24 13:01:24
#42004/3/13 10:26:10
还是一样的结果啊
问题如故



UC无限概念 站长

职务:普通成员
等级:2
金币:1.0
发贴:397
注册:2003/3/2 14:56:31
#52004/3/21 22:15:32
把这行<script>parent.form1.d_path.value+='<%=TimeMM%>'</script>
去掉呢