在线查找/正则替换文件中文本的网页接口(asp)

<%
response.Charset = "gb2312"
dim passText
passText = "xxyyaabb" '检验用的密码字符串
sub mygetfolder(ByVal path)
     
      dim fp,fd
     
      On Error Resume Next      
      set fp = fso.getFolder(path)
     
      if Err.Number > 0 then
         response.write(path & " <font color=red>获取目录句柄失败.终止页面:" & Err.description & "</font><br>")
         response.end
      else
        response.write(path & " 获取目录句柄成功!<br>")
      end if
     
      On Error GoTo 0    
   
      if fp.name =  request("bkFolder") then
        response.write(path & " 备份文件夹中文件不必处理<br>")
        exit sub
      end if
           
      response.write(path & "\ 正在处理...<br>")
      dim newPath, newType, EName
      newPath = ""
      newType = ""
     
      for each fd in fp.SubFolders
          newPath = newPath & ",""" & replace(path, "\", "\\") & "\\" & fd.Name & """"
      next
     
      if newPath <> "" then