页面导航: 首页网络编程JavaScript应用技巧 → 正文内容

修改发贴的编辑功能

发布:dxy 发布日期:2007-3-7 字体:[增加 减小] 类型:转载
以下代码可以做到在光标处插入代码,如果有选择区域,则会使用选择区域生效。 
1、vbcode.js 文件中 
替换函数 vbcode 为下面内容 

function vbcode(theform,vbcode,prompttext) {  
 if (theform.message.createTextRange && theform.message.caretPos) {  
  var caretPos = theform.message.caretPos;  
  if(caretPos.text.length > 0)  
   caretPos.text = "["+vbcode+"]" + caretPos.text + "[/"+vbcode+"]";  
  else  
   caretPos.text = "["+vbcode+"]" + "[/"+vbcode+"]";  
 }  
 theform.message.focus();  
}  

替换函数 fontformat 为下面内容 

function fontformat(theform,thevalue,thetype) {  
 if (theform.message.createTextRange && theform.message.caretPos) {  
  var caretPos = 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 为下面内容 

function smilie(thesmilie) {  
// inserts smilie text  
 if (document.vbform.message.createTextRange && document.vbform.message.caretPos) {  
  var caretPos = document.vbform.message.caretPos;  
  caretPos.text = thesmilie;  
 }  
 document.vbform.message.focus();  
}  

加入下面代码 

function storeCaret(textEl) {  
 if (textEl.createTextRange)  
  textEl.caretPos = document.selection.createRange().duplicate();  
}  

2、color.js 文件 
查找函数 insertTag 替换成下面内容 

function insertTag(MyString)  
{  
 bbopen=''  
 bbclose='';  
 if (MM_findObj('message').createTextRange && MM_findObj('message').caretPos) {  
  var text = bbopen + bbclose ;  
  var caretPos = 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] 
百度中搜索更多的关于修改发贴的编辑功能内容,或者用Google搜索相关更多
浏览次数:载入中... 打印本文关闭本文返回首页

文章评论

共有 位脚本之家网友发表了评论我来说两句

同 类 文 章
最 近 更 新
热 点 排 行