【www.gdgbn.com--php函数】

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

本文来源：http://www.gdgbn.com/jiaocheng/2893/