请教一个ASP程序的问题，关于附件上传保留原名的问题。

来源：百度知道 编辑：UC知道 时间：2024/05/11 02:23:20
以下是我上传页面的代码，我看不太懂。请教一下，现在上传完附件会自动将附件名改为（用户名+日期+编码）这样的名字。我想保留原名，怎么办呢？
-----------------------------------------------------------------
由于代码太多，这里不让传，我做成HTML了。地址是http://www.babyfaceshop.cn/asp.html 。请大高帮帮我。

找到这段：
set f = fileup.files("file0")
FileName1 = lcase(f.fileName)
ExtName = GetFileExtName(FileName1,1)
AccSaveName = Account&Nowtime&"."&ExtName

f.fileName 就是你上传的文件原名，把下面用随想日期替换的，改为它就行了
既：把
AccSaveName = Account&Nowtime&"."&ExtName
改为：AccSaveName = f.fileName
或者直接
SaveRs("AccName") = ImpStrCheck(AccSaveName,"NSpace")
改为：
SaveRs("AccName") = ImpStrCheck(f.fileName,"NSpace")
也行

AccSaveName = FileName1
试试

这一段中的AccSaveName
'删除文件
set TempFs = Server.CreateObject("Scripting.FileSystemObject")
if TempFs.FileExists(Server.Mappath(AccUpPath&Memo_Link)) then
TempFs.DeleteFile Server.Mappath(AccUpPath&Memo_Link),True
end if
end if
Randomize
AccSaveName = Account&Nowtime&cint(rnd*100)&"."&ExtName
f.Saveas Server.MapPath(AccUpPath)&"\"&AccSaveName