给大家帖个函数！检查当前目录下是否存在指定的文件，如果存在就重新命名。

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