PHP操作ubb代码类

2024-05-04 22:59:46

字体：大中小

来源：转载

供稿：网友

<?php
//ubbcode类
class ubbcode
{
 var $nest; // 递归深度，for debug
 //可处理标签及处理函数表
 var $tags = array(
 'url' => '$this->url',
 'email' => '$this->email',
 'mail' => '$this->email', // 为了容错，[mail]和[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',
 'small' => '$this->simple',
 'big' => '$this->simple',
 'blink' => '$this->simple',
 'fly' => '$this->fly',
 'move' => '$this->move',
 'glow' => '$this->cssstyle',
 'shadow' => '$this->cssstyle',
 'blur' => '$this->cssstyle',
 'wave' => '$this->cssstyle',
 'sub' => '$this->simple',
 'sup' => '$this->simple',
 'size' => '$this->size',
 'face' => '$this->face',
 'font' => '$this->face', // 为了容错，[font]和[face]等效
 'color' => '$this->color',
 'html' => '$this->html',
 'quote' => '$this->quote',
 'swf' => '$this->swf',
 'upload' => '$this->upload'
 );
 function ubbcode()
 {
 $this->$nest= 0;
 $this->$slastmodified= sprintf("%s", date("y-m-j h:i", getlastmod()));
 }

 /***********************************************************************
 * 对使用者输入的 e-mail 作简单的检查，
 * 检查使用者的 e-mail 字串是否有 @ 字元，
 * 在 @ 字元前有英文字母或数字，在之后有数节字串，
 * 最后的小数点后只能有二个或三个英文字母。
 * [email protected] 就可以通过检查，[email protected] 就不能通过检查
 ************************************************************************/
 function emailcheck($str)
 {
 if (eregi("^[_/.0-9a-z-][email protected]([0-9a-z][0-9a-z-]+/.)+[a-z]{2,3}$", $str))
 return true;
 else
 return false;
 }
 /***********************************************************************
 * 对使用者输入的 url 作简单的检查，
 * 目前只能简单判断，不能自动检查fpt，finger等
 ************************************************************************/
 function checkurl($str)
 {
 $bvalidurl= true;
 if (eregi("([a-z0-9-]+([/.][a-z0-9/-]+)+)", $str, $er_arr))
 {
/*
printf ("0. %s /n", $er_arr[0]);
printf ("1. %s /n", $er_arr[1]);
printf ("2. %s /n", $er_arr[2]);
printf ("3. %s /n", $er_arr[3]);
printf ("4. %s /n", $er_arr[4]);
*/
 }
 else
 $bvalidurl= false;
 return $bvalidurl;
 }
 /***********************************************************************
 * 对使用者输入的图片url 作简单的检查，
 * 目前只能简单判断结尾是否为图片文件
 * 不支持由cgi动态生成的图片，比如计数器这类的
 ************************************************************************/
 function checkimgurl($str)
 {
 if ($this->checkurl($str)) {
 if(eregi("/.(jpeg|jpg|gif|bmp|png|pcx|tiff|tga|lwf)$", $str))
 return true;
 else
 return false;
 }
 else
 return false;
 }
 /***********************************************************************
 * 自动补全url部分，主要是协议前缀，
 * 默认是htpp://，支持https://；ftp://；finger://；gopher://等
 * 函数并不对url的合法性作检查
 ************************************************************************/
 function formaturl($str)
 {
 if (!eregi("^(ftp|http|https|mms|gopher|finger|bbs|telnet):(////|////)", $str))
 $str= 'http://'.$str;
 return $str;
 }
 //对$str进行ubb编码解析
 function parse($str)
 {
 $nest ++;
 $parse = ''.($str);
 $ret = '';
 while(true){
 //查找[xx] 或者[xx=xx] , 但不包括[xx=]
 $eregi_ret=eregi("/[([a-z][a-z0-9]{0,7})(=[a-za-z0-9#.:/&@|/?,%=_/+/"/']+)?/]", $parse, $eregi_arr);
 if(!$eregi_ret)
 {
 $ret .= $parse;
 break; //如果没有，返回
 }
/* for debug
 else
 {
 printf ("$. %s ", $eregi_ret);
 printf ("0. %s ", $eregi_arr[0]);
 printf ("1. %s ", $eregi_arr[1]);
 printf ("2. %s ", $eregi_arr[2]);
 printf ("3. %s ", $eregi_arr[3]);
 }
*/

 $pos = @strpos($parse, $eregi_arr[0]); // 起始位置
 $tag_start= $eregi_arr[1];
 $tag= strtolower($eregi_arr[1]);
 $tag_param= $eregi_arr[2];
 $parse2 = substr($parse, 0, $pos);//标记之前
 $parse = substr($parse, $pos + $eregi_ret);//标记之后
 if(!isset($this->tags[$tag]))
 {
 $ret .= $parse2.'['.$tag_start.']';
 continue; //如果是不支持的标记
 }
 //查找对应的结束标记
 $eregi_ret=eregi("/[(/".$tag.")/]", $parse, $eregi_arr);
 if(!$eregi_ret)
 {
 $ret .= $parse2.'['.$tag_start.$tag_param.']';
 continue;//没有对应该的结束标记
 }
 $pos= strpos($parse, $eregi_arr[0]);
 $value= substr($parse, 0, $pos); //起止标记之间的内容
 $tag_end= $eregi_arr[1];
 $parse= substr($parse, $pos + $eregi_ret);//结束标记之后的内容
 // 允许嵌套标记，递归分析
 if (!(($tag == 'code') or ($tag=="url") or ($tag=="email") or ($tag=="img"))){
 $value= $this->parse($value);
 }
 $ret.= $parse2;
 $parsefun= sprintf('$ret .= %s($tag_start, $tag_param, $tag_end, $value);', $this->tags[$tag]);
 eval($parsefun);
 }
 $nest --;
 return $ret;
 }
/*****************************************************
 * 简单替换，类似[b]变为
 * 标签内容不便，只是替代括号为<>
 *****************************************************/
 function simple($start, $para, $end, $value){
 if (strlen($para) > 0)
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 else
 return sprintf("<%s>%s<%s>", $start, $value, $end);
 }
 /*****************************************************
 * 如下认为合法可以没有“http://”；ftp一定要自己加“ftp://”
 * 93611
 * [url=http://www.fogsun.com][/url]
 * http://www.fogsun.com
 *****************************************************/
 function url($start, $para, $end, $value){
 $sa= $value;
 $surl= substr(trim($para), 1);
 if (strlen($surl) > 0)
 {
 if (strlen($value) == 0)
 $sa= $surl;
 }
 else
 {
 $surl= trim($value);
 }
 $surl= $this->formaturl($surl);
 if($this->checkurl($surl))
 return "<a href=/"$surl/" class=/"small/" target=_blank>$sa</a>";
 else {
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 }
 }
 /*****************************************************
 * 如下认为合法可以没有“mailto:”头；
 * [[email protected]]pazee[/email]
 * [[email protected]][/email]
 * [email][email protected][/email]
 *****************************************************/
 function email($start, $para, $end, $value){
 $sa= $value;
 $surl= substr(trim($para), 1);
 if (strlen($surl) > 0)
 {
 if (strlen($value) == 0)
 $sa= $surl;
 }
 else
 {
 $surl= trim($value);
 }
 //if (strtolower(substr($surl, 0, 7)) != "mailto:")
 $surl= "mail.php?email=". $surl;
 if($this->emailcheck(substr($surl, 15)))
 return "<a href=/"$surl/" class=/"small/" target=_blank>$sa</a>";
 else
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 }
 /*****************************************************
 * 显示图片；如下用法认为合法
 * [img=www.21cn.com/title.jpg][/img]
 * [img]www.21cn.com/title.jpg[/img]
 *****************************************************/
 function img($start, $para, $end, $value){
 $surl= substr(trim($para), 1);
 if (strlen($surl) <= 0)
 $surl= trim($value);
 //$surl= $this->formaturl($surl);
 if ($this->checkimgurl($surl))
 return sprintf("<a href=/"%s/" target=/"_blank/"><img src=/"%s/" border=0 alt=/"从新窗口中浏览/"></img></a>", $surl,$surl);
 else
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 }
 /*****************************************************
 * 字符串从右向左循环移动
 * 无参数
 * 等效与html的<marquee>
 *****************************************************/
 function fly($start, $para, $end, $value){
 if (strlen($para)>0) // 有参数
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 else
 return '<marquee behavior=alternate scrolldelay=100>'.$value.'</marquee>';
 }
 /*****************************************************
 * 字符串来回移动
 * 无参数
 * 等效与html的<marquee>
 *****************************************************/
 function move($start, $para, $end, $value) {
 if (strlen($para)>0) // 有参数
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 else
 return '<marquee scrolldelay=100>'.$value.'</marquee>';
 }
 /*****************************************************
 * 字符晕光效果包括 glow、shadow和blur
 * 字符晕光效果[glow=a,b,c]或者[shadow=a,b,c]
 * 3个参数允许缺省
 * 实现文字阴影特效，
 * glow, shadow,blur 属性依次为颜色、宽度和边界大小
 * wave 属性依次为变形频率、宽度和边界大小
 *****************************************************/
 function cssstyle(&$start, &$para, &$end, &$value){
 $rets= sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 if (strlen($para)==0)
 {
 $para="=,,";
 }
 if (eregi("^=([#]?[[:xdigit:]]{6}|[a-z0-9]*),([0-9]*),([0-9]*)", $para, $er_arr))
 {
 $color= ($er_arr[1] != "") ? $er_arr[1] : red; // default color
 $width= ($er_arr[2] != "") ? $er_arr[2] : 400; // default width
 $border= ($er_arr[3] != "") ? $er_arr[3] : 5; // default border
 switch ($start)
 {
 case "glow":
 case "shadow":
 $rets= sprintf("%s", $start, $color, $border, $width, $value);
 break;
 case "blur";
 $rets= sprintf("%s", $start, $border, $color, $width, $value);
 break;
 case "wave":
 $color= ($er_arr[1] != "") ? $er_arr[1] : 4; // default color
 $border= ($er_arr[3] != "") ? $er_arr[3] : 2; // default border
 $rets= sprintf("%s", $start, $color, $border, $width, $value);
 break;
 }
 }
 return $rets;
 }
 /*****************************************************
 * 字体颜色 xxx
 * n 可以是 #xxxxxx 或者 xxxxxx (6位16进制数)
 * red,greed,blue,black等颜色保留字也有效
 * 等效与html的xxx
 * [color]xxxx[/color]等效于 [color=red]
 *****************************************************/
 function color($start, $para, $end, $value){
 $cl= strtolower(substr($para, 1));
 if ($cl == "")
 $cl= "red";
 if (eregi("(^[#]?[[:xdigit:]]{6})|red|green|blue|yellow|blue|white|gray|brown|silver|purple|orange" ,$cl))
 return sprintf("%s",$cl, $value);
 else
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 }
 /*****************************************************
 * 字体大小 [size=n]xxx[/size] 1<= n <= 7；
 * 等效与html的xxx
 *****************************************************/
 function size($start, $para, $end, $value){
 $size= substr($para, 1);
 if ($size >=1 && $size <=7 && (strlen($para) > 1))
 return sprintf("%s",$size, $value);
 else
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 }
 /*****************************************************
 * 字体名字 [face=n] n字体名称，不需要引号
 * 等效与html的xxx
 *****************************************************/
 function face($start, $para, $end, $value){
 $fn= substr($para, 1);
 if (!eregi("[[:punct:]]", $fn) && strlen($para) > 1) {
 switch (strtoupper($fn))
 {
 case "st":
 $fn= "宋体";
 break;
 case "ht":
 $fn= "黑体";
 break;
 case "kt":
 $fn= "楷体_gb2312";
 break;
 case "ft":
 $fn= "仿宋_gb2312";
 break;
 case "yy":
 $fn= "幼圆";
 break;
 case "ls":
 $fn= "隶书";
 break;
 case "xst":
 $fn= "新宋体";
 break;
 default:
 $fn= substr($para, 1);
 }
 return sprintf("%s",$fn, $value);
 }
 else
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 }
 /*****************************************************
 * 文件上传[upload]
 *****************************************************/
 function upload($start, $para, $end, $value){
 $fn= trim(substr($para, 1));
 if (!eregi("[[:punct:]]", $fn) && strlen($para) > 1) {
 if (eregi("jpg|jpeg|bmp|gif|png", $fn)) {
 if ($this->checkimgurl($value))
 return sprintf("<img src=/"images/%s.gif/" align=/"absmiddle/"> 此主题相关图片如下: <a href=/"%s/" target=/"_blank/"><img src=/"%s/" border=0 alt=/"从新窗口中浏览/"></img></a> ",$fn,$value,$value);
 else
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 } elseif ($fn == "swf") {
 return sprintf("<center><img src=/"images/%s.gif/" align=/"absmiddle/"> 此主题相关flash: <param name=play value=true><param name=loop value=true><param name=quality value=high><embed src=/"%s/" quality=high width=/"500/" height=/"300/" pluginspage=/"http://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveflash/" type=/"application/x-shockwave-flash/"></embed> <a href=/"%s/" class=/"small/" target=_blank>全屏欣赏</a> (点右键->另存为可将动画下载)</center>",$fn,$value,$value);
 } elseif (eregi("rar|zip|doc", $fn)) {
 return sprintf("<img src=/"images/%s.gif/" align=/"absmiddle/"> <a href=/"%s/" class=/"small/" target=_blank>点击下载此主题相关附件</a> ",$fn,$value);
 }
 } else
 return sprintf("[%s%s]%s[%s]", $start, $para, $value, $end);
 }
 /*****************************************************
 * 调试代码标签[html]
 *****************************************************/
 function html($start, $para, $end, $value)

 {
 if (strlen($value) > 0) {
 $value = eregi_replace('<br[[:space:]]*/?[[:space:]]*>', "", $value);
 return sprintf(" <textarea cols=70 rows=10 class=/"code/">%s</textarea> <input type=button value=/" 运行代码 /" onclick='runcode()' class=/"special/"> [ctrl+a 全部选择提示：你可先修改部分代码，再按运行] ",$value);
 } else {
 return sprintf("[%s]%s[%s]", $start, $value, $end);
 }
 }
 /*****************************************************
 * 引用标签[quote]
 *****************************************************/
 function quote($start, $para, $end, $value)
 {
 if (strlen($value) > 0) {
 return sprintf("<table width=/"100%%/" align=center border=1 bordercolor=/"#aaaaaa/"><tr bgcolor=/"#eaeaea/"><td class=view>以下为引用内容: %s</td></tr></table> ",$value);
 } else {
 return sprintf("[%s]%s[%s]", $start, $value, $end);
 }
 }
 /*****************************************************
 * flash[swf]
 *****************************************************/
 function swf($start, $para, $end, $value)

 {

 if (strlen($value) > 0) {

 return sprintf (" <center><param name=play value=true><param name=loop value=true><param name=quality value=high><embed src=/"%s/" quality=high width=/"500/" height=/"300/" pluginspage=/"http://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveflash/" type=/"application/x-shockwave-flash/"></embed> <a href=/"%s/" class=/"small/" target=_blank>全屏欣赏</a> (点右键->另存为可将动画下载)</center>",$value,$value);

 } else {

 return sprintf("[%s]%s[%s]", $start, $value, $end);

 }

 }

}
?>

本文来源于网页设计爱好者web开发社区http://www.html.org.cn收集整理，欢迎访问。

上一篇：一个邮件解码类

下一篇：一个二级域名跳转的代码