功能:检查当前目录下是否存在指定的文件,假如存在就重新命名
<% 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") %>
网络建设业务咨询
TEl:13626712526