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

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