Question

紧急：ASP中如何保留上传图片的原文件名？

我想将新上传的图片文件名命名为"原有文件名_自定义文件名.后缀名"的格式，而现在的代码是保存为“上传日期自定义的文件名”，上传页面的asp代码可以在这里查看——http://www.footballimage.net/UpLoadClass.txt

应该是在里面的这一段进行修改吧，尝试了几次，没有结果，请指教——
Public Function GetFileName()
Dim RanNum,MyDay,MyHou,MyMin,MySec,TmpTime,m
lngTime = lngTime+1
TmpTime = Array(Year(Now()),Month(Now()),Day(Now()),Hour(Now()),Minute(Now()),Second(Now()))
TmpTime(0) = String(4-Len(TmpTime(0)),"0")&TmpTime(0)
For m = 1 To Ubound(TmpTime)
TmpTime(m) = String(2-Len(TmpTime(m)),"0")&TmpTime(m)
Next
GetFileName = TmpTime(0)
For m = 1 To Ubound(TmpTime)
GetFileName = GetFileName&TmpTime(m)
Next
GetFileName = GetFileName & lngTime
End Function

不知道怎么修改，紧急，万分感谢！
感谢1楼的回答！能否帮忙提供个代码页面，万分感谢啊！！

Answer 1

这还不简单,只不过你没有提供文件名变量的名称，我这里自己定义了：
Public Function GetFileName()
dim FileName,DIYname
'源文件名
FileName=Request("Filename")
'自定义文件名
DIYname=Request("DIYname")
GetFileName=FileName&"_"DIYname
End Function
有什么不懂得可以到我的blog问我，我不经常来的。

Answer 2

这个问题解决思路是：在上传时读取的二进制流代码中截取其中包含的源文件名信息，然后再改变 GetFileName 函数。