一次性将多外文件中的相同内容替

我本人就是一个懒汉，不过懒汉有自己的方法．我的一个程序中很多文件中地方都用到了同样的语句，但后来才发现，有一个共同的地方需要更改，虽然文件也有五十个左右，也不想一个一个的去改，觉得这是对作为程序员的一种侮辱．呵呵，严重了．所以就编写了下面这个程序，一下就搞定．

其实原来写过，不过，搞忘了．所以这里贴出来，以便于将来查找．

（注：你要替换的内容，最好在文件中是唯一的．否则也许会把你不想替换的地方也替换掉了哦@_@）

<%
 dim picWidth,picHeight
 picWidth=600
 picHeight=400
 on error resume next
 function get_extend_name(file_name,action_type)'取得文件的扩展名或文件名
  n1=instrrev(file_name,".")    '得到文件名.的位置
  lengtext=len(file_name)     '得到文件名长度
  n2=cint(lengtext)-cint(n1)+1
  if action_type=2 then
   exname=left(file_name,cint(lengtext)-n2)      '得到文件名的扩展名
  elseif action_type=1 then
   exname=right(file_name,n2)      '得到文件名的扩展名
  end if
  get_extend_name=Lcase(exname)   '返回文件名的扩展名
 end function
 function getFile(path)'取得指定路径下的全部文件
  dim FSO,thisPath,objFile,objFolders,objSubFolders
  dim txt,readContent
  dim Out
  dim ForWriting
  ForWriting=2'打开文件用于写入
  thisPath=Server.MapPath(path)
  set FSO=Server.CreateObject("Scripting.FileSystemObject")
  set objFolders=FSO.getFolder(thisPath)
  for each objFile in objFolders.files
   if Replace(get_extend_name(objFile.name,1),".","")="asp" then
    set txt=FSO.openTextFile(Server.mapPath(objFile.name),1)
    readContent=txt.readAll
    Response.write "文件读取完成"&"<br>"
    txt.close
    readContent=Replace(readContent,"if Replace(get_extend_name(objFile.name,1),""."","""")=""jpg"" then","if Replace(get_extend_name(objFile.name,1),""."","""")=""jpg"" or Replace(get_extend_name(objFile.name,1),""."","""")=""gif"" then")
    '写入文件：方法一
    '''''''''''''''''
    'Set txt=FSO.CreateTextFile(Server.mapPath(objFile.name))'新建一个同名文件，取代原来的文件
    'txt.writeLine(readContent)'这里为什么可以只有这个writeLine文件就可以?
    '''''''''''''''''
    '写入文件：方法二
    '''''''''''''''''
    Set txt=FSO.OpenTextFile(Server.mapPath(objFile.name),ForWriting,true)
    txt.write readContent
    '''''''''''''''''
    Response.write "文件写入完成"&"<br>"
    txt.close
   end if
   if err.number>0 then
    response.write err.description
    err.clear
   end if
  next  
  set objFile=nothing
  set objFolders=nothing
  set FSO=nothing
 end function
 call getFile("/")
%>