转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> 网页制作 >> 正文
UBB 转换函数演示    热     ★★★★

UBB 转换函数演示

作者：闵涛 文章来源：闵涛的学习笔记 点击数：2227 更新时间：2009/4/23 12:32:02
t for
thtml=hencode(html(i))
content=replace(content,"{html"&i&"}",thtml)
next
end if

re.Pattern="(\[code\])(\r\n)?([\s\S]+?)(\[\/code\])"
content=re.Replace(content,"<PRE class=CodeSamp>$3</PRE>")

re.Pattern="(\[html\])(\r\n)?([\s\S]+?)(\[\/html\])"
content=re.Replace(content,"<span><TEXTAREA cols=95 rows=12>$3</TEXTAREA><br><INPUT onclick=runCode() type=button value=运行代码>[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]</span>")

if html2b then
for i=0 to ubound(html2)
if html2(i)="" then exit for
thtml2=html2(i)
content=replace(content,"{html2"&i&"}",thtml2)
next
end if

UBBCode=content
msgbox "转换共耗时 "&formatnumber((timer-st)*1000,2)&" ms"
end function

 

function hencode(fString)  '简单模拟server.htmlencode   ASP中不用这个
 fString = replace(fString,"&","&amp;")
 fString = replace(fString,">","&gt;") 
 fString = replace(fString,"<","&lt;") 
hencode=fString
end function

function DvbbsHtmlAn(fString)

if not isnull(fString) then
 
fString=hencode(fString)
 fString = Replace(fString, CHR(9), "&nbsp;&nbsp;&nbsp;") 'Tab
 fString = Replace(fString, CHR(34), "&quot;")   '"
 fString = Replace(fString, CHR(39), "&#39;")   ''
 fString = Replace(fString, CHR(13), "")    '回车是一个13+10
 fString = Replace(fString, CHR(10) & CHR(10), "<P>")'  '
 fString = Replace(fString, CHR(10), "<BR>")
 fString = Replace(fString, CHR(32), "&nbsp;")   ' 空格
 
 DvbbsHtmlAn = fString
end if
end function

function gmt(strContent)

strContent=DvbbsHtmlAn(strContent)
 
 dim re
 Set re=new RegExp
 re.IgnoreCase =true
 re.Global=True

 re.Pattern="(\[IMG\])(.*?)(\[\/IMG\])"
 strContent=re.Replace(strContent,"<a href=$2 target=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"" galleryImg=no></a>")

 if Not UserSign or (UserSign and UserImgCode=1) then
 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>")
 end if

 re.Pattern="(\[FLASH\])(.*?)(\[\/FLASH\])"
 strContent= re.Replace(strContent,"<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,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/go/getflashplayer' type='application/x-shockwave-flash' width=500 height=400>$2</embed></OBJECT>")
 re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(.*?)(\[\/FLASH\])"
 strContent= re.Replace(strContent,"<a href=""$4"" TARGET=_blank><IMG src="/Files/BeyondPic/chinazcj/2005-11/20/05112015511822108.gif" border=0 alt=点击开新窗口欣赏该FLASH动画!> [全屏欣赏]</a><br><br><OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=$2 height=$3><PARAM NAME=movie VALUE=""$4""><PARAM NAME=quality VALUE=high><param name=menu value=false><embed src=""$4"" quality=high menu=false pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=$2 height=$3>$4</embed></OBJECT>")

 re.Pattern="(\[UPLOAD=gif\])(.*?)(\[\/UPLOAD\])"
 strContent= re.Replace(strContent,"<br><IMG src="/Files/BeyondPic/chinazcj/2005-11/20/05112015515176001.gif"" border=0>此主题相关图片如下：<br><A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")
 re.Pattern="(\[UPLOAD=jpg\])(.*?)(\[\/UPLOAD\])"
 strContent= re.Replace(strContent,"<br><IMG src="/Files/BeyondPic/chinazcj/2005-11/20/05112015515163373.gif"" border=0>此主题相关图片如下：<br><A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")
 re.Pattern="(\[UPLOAD=bmp\])(.*?)(\[\/UPLOAD\])"
 strContent= re.Replace(strContent,"<br><IMG src="/Files/BeyondPic/chinazcj/2005-11/20/05112015515395264.gif"" border=0>此主题相关图片如下：<br><A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")

 re.Pattern="(\[UPLOAD=(.[^\[]*)\])(.*?)(\[\/UPLOAD\])"
 strContent= re.Replace(strContent,"<br><IMG src="/Files/BeyondPic/chinazcj/2005-11/20/05112015515585631.gif"" border=0> <a href=""$3"">点击浏览该文件</a>")

 re.Pattern="(\[URL\])(.*?)(\[\/URL\])"
 strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>")
 re.Pattern="(\[URL=(.[^\[]*)\])(.*?)(\[\/URL\])"
 strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$3</A>")

 re.Pattern="(\[EMAIL\])(.*?)(\[\/EMAIL\])"
 strContent= re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015512387462.gif"><A HREF=""$2mailto:$2"">$2</A>")
 re.Pattern="(\[EMAIL=(.[^\[]*)\])(.*?)(\[\/EMAIL\])"
 strContent= re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015512387462.gif"><A HREF=""mailto:$2"" TARGET=_blank>$3</A>")

 re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
 strContent = re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re.Pattern = "(<BR>|<P>)(|http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)(<BR>|<P>)"
 strContent = re.Replace(strContent,"$1<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$2>$2</a>$3")
 re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
 strContent = re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
 strContent = re.Replace(strContent,"<img align=absmiddle src="/Files/BeyondPic/chinazcj/2005-11/20/05112015513176898.gif"><a target=_blank href=$1>$1</a>")
 re.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=

上一页  [1] [2] [3] [4]  下一页


[网页制作]UBB,剪贴板,textRange及其他  [网页制作]将 html 转成 ubb代码的小脚本
[Web开发]UBB,剪贴板,textRange及其他  
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台