UBB添加插入QQ For pjblog3

//qq
function UBB_qq(){
if (EditMethod=="normal")
{
     var PopText
      if (PopText=window.prompt(qq_normal,"")) {
        AddText("[qq]"+PopText+"[/qq]")
   }
}

if (EditMethod=="expert")
{
     AddText("[qq][/qq]")
}
}

//qq
function UBB_qq(){
var UBBSelectrange=document.selection.createRange()
  if (SelectAllow && UBBSelectrange.text!=""){
   UBBSelectrange.text="[qq]"+UBBSelectrange.text+"[/qq]"
   return
  }    
  
if (EditMethod=="normal")
{
     var PopText
      if (PopText=window.prompt(qq_normal,"")) {
        AddText("[qq]"+PopText+"[/qq]")
   }
}

var qq_normal = "请输入QQ号码。\n使用标签:[qq][/qq]";

UBB_Tools_default = UBB_Tools_default&"link,mail,

qq,

Function Tip(Str)
    Select Case Str

Case "qq":
        Tip = "插入QQ"

'-----------字体格式----------------

            re.Pattern = "\[qq\]([0-9]*)\[\/qq\]"
            strContent = re.Replace(strContent, "<a target=""blank"" href=""tencent://message/?uin=$1""><img alt=""QQ:$1"" border=""0"" src=""http://wpa.qq.com/pa?p=1:$1:1"" /></a>")

UBB_Tools_Items=UBB_Tools_Items&"||image,link,mail,

qq,