用asp实现的iframe批量替换工具(2)

    <div id="top_b"> 
        <div> 
            总文件:<span style="color:red" id="allfile"> </span>个   
            替换过文件:<span style="color:red" id="repfile"> </span>个 
        </div> 
        <div><br />被替换过文件路径列表↓<textarea id="txtreple" style="height:300px;overflow:auto"></textarea>
        </div> 
      <div id="copyr"><br />
      </div> 
    </div> 
</div> 
<% 
dim oldstr :oldstr=request.form("lookstr")  '源字符串 
dim newstr :newstr=request.form("replacestr") '新字符串 
dim rep : rep=cbool(request.form("bak"))   '是否备份文件，true为备份文件 
dim i : i=0  '总文件个数 
dim j : j=0  '被替换的文件个数 
function chkexistsfile(path) '判断一个文件是否存在，如果存在，返回true，否则返回false 
    dim fso 
    set fso=server.createobject("scripting.filesystemobject") 
    if fso.fileexists(path) then 
        chkexistsfile=true 
    else 
        chkexistsfile=false 
    end if 
    set fso=nothing 
end function 
function getfilecode(TemplateFname) '获取一个文件的代码 
    Dim FSO, FileObj, FileStreamObj 
            Set FSO = CreateObject("scripting.filesystemobject")
              If FSO.FileExists(TemplateFname) = False Then
               getfilecode=""
              Else
                Set FileObj = FSO.GetFile(TemplateFname)
                Set FileStreamObj = FileObj.OpenAsTextStream(1)