#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
%>