ubb转换成html

<%
function encodestr(str)
str=trim(str)
str=replace(str,"<","&lt;")
str=replace(str,">","&gt;")
str=replace(str,"'","""")
str=replace(str,vbCrLf&vbCrlf,"</p><p>")
str=replace(str,vbCrLf,"<br>")
encodestr=replace(str,"  ","　")
end function
function UBBCode(strContent)
 dim re
 Set re=new RegExp
 re.IgnoreCase =true
 re.Global=True
 strContent=encodestr(strContent)
 re.Pattern="([IMG])(.[^[]*)([/IMG])"
 strContent=re.Replace(strContent,"<IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""> ")
 re.Pattern="[DIR=*([0-9]*),*([0-9]*)](.[^[]*)[/DIR]"
 strContent=re.Replace(strContent,"<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2><param name=src value=$3><embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed></object>")
 re.Pattern="[QT=*([0-9]*),*([0-9]*)](.[^[]*)[/QT]"
 strContent=re.Replace(strContent,"<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
 re.Pattern="[MP=*([0-9]*),*([0-9]*)](.[^[]*)[/MP]"
 strContent=re.Replace(strContent,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 ><param name=ShowStatusBar value=-1><param name=Filename value=$3><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3  width=$1 height=$2></embed></object>")
 re.Pattern="[RM=*([0-9]*),*([0-9]*)](.[^[]*)[/RM]"
 strContent=re.Replace(strContent,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")
 re.Pattern="([FLASH])(.[^[]*)([/FLASH])"
 strContent= re.Replace(strContent,"<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400><PARAM NAME=movie VALUE=""$2""><PARAM NAME=quality VALUE=high><embed src=""$2"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=500 height=400>$2</embed></OBJECT>")
 re.Pattern="([URL])(.[^[]*)([/URL])"
 strContent= re.Replace(strContent,"<img align=absmiddle src=images/url.gif><A HREF=""$2"" TARGET=_blank>$2</A>")
 re.Pattern="([URL=(.[^[]*)])(.[^[]*)([/URL])"
 strContent= re.Replace(strContent,"<img align=absmiddle src=images/url.gif><A HREF=""$2"" TARGET=_blank>$3</A>")
 re.Pattern="([EMAIL])(.[^[]*)([/EMAIL])"
 strContent= re.Replace(strContent,"<img align=absmiddle src=images/email.gif><A HREF=""mailto:$2"">$2</A>")
 re.Pattern="([EMAIL=(.[^[]*)])(.[^[]*)([/EMAIL])"
 strContent= re.Replace(strContent,"<img align=absmiddle src=images/email.gif><A HREF=""mailto:$2"" TARGET=_blank>$3</A>")
 re.Pattern = "^(http://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "(http://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "([^>=""])(http://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"$1<img align=absmiddle src=images/url.gif><a target=_blank href=$2>$2</a>")
 re.Pattern = "^(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "([^>=""])(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"$1<img align=absmiddle src=images/url.gif><a target=_blank href=$2>$2</a>")
 re.Pattern = "^(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "([^>=""])(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"$1<img align=absmiddle src=images/url.gif><a target=_blank href=$2>$2</a>")
 re.Pattern = "^(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
 strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
 re.Pattern = "([^>=""])(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"$1<img align=absmiddle src=images/url.gif><a target=_blank href=$2>$2</a>")
 re.Pattern="([color=(.[^[]*)])(.[^[]*)([/color])"
 strContent=re.Replace(strContent,"<font color=$2 >$3</font>")
 re.Pattern="([align=(.[^[]*)])(.*)([/align])"
 strContent=re.Replace(strContent,"<div align=$2>$3</div>")
 re.Pattern="([QUOTE])(.*)([/QUOTE])"
 strContent=re.Replace(strContent,"<table cellpadding=0 cellspacing=0 border=0 WIDTH=94% bgcolor=#000000 align=center><tr><td><table width=100% cellpadding=5 cellspacing=1 border=0><TR><TD class=table003>$2</table></table><br>")
 re.Pattern="([fly])(.*)([/fly])"
 strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>")
 re.Pattern="([move])(.*)([/move])"
 strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$2</marquee>") 
 re.Pattern="[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/GLOW]"
 strContent=re.Replace(strContent,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
 re.Pattern="[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/SHADOW]"
 strContent=re.Replace(strContent,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")
 re.Pattern="([i])(.[^[]*)([/i])"
 strContent=re.Replace(strContent,"<i>$2</i>")
 re.Pattern="([u])(.[^[]*)([/u])"
 strContent=re.Replace(strContent,"<u>$2</u>")
 re.Pattern="([b])(.[^[]*)([/b])"
 strContent=re.Replace(strContent,"<b>$2</b>")
 re.Pattern="([size=1])(.[^[]*)([/size])"
 strContent=re.Replace(strContent,"<font size=1>$2</font>")
 re.Pattern="([size=2])(.[^[]*)([/size])"
 strContent=re.Replace(strContent,"<font size=2>$2</font>")
 re.Pattern="([size=3])(.[^[]*)([/size])"
 strContent=re.Replace(strContent,"<font size=3>$2</font>")
 re.Pattern="([size=4])(.[^[]*)([/size])"
 strContent=re.Replace(strContent,"<font size=4>$2</font>")
 re.Pattern="([center])(.[^[]*)([/center])"
 strContent=re.Replace(strContent,"<center>$2</center>")
 set re=Nothing
 UBBCode=strContent
end function
%>

时间： 2024-08-17 19:58:38

ubb转换成html的相关文章

php ubb转换成html,html转换成ubb代码

php ubb转换成html,html转换成ubb代码 function htmlToUBB($str) {  $str = preg_replace("/<img[^>]+src="([^"]+)"[^>]*>/i","[img]$1[/img]",$str);  $str = preg_replace("/<embed[^>]+src="([^"]+)"[^

ubb转换成html 代码

function up(str){   str = str.replace(/</ig,'<');   str = str.replace(/>/ig,'>');   str = str.replace(/n/ig,'<br />');   str = str.replace(/[code](.+?)[/code]/ig, function($1, $2) {return phpcode($2);});   str = str.replace(/[hr]/ig,'<

ubb 转换成html代码

<% function unhtml(s_string)  s_string=replace(s_string,"&","&")  's_string=replace(s_string," "," ")  s_string=replace(s_string,"<","<")  unhtml=replace(s_string,">"

html转换成UBB代码

html转换成UBB代码 Function Html2Ubb(str)  If Str<>"" And Not IsNull(Str) Then   Dim re,tmpstr   Set re=new RegExp   re.IgnoreCase =True   re.Global=True   re.Pattern = "(<STRONG>)":Str = re.Replace(Str,"<b>")   r

asp.net.想要实现一个文字字符串转换成MP3和wav格式的语音

问题描述 asp.net.想要实现一个文字字符串转换成MP3和wav格式的语音 2C 文字字符串转换成MP3和wav格式的语音文件并且存入数据库,请问如何实现.需要转换成音频文件后可以读出文字内容 解决方案 你需要一个与字符对应的音频库,就像电子琴.比如1对应声音多,2对应声音来,3对应声音咪--,还有长音,短音,4分,8分等等,当你输入一个字符串时,找到跟他对应的声音,就能实现准确的转换了.

格式 webp-谷歌的webp图片格式如何在windows下使用java转换成其他格式

问题描述 谷歌的webp图片格式如何在windows下使用java转换成其他格式 参考了http://blog.csdn.net/geeklei/article/details/41147479,可以在linux下成功执行,但是在windows下编译出dll和jar始终无法正确运行java.lang.IllegalArgumentException: image == null!无法识别这样的图片格式 解决方案 Java webp转jpg webp是最近google推出的新的图片格式 googl

excel数据-excel中使用kutools将图片从tif转换成jpg格式后图片序列改变了，怎么破？

问题描述 excel中使用kutools将图片从tif转换成jpg格式后图片序列改变了,怎么破? 办公时excel中有大量的图片需要从tif转成jpg格式,使用kutools可以迅速直接转换格式,但是导回excel中时图片顺序发生改变. 是否有什么编程语言或者改变转换图片格式的软件也可以,解决这个问题? 非常感谢!

MathType转换成pdf符号丢失或乱码怎么办

  MathType转换成pdf符号丢失或乱码怎么办?这个问题的出现主要还字体的问题,电脑字体无法识别MathType字体所以在转换的时候会出现这个上问题. 具体解决方法如下: 1.打开电脑,按照MathType的安装路径找到其安装目录,这个由于每个人的安装路径不一样,所以操作会有所差别,在MathType的安装目录下找到MathType里面的True Type文件,将里面字体复制. 复制MathType里面的True Type字体文件 2.然后回到C:\Windows\Fonts中直接将之粘贴

如何将PPT转换成Word？

  1.打开你要转换成word的PPT   2.然后把所有PPT用ctrl + a 全选 3.然后依次打开"文件"--"发送"--"Microsoft Office Word" 4.打开"发送到Microsoft Office Word"对话框后,勾选上"只使用大纲"选项,单击确定即可 5.接下来PPT会自动转换成word文件,你稍微整理一下就OK了.