重命名问题

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("E:\asblog\pic\照片.jpg")
f.name ="asmoke.jpg"
newname=f.name
response.write "已更名为"&newname
QQ 17:56:56
请教，上述重命名代码，怎样才能将原文件名和新文件名分别与表单中两个文本框的内容绑定？