📄 insertsearch.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
<HTML>
<HEAD>
<TITLE>查找 / 替换</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<script language="JavaScript">
var SelectionObj;
SelectionObj = dialogArguments.document.selection.createRange();
function SearchType()
{
    var MatchCase = 0;
    var MatchWord = 0;
    if (document.SearchForm.BtnMatchCase.checked) MatchCase = 4;
    if (document.SearchForm.BtnMatchWord.checked) MatchWord = 2;
    return(MatchCase+MatchWord);
}
function CheckInput()
{
    if (document.SearchForm.TxtSearch.value.length < 1) 
	{
        alert("请输入查找内容");
        return false;
    } 
	else 
	{
        return true;
    }
}
function SearchText()
{
    if (CheckInput()) 
	{
        var SearchValue = document.SearchForm.TxtSearch.value;
        SelectionObj.collapse(false);
        if (SelectionObj.findText(SearchValue,100,SearchType())) SelectionObj.select();
		else 
		{
            if (confirm("搜索完成，是否要从顶部开始重新搜索？")==true) 
			{
                SelectionObj.expand("textedit");
                SelectionObj.collapse();
                SelectionObj.select();
                SearchText();
            }
        }
    }
}
function SearchNextText()
{
	SearchText();
}
function ReplaceText()
{
    if (CheckInput()) 
	{
        if (document.SearchForm.BtnMatchCase.checked)
		{
            if (SelectionObj.text == document.SearchForm.TxtSearch.value) SelectionObj.text = document.SearchForm.TxtReplace.value;
        } 
		else 
		{
            if (SelectionObj.text.toLowerCase() == document.SearchForm.TxtSearch.value.toLowerCase()) SelectionObj.text = document.SearchForm.TxtReplace.value;
        }
        SearchText();
    }
}
function ReplaceAllText()
{
    if (CheckInput()) 
	{
        var SearchValue = document.SearchForm.TxtSearch.value;
        var WordCount = 0;
        var Massage = "";
        SelectionObj.expand("textedit");
        SelectionObj.collapse();
        SelectionObj.select();
        while (SelectionObj.findText(SearchValue,100,SearchType()))
		{
            SelectionObj.select();
            SelectionObj.text = document.SearchForm.TxtReplace.value;
            WordCount++;
        }
        if (WordCount == 0) Massage = "要查找的内容没有找到"
        else Massage = WordCount + " 处文本被替换成功";
        alert(Massage);
		window.close();
    }
}
</script>

<link href="Editor.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="menu" leftmargin="10" topmargin="10" marginwidth="10" marginheight="10">
<FORM NAME="SearchForm" method="post" action="">
  <br>
  <TABLE border="0" align="center" cellpadding="0" CELLSPACING="0">
    <TR>
      <TD width="220"><fieldset>
        <legend><b>查找 / 替换设置</b></legend>
        <TABLE CELLSPACING="0" cellpadding="5" border="0">
          <TR> 
            <TD VALIGN="top" align="left" nowrap> <label for="strSearch">查找内容</label>
              <br> 
              <INPUT TYPE=TEXT SIZE=40 NAME=TxtSearch id="TxtSearch" style="width : 200px;"> 
              <br> <label for="strReplace">替换内容</label> <br> <INPUT TYPE=TEXT SIZE=40 NAME=TxtReplace id="TxtReplace" style="width : 200px;"> 
              <br> </td>
          </tr>
          <TR> 
            <TD VALIGN="top" align="left" nowrap><input type=Checkbox size=40 name=BtnMatchCase id="BtnMatchCase"> 
              <label for="blnMatchCase">区分大小写</label> <input type=Checkbox size=40 name=BtnMatchWord id="BtnMatchWord"> 
              <label for="blnMatchWord">全部匹配</label></td>
          </tr>
        </table>
        </fieldset></td>
      <td>&nbsp;</td>
<td rowspan="2" valign="top">
    <input type=button style="width:80px;margin-top:15px" name="btnFind" onClick="SearchText();" value="查找下一个"><br>
    <input type=button style="width:80px;margin-top:5px" name="btnCancel" onClick="window.close();" value="关闭"><br>
    <input type=button style="width:80px;margin-top:5px" name="btnReplace" onClick="ReplaceText();" value="替换"><br>
    <input type=button style="width:80px;margin-top:5px" name="btnReplaceall" onClick="ReplaceAllText();" value="全部替换"><br>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -