首页 | 免费域名 | 个人服务器 | 一流信息监控拦截系统 | 虚拟主机知识库 | ASP 空间 | ASP技术大全 | 下载中心 | 客户服务中心
  7i24 > ASP技术大全 > 代码乐园 >
    7i24 .Com  
  检查当前目录下是否存在指定的文件,如果存在就重新命名

7i24.Com不停为您服务

<%
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")
%>



  2002年3月26日  阅读 2813 次  发送此页给朋友  来源: kendylan    版权争议  删除

相关文章:   近期热点:

上一篇: 限制只能中文输入的方法
下一篇: 树型结构在ASP中的简单解决
返回上一层...
搜索:

(C)2004-2022 7i24.Com 保留所有权利