关于asp上传文件的原文件名？

当上传文件成功后，输出XXX名件上传成功，可是不知怎样才知原文个名？
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
response.write (GetFileName)
Else
GetFileName = ""
End If
End function

strFileName = Request.TotalBytes
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.Write Request.BinaryRead(strFileName)
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
response.write ”XXX文件上传成功！"

%>

请教大家一个关于ASP程序上传附件时保留原文件名的问题。（重金悬赏） 关于asp上传文件进度条? 关于ASP上传文件代码 关于.asp文件上传的问题?各位帮帮忙! ASP上传文件的问题 关于ASP空间文件上传问题 关于ASP照片的上传 ASP上传文件后修改上传文件的后缀名 关于文件的上传 急！关于asp上传文件路径到数据库后，如何显示文件的问题