|东莞速达软件|东莞财务软件|东莞ERP软件|东莞电脑维护|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司|网站制作|网站开发|--给大家帖个函数！检查当前目录下是否存在指定的文件，如果存在就重新命名。

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

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

<%

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

%>

本站关键词：

|东莞速达软件|东莞财务软件|东莞ERP软件|东莞电脑维护|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司|网站制作|网站开发||东莞速达软件|东莞财务软件|东莞ERP软件|东莞电脑维护|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司|网站制作|网站开发||东莞速达软件|东莞财务软件|东莞ERP软件|东莞电脑维护|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司|网站制作|网站开发||东莞速达软件|东莞财务软件|东莞ERP软件|东莞电脑维护|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司|网站制作|网站开发|