Question

高分求详细解答ASP文件上传中获取和修改文件名

求解ASP文件上传过程中获取和修改文件名代码 这段代码是用获取上传文件的时间后6位当文件名，但是我想用原文件名。Function GetSaveFileName(name)
Dim ExtendFileName,TempNum,Temp,PhotoDirectory
PhotoDirectory=File_Path '获取上传目录
name = Lcase(name)
name = "1" & Mid(name,inStrRev(name,"."))
ExtendFileName = Mid(name,inStrRev(name,"."))
TempNum = Right(GetTimeValue(DEF_Now),6)
GetSaveFileName = TempNum & ExtendFileName
On Error Resume Next
Set FS = CreateObject(File_FSO)
If File_FSO = "" or err <> 0 Then
Err.Clear
GetSaveFileName = Left(GetTimeValue(DEF_Now),8) & GetSaveFileName
PhotoDir = Server.MapPath(PhotoDirectory) & "\"
Set Fs = Nothing
Exit Function
如有愿意详细说明这段代码每句意思，另外悬赏高分。

Answer 1

可符合LZ所需

追问

请问可以给我看看吗？非常感谢！

追答

可以把源码email给你

追问

superman411@126.com谢谢了

追答

已然发送，请查收，别忘了给分

Answer 2

Dim ExtendFileName,TempNum,Temp,PhotoDirectory '定义变量
PhotoDirectory=File_Path '获取上传目录
name = Lcase(name) '文件名转为小写
name = "1" & Mid(name,inStrRev(name,".")) '找出文件后缀名
ExtendFileName = Mid(name,inStrRev(name,".")) '后缀名
TempNum = Right(GetTimeValue(DEF_Now),6) '时间串的右边6位
GetSaveFileName = TempNum & ExtendFileName '拼上后缀名
On Error Resume Next
Set FS = CreateObject(File_FSO) 'FSO对象
If File_FSO = "" or err <> 0 Then
Err.Clear
GetSaveFileName = Left(GetTimeValue(DEF_Now),8) & GetSaveFileName '时间串左8位 + GetSaveFileName 变量
PhotoDir = Server.MapPath(PhotoDirectory) & "\"
Set Fs = Nothing
Exit Function
---------------------------
想用原名的话，最后GetSaveFileName=name就行了。

追问

请问具体怎么做呢？是不是把这句TempNum = Right(GetTimeValue(DEF_Now),6) 删除，然后接
GetSaveFileName=name，我试了下好像不行，文件名字还是数字，是不是跟后面你妹解释的代码有关呢？后面具体是什么意思呢？菜鸟求解，辛苦！

追答

用你的代码改，只要 把倒数第4行改成GetSaveFileName=name就行了

追问

倒数第四行改了还是没变化。真心急人。