求救:向文本框中鼠标点击处插入一段内容

http://lucky.myrice.com/javascriptexam/textrange.htm

解决方案 »

  1.   

    <HTML>
         <HEAD>
         <SCRIPT>
         function storeCaret (textEl) {
           if (textEl.createTextRange) 
             textEl.caretPos = document.selection.createRange().duplicate();
         }
         function insertAtCaret (textEl, text) {
           if (textEl.createTextRange && textEl.caretPos) {
             var caretPos = textEl.caretPos;
             caretPos.text =
               caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?
                 text + ' ' : text;
           }
           else
             textEl.value  = text;
         }
         </SCRIPT>
         </HEAD>
         <BODY>
         <FORM NAME="aForm">
         <TEXTAREA NAME="aTextArea" ROWS="5" COLS="80" WRAP="soft"
                   ONSELECT="storeCaret(this);"
                   ONCLICK="storeCaret(this);"
                   ONKEYUP="storeCaret(this);">hahaha
         </TEXTAREA>
         <BR>
         <INPUT TYPE="text" NAME="aText" SIZE="80" VALUE="sdfsdfsdf">
         <BR>
         <INPUT TYPE="button" VALUE="insert" ONCLICK="insertAtCaret(this.form.aTextArea,this.form.aText.value);">
         </FORM>
         </BODY>
         </HTML>
      

  2.   

    非常感谢net_lover(孟子E章) 及“liushukai810627”，这不仅仅是给分及分多分少的问题，再次向你们的热情及助人的精神表示感谢！