很久没来这里了,各位可好?!
发表于:2007-07-01来源:作者:点击数:
标签:
? //ubbcode类 class ubbcode{ var $call_time=0; //可处理标签及处理函数对应表 var $tags = array( //小写的标签 = 对应的处理函数 @#url@# = @#$this-url@#, @#email@# = @#$this-email@#, @#img@# = @#$this-img@#, @#flash@# = @#$this-flash@#, @#sound
<?
//ubbcode类
class ubbcode{
var $call_time=0;
//可处理标签及处理函数对应表
var $tags = array( //小写的标签 => 对应的处理函数
@#url@# => @#$this->url@#,
@#email@# => @#$this->email@#,
@#img@# => @#$this->img@#,
@#flash@# => @#$this->flash@#,
@#sound@# => @#$this->sound@#,
@#black@# => @#$this->font_color@#,
@#white@# => @#$this->font_color@#,
@#red@# => @#$this->font_color@#,
@#pink@# => @#$this->font_color@#,
@#blue@# => @#$this->font_color@#,
@#green@# => @#$this->font_color@#,
@#olive@# => @#$this->font_color@#,
@#navy@# => @#$this->font_color@#,
@#gray@#=> @#$this->font_color@#,
@#fuchsia@# => @#$this->font_color@#,
@#yellow@# => @#$this->font_color@#,
@#silver@# => @#$this->font_color@#,
@#purple@# => @#$this->font_color@#,
@#marquee@# => @#$this->simple@#,
@#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合法性检查对象
var $urlcheck;
function ubbcode($attr_url){
$this->attr_url = @#@#.$attr_url;
$this->urlcheck = new urlcheck();
}
//对$str进行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;//标记长度
$tag_start=substr($eregi_arr[0],1,$tag_len);
$tag=strtolower($tag_start);
if((($tag=="url") or ($tag=="email") or ($tag=="img") or ($tag=="flash")) and ($this->call_time>1)){
echo $this->call_time."<br>";
return $parse;//如果不能是不能嵌套的标记,直接返回
}
$parse2 = substr($parse,0,$pos);//标记之前
$parse = substr($parse,$pos+$tag_len+2);//标记之后
if(!isset($this->tags[$tag])){
echo "$tag_start<br>";
$ret .= $parse2.@#[@#.$tag_start.@#]@#;
continue;//如果是不支持的标记
}
//查找对对应的结束标记
$eregi_ret=eregi("\[\/".$tag."\]",$parse,$eregi_arr);
if(!$eregi_ret){
$ret .= $parse2.@#[@#.$tag_start.@#]@#;
continue;//如果没有对应该的结束标记
}
$pos=strpos($parse,$eregi_arr[0]);
$value=substr($parse,0,$pos);//这是起止标记之间的内容
$tag_end=substr($parse,$pos+2,$tag_len);
$parse=substr($parse,$pos+$tag_len+3);//结束标记之后的内容
if(($tag!="url") and ($tag!="email") and ($tag!="img")and ($tag!="flash")){
$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 @#<@#.$start.@#>@#.$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 @#<a href="@#.$trim_value.@#" @#.$this->attr_url.@#>@#.$value.@#</a>@#;
else return @#[@#.$start.@#]@#.$value.@#[/@#.$end.@#]@#;
}
function email($start,$end,$value){
if(emailcheck($value)) return @#<a href="mailto:@#.$value.@#">@#.$value.@#</a>@#;
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 @#<img src="@#.$trim_value.@#"></img>@#;
else return @#[@#.$start.@#]@#.$value.@#[/@#.$end.@#]@#;
}
function flash($start,$end,$value){
$trim_value=trim($value);
if ((strtolower(substr($trim_value,0,7))!="http://") or ($this->urlcheck->check($trim_value)))
return @#<embed src=@#.$trim_value.@# quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash width=520 height=360>@#;
else return @#[@#.$start.@#]@#.$value.@#[/@#.$end.@#]@#;
}
function sound($start,$end,$value){
$trim_value=trim($value);
if ((strtolower(substr($trim_value,0,7))!="http://") or ($this->urlcheck->check($trim_value)))
return "<embed src=".$trim_value." hidden autostart=true loop=true>";
else return @#[@#.$start.@#]@#.$value.@#[/@#.$end.@#]@#;
}
function font_color($start,$end,$value){
if(strstr("black|white|red|pink|blue|green|olive|navy|gray|fuchsia|yellow|silver|purple",$start))
return "<font color=".$start.">".$value."</font>";
else return @#[@#.$start.@#]@#.$value.@#[/@#.$end.@#]@#;
}
}
//urlcheck.
php
class urlcheck{
var $regex = array(//协议名(注意在这里必须写成小写) => 对应的正则表达式
@#ftp@# => @#$this->ftpurl@#,
@#file@# => @#$this->fileurl@#,
@#http@# => @#$this->httpurl@#,
@#https@# => @#$this->httpurl@#,
@#gopher@# => @#$this->gopherurl@#,
@#news@# => @#$this->newsurl@#,
@#nntp@# => @#$this->nntpurl@#,
@#te
.net@# => @#$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<1) return false;
$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.@#)@#;
}
}
function htmlencode($str){
$str = (string)$str;
$ret = @#@#;
$len = strlen($str);
$nl = false;
for($i=0;$i<$len;$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 .= @#<br>@#;
$nl = true;
}
break;
case chr(13):
if($nl) $nl = false;
else{
$ret .= @#<br>@#;
$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<$len;$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));
}
?>
--------------------------
说明:在网上找了半天发现全是何志强的那段代码,我也就拿来改了一下用上了。其中加入了一部分自己的内容,只是还不太清楚如何规定图片等元素的大小。我曾经把 function img($start,$end,$value){
$trim_value=trim($value);
if ((strtolower(substr($trim_value,0,7))!="http://") or ($this->urlcheck->check($trim_value)))
return @#<img src="@#.$trim_value.@#"></img>@#;
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)))
{
$pisces=explode(" ",$start);
if(!is_int($pisces[1]) || !!is_int($pisces[2]))
return @#<img src="@#.$trim_value.@#" width=$pisces[1] height=$pisces[2]></img>@#;
else
return @#<img src="@#.$trim_value.@#"></img>@#;
}
else return @#[@#.$start.@#]@#.$value.@#[/@#.$end.@#]@#;
}
但由于对前面的正则表达式不熟悉没成功。
原文转自:http://www.ltesting.net