关于文件上传，重名覆盖的问题，请高手帮忙，谢谢！！

Question

上传文件，如果不存在则上传。  
如果存在则出现提示confirm('已存在此文件名，是否替换？')，替换则进行文件替换，或者取消  
Dim  filesplit()  As  String  =  Split(FileUp.PostedFile.FileName,  "\")  
Dim  Filename  As  String  =  filesplit(filesplit.Length  -  1)  
Dim  filePath  As  String  =  Server.MapPath("..\Pictures\")  &  Filename  
If  File.Exists(filePath)  Then  
         Response.Write("<script>if(confirm('已存在此文件名，是否替换？'))????</script>")  
         '这边怎么写？  
         if  替换  then  
                 FileUp.PostedFile.SaveAs(Server.MapPath("..\Pictures\")  &  Filename)  
         else  
                 取消    
else  
         FileUp.PostedFile.SaveAs(Server.MapPath("..\Pictures\")  &  Filename)  
end  if  
请问中间一块判断的怎么写？谢谢！

Answer 1

if confirm（）{
    替换******
}
else{
 return false;
}
confirm函数当用户按确定返回的是true

Answer 2

Response.Write("<script language='javascript'>if(confirm('已存在此文件名，是否替换？') == true){document.FormUpload.TxtExist.value=1;}else{document.FormUpload.TxtExist.value=0;}</script>")
为什么提示document.FormUpload.TxtExist为空或不是对象？？？
我aspx状态下测试这样写是没有问题的。

Answer 3

先探测
if 存在 then
  if confirm.... then
    上传代码
  else
    返回
  end if
else
  直接上传
end if
   

Answer 4

ksn520(泡菜.Net) ：
if confirm.... then
    上传代码这段怎么写啊？关键部分！

Answer 5

再来一次交互呀。
在服务器端放一个变量，Default 为1
 Response.Write("<script>if(confirm('已存在此文件名，是否替换？'))????</script>")  
如果这里点是，则传回一个QueryString,值为2，
在服务器端处理，如果QueryString为2，则替换，否则，不处理了。