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

    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">
<!--
function chk()
{
    var forma=document.strform;
    if(forma.pfolder.value=="")
    {
        alert("文件夹地址不能为空");
        forma.pfolder.focus();
        return;
    }
    else 
    {
        forma.pfolder.value=forma.pfolder.value.replace(///g,"");
        forma.pfolder.value=forma.pfolder.value.replace(/。/g,".");
    }
    if(forma.lookstr.value=="")
    {
        alert("查找字符串不能为空！");
        forma.lookstr.focus();
    }
    else if(forma.replacestr.value=="")
    {
        alert("替换查找的字符串不能为空");
        forma.replacestr.focus();
    }
    else
    {
        forma.submit();
    }
}