以下代码可以做到在光标处插入代码，如果有选择区域，则会使用选择区域生效。

1、vbcode.js文件中
替换函数vbcode为下面内容
复制代码 代码如下:
functionvbcode(theform,vbcode,prompttext){
　if(theform.message.createTextRange&&theform.message.caretPos){
　　varcaretPos=theform.message.caretPos;
　　if(caretPos.text.length>0)
　　　caretPos.text="["+vbcode+"]"+caretPos.text+"[/"+vbcode+"]";
　　else
　　　caretPos.text="["+vbcode+"]"+"[/"+vbcode+"]";
　}
　theform.message.focus();
}

替换函数fontformat为下面内容
复制代码 代码如下:
functionfontformat(theform,thevalue,thetype){
　if(theform.message.createTextRange&&theform.message.caretPos){
　　varcaretPos=theform.message.caretPos;
　　if(caretPos.text.length>0)
　　　caretPos.text="["+thetype+"="+thevalue+"]"+caretPos.text+"[/"+thetype+"]";
　　else
　　　caretPos.text="["+thetype+"="+thevalue+"]"+"[/"+thetype+"]";
　}
　theform.sizeselect.selectedIndex=0;
　theform.fontselect.selectedIndex=0;
　theform.colorselect.selectedIndex=0;
　theform.message.focus();
}

替换函数smilie为下面内容
复制代码 代码如下:
functionsmilie(thesmilie){
//insertssmilietext
　if(document.vbform.message.createTextRange&&document.vbform.message.caretPos){
　　varcaretPos=document.vbform.message.caretPos;
　　caretPos.text=thesmilie;
　}
　document.vbform.message.focus();
}

加入下面代码
复制代码 代码如下:
functionstoreCaret(textEl){
　if(textEl.createTextRange)
　　textEl.caretPos=document.selection.createRange().duplicate();
}

2、color.js文件
查找函数insertTag替换成下面内容
复制代码 代码如下:
functioninsertTag(MyString)
{
　bbopen=''
　bbclose='';

　if(MM_findObj('message').createTextRange&&MM_findObj('message').caretPos){
　　vartext=bbopen+bbclose;
　　varcaretPos=MM_findObj('message').caretPos;
　　if(caretPos.text.length>0)
　　　caretPos.text=bbopen+caretPos.text+bbclose;
　　else
　　　caretPos.text=text;
　}else{
　　MM_findObj('message').value+=bbopen+bbclose;
　}
　MM_findObj('message').focus();
　return;
}

3、修改editpost、newthread和newreply模板
查找
$postinfo[message]
替换成
$postinfo[message]