1. 爱易网页
  2. ASP教程
  3. 检查上传文件是否存在同名文件并改名的源代码

检查上传文件是否存在同名文件并改名的源代码

日期：2011-12-05　 浏览次数：21169 次

功能：检查当前目录下是否存在指定的文件，如果存在就重新命名

<%
function JudgeFileExit(strFileName)
Dim objFSO,objFile,objFJ
Dim strFilePath
Dim blFJ
Dim intFlag
intFlag=0
set objFSO=CreateObject("Scripting.FileSystemObject")
strFilePath=server.MapPath("./")
if right(strFilePath,1)<>"/" or right(strFilePath,1)<>"\" then
strFilePath=strFilePath&"\"
end if
blFJ=objFSO.FileExists(strFilePath&strFileName)
do while blFJ=true
intFlag=intFlag+1
blFJ=objFSO.FileExists(strFilePath &intFlag&strFileName)
loop


if intFlag=0 then
JudgeFileExit= strFileName
else
JudgeFileExit=intFlag&strFileName
end if
set objFSO=nothing
end function
Response.Write JudgeFileExit("22.htm")
%>

相关资料更多>

  1. ASP中有关timeout超时的体会
  2. ASP技巧：网站的防盗链系统是如何做的？
  3. Script Encoder 语法
  4. 图片渐渐显示（遂点谈入）_脚本编码_ASP教程
  5. ASP分页难题求解 ,搜索结果点"下一页"却显示全部记录?详细给高分>>解决思路
  6. 一个非常酷的进度条，实现简单。加入精华？
  7. 如何完整纪录站内所有网页点选次数(转)
  8. 不管小弟我t1选了多少个，上面的id只能读取到一个
  9. ActiveX 部件不能创建对象解决思路