上传文件的时候，如果服务器上有同名的文件弹出提示覆盖否怎么做

[sisiz]

化境上传好象没有这个功能，这个能做吗？

[liuyangxuan]

FileSystem 遍历目录游览

[life360]

写个判断函数，若存在提示是否执行。

[阿泰]

:)
不需要遍历
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
'判断文件是否存在
If objFSO.FileExists(Server.MapPath(strFileName))=True Then
Response.Write "同名文件已经存在"
'此处可以增加另外的技巧性操作
Response.End
End If

[cpio]

一个隐藏文本框<input type=hidden name=a value="0">

保存文件页面可以读取到a的值，如果为1为覆盖，否则

如果找到重名文件
if(confirm("有重名文件，是否覆盖？"))formname.a.value=1;


其实你可以事件就提示一下，这样不用两次执行服务器操作