给大家帖个函数！检查当前目录下是否存在指定的文件，如果存在就重新命名。
所属类别：Asp
文章作者：佚名
特别推荐：免费发布信息 承包关键词~~抢爆了！HOT!
<%function JudgeFileExit(strFileName)Dim objFSO,objFile,objFJDim strFilePathDim blFJDim intFlagintFlag=0set objFSO=CreateObject("Scripting.FileSystemObject")strFilePath=server.MapPath("./")if right(strFilePath,1)<>"/" orright(strFilePath,1)<>"\" thenstrFilePath=strFilePath&"\"end ifblFJ=objFSO.FileExists(strFilePath&strFileName)do while blFJ=trueintFlag=intFlag+1blFJ=objFSO.FileExists(strFilePath &intFlag&strFileName)loopif intFlag=0 thenJudgeFileExit= strFileNameelseJudgeFileExit=intFlag&strFileNameend ifset objFSO=nothingend functionResponse.Write JudgeFileExit("22.htm")%> 关闭本页
相关信息· 双系统删除Linux,Windows不能启动
· Linux将取代Unix操作系统 开始新的应用
· 使用.NET自带的类实现DataGrid报表的打印。
· 不同的类UNIX操作系统密码破解方法介绍
47080
54983