文件上传问题，谢谢

[xmanvictor]

使用lyfupload组件如何获得当前文件的文件名
例如要将客户机上的c:\111.dbf上传到服务器上，在服务器上保存为
d:\upload\filename.dbf
这个filename为提交时间和原文件名的组合，如何获得原来的文件名呢，谢谢

[qiangtian]

aa=obj.FileType ("file" & i & "")
filename="file" & i & ""
varfname=""
strPath=server.MapPath("../upload/image/")

ss1=obj.SaveFile (filename,strPath,true,varfname)
hz=len(ss1)-instr(1,ss1,".")
hz=right(ss1,hz)
Srvfile="" & ID & "_" & cstr(i) & ""
ss=Srvfile&"."&hz
yy=obj.savefile(filename,strPath,true,ss)

yy就是原文件名

[jhysky]

上传的时候会有一个<inpu type=file name=file1 value=上传>的按钮，表单提交后可通过ASP得到客户端目录及文件名，另外在客户端也可以得到具体的路径和文件名。如：
alert (document.all.file1.value);

[xmanvictor]

谢谢

[hozi]

filename="file1"
path=server.MapPath("../pic")
Set obj = Server.CreateObject("LyfUpload.UploadFile")
'txt = obj.request("text1") '得到form元素的值
obj.extname="gif,jpg,bmp"
obj.maxsize=100000
'Response.Write( "文本框1的输入值是： " & txt)
Response.Write "<br>"

aa=obj.filetype("file1") '获得原文件名
'上载后文件重命名，使用变量方式
if instr(aa,"gif") then
varfname=session("Pusername") & ".gif" '重命名
elseif instr(aa,"bmp") then
varfname=session("pusername") & ".bmp"
elseif instr(aa,"jpeg") then
varfname=session("pusername") & ".jpg"
end if