ubb

/*
如有轉(zhuǎn)載，請(qǐng)注明作者

原作者: 何志強(qiáng)
改進(jìn):???SonyMusic[sonymusic@163.net]
文件:???ubb.php
備注:???說是改進(jìn)，其實(shí)核心函數(shù)parse()已經(jīng)完全重寫了，而且思路也是不一樣的。
????????不過仍是受何志強(qiáng)的例子的啟發(fā)，而且測試的例子還有URLCHECK等幾個(gè)函數(shù)也是沿用的何志強(qiáng)的程序，謝謝何志強(qiáng)。
????????目前還沒有顏色的功能，但我會(huì)加入的。
????????如果在程序上有什么BUG或不便的地方，請(qǐng)給我MAIL。
????????謝謝！
改進(jìn)功能:
????對(duì)字符串進(jìn)行UBB編碼,該類目前只支持下列幾個(gè)簡單且實(shí)用的編碼:
????1. URL褳接
???????http://phpuser.com/
???????http://頭可以不需要
???????如phpuser.com也是可以的。
????2. Email褳接
???????sonymusic@163.net
????3. 圖片褳接
???????
???????同URL鏈接一樣，前面的http也可以不要。
????4. 文字方面
???????粗體字
???????斜體字
???????加下劃線
???????

1號(hào)標(biāo)題字

...

6號(hào)標(biāo)題字

???????
???????
???????[tt][/tt]
???????[s][/s]
???????
???????[em][/em]
???????[strong][/strong]
???????
???????[samp][/samp]
???????[kbd][/kbd]
???????[var][/var]
???????[dfn][/dfn]
???????[cite][/cite]
???????
???????
???????
????注意以下幾點(diǎn):
????1. url,email,img等標(biāo)簽是不分大小寫的.
????2. 在標(biāo)簽中不允許有TAB鍵出現(xiàn)，但空格允許。
????3. 該類要調(diào)用htmlencode,htmlencode4textarea,emailcheck函數(shù)和urlcheck類.
????4. 修改后支持嵌套，但url,email,img這三個(gè)標(biāo)簽不是允許嵌套的。
技術(shù)資料:
????Ultimate Bulletin Board
????????http://www.ultimatebb.com/
????What is UBB Code
????????http://www.scriptkeeper.com/ubb/ubbcode.html
*/

include("urlcheck.php");
include("otherfunc.php"); //這兩個(gè)文件的內(nèi)容，附在最后。

//ubbcode類
class ubbcode{
????var $call_time=0;
???//可處理標(biāo)簽及處理函數(shù)對(duì)應(yīng)表
???var $tags = array(??//小寫的標(biāo)簽 => 對(duì)應(yīng)的處理函數(shù)
???????????????????????'url' => '$this->url',
???????????????????????'email' => '$this->email',
???????????????????????'img' => '$this->img',
???????????????????????'b' => '$this->simple',
???????????????????????'i' => '$this->simple',
???????????????????????'u' => '$this->simple',
???????????????????????'tt' => '$this->simple',
???????????????????????'s' => '$this->simple',
???????????????????????'strike' => '$this->simple',
???????????????????????'h1' => '$this->simple',
???????????????????????'h2' => '$this->simple',
???????????????????????'h3' => '$this->simple',
???????????????????????'h4' => '$this->simple',
???????????????????????'h5' => '$this->simple',
???????????????????????'h6' => '$this->simple',
???????????????????????'sup' => '$this->simple',
???????????????????????'sub' => '$this->simple',
???????????????????????'em' => '$this->simple',
???????????????????????'strong' => '$this->simple',
???????????????????????'code' => '$this->simple',
???????????????????????'samp' => '$this->simple',
???????????????????????'kbd' => '$this->simple',
???????????????????????'var' => '$this->simple',
???????????????????????'dfn' => '$this->simple',
???????????????????????'cite' => '$this->simple',
???????????????????????'small' => '$this->simple',
???????????????????????'big' => '$this->simple',
???????????????????????'blink' => '$this->simple'
????????????????????);
???//url褳接屬性
???var $attr_url;
???//url合法性檢查對(duì)象
???var $urlcheck;

???function ubbcode($attr_url){
??????$this->attr_url = ''.$attr_url;
??????$this->urlcheck = new urlcheck();
???}

???//對(duì)$str進(jìn)行UBB編碼解析
???function parse($str){
???????????$this->call_time++;
??????$parse = ''.htmlencode($str);

??????$ret = '';
??????while(true){
??????????$eregi_ret=eregi("\[[#]{0,1}[[:alnum:]]{1,7}\]",$parse,$eregi_arr); //查找[xx]
????????if(!$eregi_ret){
????????????$ret .= $parse;
????????????break;??//如果沒有，返回
?????????}
?????????$pos = @strpos($parse,$eregi_arr[0]);
?????????$tag_len=strlen($eregi_arr[0])-2;//標(biāo)記長度
????????$tag_start=substr($eregi_arr[0],1,$tag_len);
????????$tag=strtolower($tag_start);
????????
?????????if((($tag=="url") or ($tag=="email") or ($tag=="img")) and ($this->call_time>1)){
?????????????echo $this->call_time."
";
?????????????return $parse;//如果不能是不能嵌套的標(biāo)記，直接返回
????????}
????????
?????????$parse2 = substr($parse,0,$pos);//標(biāo)記之前
?????????$parse = substr($parse,$pos+$tag_len+2);//標(biāo)記之后
?????????if(!isset($this->tags[$tag])){
?????????????echo "$tag_start
";
????????????$ret .= $parse2.'['.$tag_start.']';
????????????continue;//如果是不支持的標(biāo)記
?????????}
????????
?????????//查找對(duì)對(duì)應(yīng)的結(jié)束標(biāo)記
?????????$eregi_ret=eregi("\[\/".$tag."\]",$parse,$eregi_arr);
?????????if(!$eregi_ret){
????????????$ret .= $parse2.'['.$tag_start.']';
????????????continue;//如果沒有對(duì)應(yīng)該的結(jié)束標(biāo)記
?????????}
?????????$pos=strpos($parse,$eregi_arr[0]);
?????????$value=substr($parse,0,$pos);//這是起止標(biāo)記之間的內(nèi)容
?????????$tag_end=substr($parse,$pos+2,$tag_len);
?????????$parse=substr($parse,$pos+$tag_len+3);//結(jié)束標(biāo)記之后的內(nèi)容
?????????
?????????if(($tag!="url") and ($tag!="email") and ($tag!="img")){
?????????????$value=$this->parse($value);
????????}

?????????$ret .= $parse2;
?????????eval('$ret .= '.$this->tags[$tag].'("'.$tag_start.'","'.$tag_end.'","'.$value.'");');
??????}
????????$this->call_time--;
??????return $ret;
???}

???function simple($start,$end,$value){
??????return ''.$value.''.$end.'>';
???}

???function url($start,$end,$value){
???????????$trim_value=trim($value);
????????if (strtolower(substr($trim_value,0,7))!="http://")
????????????$trim_value="http://".$trim_value;
??????if($this->urlcheck->check($trim_value)) return 'attr_url.'>'.$value.'';
??????else return '['.$start.']'.$value.'[/'.$end.']';
???}

???function email($start,$end,$value){
??????if(emailcheck($value)) return ''.$value.'';
??????else return '['.$start.']'.$value.'[/'.$end.']';
???}

???function img($start,$end,$value){
???????????$trim_value=trim($value);
????????if ((strtolower(substr($trim_value,0,7))!="http://") or ($this->urlcheck->check($trim_value)))
???????????????return '';
??????else return '['.$start.']'.$value.'[/'.$end.']';
???}
}

//測試
echo '';
echo '';
echo '';
echo '

';
echo ''.htmlencode4textarea($ubb).'
';
echo '';
echo '

';

if(isset($ubb)){
???$ubbcode = new ubbcode('target="_blank"');
???echo '

---

'.$ubbcode->parse($ubb);
}

echo '';
echo '';

?>

文件urlcheck.php的內(nèi)容
//urlcheck.php
class urlcheck{
???var $regex = array(//協(xié)議名(注意在這里必須寫成小寫) => 對(duì)應(yīng)的正則表達(dá)式
??????????????????????'ftp' => '$this->ftpurl',
??????????????????????'file' => '$this->fileurl',
??????????????????????'http' => '$this->httpurl',
??????????????????????'https' => '$this->httpurl',
??????????????????????'gopher' => '$this->gopherurl',
??????????????????????'news' => '$this->newsurl',
??????????????????????'nntp' => '$this->nntpurl',
??????????????????????'telnet' => '$this->telneturl',
??????????????????????'wais' => '$this->waisurl'
?????????????????????);

???var $lowalpha;
???var $hialpha;
???var $alpha;
???var $digit;
???var $safe;
???var $extra;
???var $national;
???var $punctuation;
???var $reserved;
???var $hex;
???var $escape;
???var $unreserved;
???var $uchar;
???var $xchar;
???var $digits;

???var $urlpath;
???var $password;
???var $user;
???var $port;
???var $hostnumber;
???var $alphadigit;
???var $toplabel;
???var $domainlabel;
???var $hostname;
???var $host;
???var $hostport;
???var $login;

???//ftp
???var $ftptype;
???var $fsegment;
???var $fpath;
???var $ftpurl;

???//file
???var $fileurl;

???//http,https
???var $search;
???var $hsegment;
???var $hpath;
???var $httpurl;

???//gopher
???var $gopher_string;
???var $selector;
???var $gtype;
???var $gopherurl;

???//news
???var $article;
???var $group;
???var $grouppart;
???var $newsurl;

???//nntp
???var $nntpurl;

???//telnet
???var $telneturl;

???//wais
???var $wpath;
???var $wtype;
???var $database;
???var $waisdoc;
???var $waisindex;
???var $waisdatabase;
???var $waisurl;

???function check($url){
??????$pos = @strpos($url,':',1);
??????if($pos??????$prot = substr($url,0,$pos);
??????if(!isset($this->regex[$prot])) return false;
??????eval('$regex = '.$this->regex[$prot].';');
??????return ereg('^'.$regex.'$',$url);
???}

???function urlcheck(){
??????$this->lowalpha = '[a-z]';
??????$this->hialpha = '[A-Z]';
??????$this->alpha = '('.$this->lowalpha.'|'.$this->hialpha.')';
??????$this->digit = '[0-9]';
??????$this->safe = '[$.+_-]';
??????$this->extra = '[*()\'!,]';
??????$this->national = '([{}|\^~`]|\\[|\\])';
??????$this->punctuation = '[#%"]';
??????$this->reserved = '[?;/:@&=]';
??????$this->hex = '('.$this->digit.'|[a-fA-F])';
??????$this->escape = '(%'.$this->hex.'{2})';
??????$this->unreserved = '('.$this->alpha.'|'.$this->digit.'|'.$this->safe.'|'.$this->extra.')';
??????$this->uchar = '('.$this->unreserved.'|'.$this->escape.')';
??????$this->xchar = '('.$this->unreserved.'|'.$this->reserved.'|'.$this->escape.')';
??????$this->digits = '('.$this->digit.'+)';

??????$this->urlpath = '('.$this->xchar.'*)';
??????$this->password = '(('.$this->uchar.'|[?;&=]'.')*)';
??????$this->user = '(('.$this->uchar.'|[?;&=]'.')*)';
??????$this->port = $this->digits;
??????$this->hostnumber = '('.$this->digits.'.'.$this->digits.'.'.$this->digits.'.'.$this->digits.')';
??????$this->alphadigit = '('.$this->alpha.'|'.$this->digit.')';
??????$this->toplabel = '('.$this->alpha.'|('.$this->alpha.'('.$this->alphadigit.'|-)*'.$this->alphadigit.'))';
??????$this->domainlabel = '('.$this->alphadigit.'|('.$this->alphadigit.'('.$this->alphadigit.'|-)*'.$this->alphadigit.'))';
??????$this->hostname = '(('.$this->domainlabel.'\\.)*'.$this->toplabel.')';
??????$this->host = '('.$this->hostname.'|'.$this->hostnumber.')';
??????$this->hostport = '('.$this->host.'(:'.$this->port.')?)';
??????$this->login = '(('.$this->user.'(:'.$this->password.')?@)?'.$this->hostport.')';

??????$this->ftptype = '[aidAID]';
??????$this->fsegment = '(('.$this->uchar.'|[?:@&=])*)';
??????$this->fpath = '('.$this->fsegment.'(/'.$this->fsegment.')*)';
??????$this->ftpurl = '([fF][tT][pP]://'.$this->login.'(/'.$this->fpath.'(;[tT][yY][pP][eE]='.$this->ftptype.')?)?)';

??????$this->fileurl = '([fF][iI][lL][eE]://('.$this->host.'|[lL][oO][cC][aA][lL][hH][oO][sS][tT])?/'.$this->fpath.')';

??????$this->search = '(('.$this->uchar.'|[;:@&=])*)';
??????$this->hsegment = '(('.$this->uchar.'|[;:@&=])*)';
??????$this->hpath = '('.$this->hsegment.'(/'.$this->hsegment.')*)';
??????$this->httpurl = '([hH][tT][tT][pP][sS]?://'.$this->hostport.'(/'.$this->hpath.'([?]'.$this->search.')?)?)';

??????$this->gopher_string = '('.$this->xchar.'*)';
??????$this->selector = '('.$this->xchar.'*)';
??????$this->gtype = $this->xchar;
??????$this->gopherurl = '([gG][oO][pP][hH][eE][rR]://'.$this->hostport.'(/('.$this->gtype.'('.$this->selector.'(%09'.$this->search.'(%09'.$this->gopher_string.')?)?)?)?)?)';

??????$this->article = '(('.$this->uchar.'|[;/?:&=])+@'.$this->host.')';
??????$this->group = '('.$this->alpha.'('.$this->alpha.'|'.$this->digit.'|[-.+_])*)';
??????$this->grouppart = '([*]|'.$this->group.'|'.$this->article.')';
??????$this->newsurl = '([nN][eE][wW][sS]:'.$this->grouppart.')';

??????$this->nntpurl = '([nN][nN][tT][pP]://'.$this->hostport.'/'.$this->group.'(/'.$this->digits.')?)';

??????$this->telneturl = '([tT][eE][lL][nN][eE][tT]://'.$this->login.'/?)';

??????$this->wpath = '('.$this->uchar.'*)';
??????$this->wtype = '('.$this->uchar.'*)';
??????$this->database = '('.$this->uchar.'*)';
??????$this->waisdoc = '([wW][aA][iI][sS]://'.$this->hostport.'/'.$this->database.'/'.$this->wtype.'/'.$this->wpath.')';
??????$this->waisindex = '([wW][aA][iI][sS]://'.$this->hostport.'/'.$this->database.'[?]'.$this->search.')';
??????$this->waisdatabase = '([wW][aA][iI][sS]://'.$this->hostport.'/'.$this->database.')';
??????$this->waisurl = '('.$this->waisdatabase.'|'.$this->waisindex.'|'.$this->waisdoc.')';
???}
}

?>


文件otherfunc.php的內(nèi)容
//otherfunc.php
function htmlencode($str){
???$str = (string)$str;

???$ret = '';
???$len = strlen($str);
???$nl = false;
???for($i=0;$i??????$chr = $str[$i];
??????switch($chr){
?????????case '????????????$ret .= '????????????$nl = false;
????????????break;
?????????case '>':
????????????$ret .= '>';
????????????$nl = false;
????????????break;
?????????case '"':
????????????$ret .= '"';
????????????$nl = false;
????????????break;
?????????case '&':
????????????$ret .= '&';
????????????$nl = false;
????????????break;
/*
?????????case ' ':
????????????$ret .= '?';
????????????$nl = false;
????????????break;
*/????????
?????????case chr(9):
????????????$ret .= '????';
????????????$nl = false;
????????????break;
?????????case chr(10):
????????????if($nl) $nl = false;
????????????else{
???????????????$ret .= '
';
???????????????$nl = true;
????????????}
????????????break;
?????????case chr(13):
????????????if($nl) $nl = false;
????????????else{
???????????????$ret .= '
';
???????????????$nl = true;
????????????}
????????????break;
?????????default:
????????????$ret .= $chr;
????????????$nl = false;
????????????break;
??????}
???}

???return $ret;
}


function htmlencode4textarea($str){
???$str = (string)$str;

???$ret = '';
???$len = strlen($str);
???for($i=0;$i??????$chr = $str[$i];
??????switch($chr){
?????????case '????????????$ret .= '????????????break;
?????????case '>':
????????????$ret .= '>';
????????????break;
?????????case '"':
????????????$ret .= '"';
????????????break;
?????????case '&':
????????????$ret .= '&';
????????????break;
?????????case ' ':
????????????$ret .= '?';
????????????break;
?????????case chr(9):
????????????$ret .= '????';
????????????break;
?????????default:
????????????$ret .= $chr;
????????????break;
??????}
???}

???return $ret;
}

function emailcheck($email){
???$ret=false;
???if(strstr($email, '@') && strstr($email, '.')){
??????if(eregi("^([_a-z0-9]+([\\._a-z0-9-]+)*)@([a-z0-9]{2,}(\\.[a-z0-9-]{2,})*\\.[a-z]{2,3})$", $email)){
?????????$ret=true;
??????}
???}
???return $ret;
}

function str2url($path){
???return eregi_replace("%2f","/",urlencode($path));
}
?>