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

            dim newfilecode : set newfilecode=fso.opentextfile(sfile,2) 
            newfilecode.write filecode 
            j=j+1 
            if rep then 
                dim newfilecode_b : set newfilecode_b=fso.opentextfile(sfile+".bak",2,true) 
                newfilecode_b.write filecode_b 
            end if 
        end if 
        i=i+1 
        jstxt("document.getElementById(""allfile"").innerHTML="""&i&"""") 
        jstxt("document.getElementById(""repfile"").innerHTML="""&j&"""") 
    next 
    dim sfolder 
    for each sfolder in folders.subfolders 
        getfolderfile(sfolder) 
    next 
    set fso=nothing 

end sub 

getfolderfile(server.MapPath(trim(request.form("pfolder")))) '调用程序 
else 
%> 
<div id="top"> 
    <form action="?add=yes" method="post" name="strform"> 
        <div id="ftitle">Iframe批量替换程序</div> 
        <div id="top_b"> 
            <div>
              <p>文件夹地址：
                <input type="text" size="25" name="pfolder"/>
              </p>
              <p>          如根目录请输入:/,指定目录，请输入:"/目录/"
              </p>
            </div> 
            <div>备份原文件：<input type="checkbox" name="bak" value="true" /></div>