字符批量替换程序asp服务器版(4)

            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(trim(request.form("pfolder"))) '调用程序

else
%>
<div id="top">

    <form action="?add=yes" method="post" name="strform">

        <div id="ftitle">字符批量替换程序</div>
        <div id="top_b">

            <div>文件夹地址：<input type="text" size="25" name="pfolder"/></div>
            <div>备份原文件：<input type="checkbox" name="bak" value="true" /></div>
            <div><br />查找字符串↓<textarea name="lookstr"></textarea></div>
            <div><br />替换查找的字符串↓<textarea name="replacestr"></textarea></div>
            <div id="btm"><input type="button" value=" 确定 " onclick="chk()"/></div>
            <div id="copyr"><br />风云制作  hezhiwu5@163.com  2007-3-12</div>

        </div>

    </form>
</div>
<SCRIPT type="text/javascript" LANGUAGE="JavaScript">