% 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=intFla...
[ 查看全文 ]