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

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

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

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

<%
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. 获取 数据库 字段,该怎么处理
  2. ASP常量对照表大全(4)
  3. 构建你的网站新闻自动发布系统之三
  4. asp.net MVC3 + JQuery 的ajax容易使用
  5. 关于css中对滚动条的一些东东，如果有用，加入精华备查吧。_客户端相关_ASP教程
  6. 100分求一asp使用XMLDOM的源代码。解决思路
  7. Spring 3.x企业应用开发实战(11)-基于@AspectJ配置剖面
  8. 用Application显示不出在线人数解决方法
  9. 解读ASP代码段,该如何解决