Let's post a function! Checks whether the specified file exists under the current directory and renames it if it exists.

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